E il mio problema e questo : Spulciando qua e la su internet ho trovato questa Procedura che farebbe proprio al caso mio.
Però nel metterlo in funzione , mi sono accorto che pur funzionando a meraviglia; Intendo dire che nel bene e nel male il suo lavoro lo svolge egregiamente.
Ha solo un piccolo difetto che io con tutta la mia buona volontà non riesco a risolvere.
E il problema e questo : Quando mando in funzione tale procedura esso mi cancella l'intera riga da copiare , per qui va da sé che in questo modo non va bene.
Per qui non c'è un sistema per fare si che non cancelli nulla , ma mi copi solo l'area interessata ; E in più non vda mai a capo trà una copiata e l'altra, ma agisca sempre in quella riga li !!!!
Questo e il Listato Completo :
- Codice: Seleziona tutto
Sub CopiaSe()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 1 Step -1
If UCase(Worksheets("Foglio1").Range("B" & RR1).Value) = "SI" Then
Worksheets("Foglio1").Rows(RR1).Cut Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Worksheets("Foglio1").Rows(RR1).Delete
End If
Next RR1
End Sub
Grazie