Ciao, avrei bisogno di aiuto per modificare la macro:
poiché nel foglio in questione, al soddisfacimento delle condizioni riportate nel primo post:
If Cells(r, "E") = "Verb" And Cells(r + 1, "E") = "Verb" Then
If Cells(r + 1, "D") = "sum" And (Cells(r, "H") = "passive" Or Cells(r, "H") = "deponent") Then
Cells(r + 1, "H") = "auxiliary"
dovrei sostituire il contenuto (il testo) della cella "C" della riga (r, "E") con il suo stesso (ad esempio" factum") in aggiunta il segno "_" e quindi il contenuto della cella "C" della riga sottostante (est)(r + 1, "E") (eliminando l'intera riga r + 1, "E") ho modificato la macro aggiungendo
Cells(r, "C") = "r, C" + "_" + "r + 1, C", per ottenere il testo "factum_est" (senza gli apici) ma il risultato ottenuto è che nella cella C mi esce:
r, C_r + 1, C
e non il testo presente in cella "C" (factum) e in cella "C + 1"(est) con in mezzo il segno "_".
Macro modificata
Sub a()
LR = Cells(Rows.Count, "E").End(xlUp).Row
For r = 1 To LR
If Cells(r, "E") = "Verb" And Cells(r + 1, "E") = "Verb" Then
If Cells(r + 1, "D") = "sum" And (Cells(r, "H") = "passive") And (Cells(r, "J") = "perfect" Or Cells(r, "J") = "pluperfect") Then
Cells(r + 1, "O") = "to be = auxiliary (Periphrastic passives)"
Cells(r, "C") = "r, C" + "_" + "r + 1, C" mia modifica
End If
End If
Next
End Sub
____________________________________
Inoltre vorrei che la macro mi riportasse il testo presente in colonna "B" nelle righe successive fino alla prima cella precedente a quella vuota.
Allego esempio in foglio 1 (testo) il testo normale e in foglio 2 (risultato) il testo desiderato.
[Modificato da pasquale@Excel 03/12/2017 18:54]