| | Post: 3.863 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
19/05/2017 19:09 | |
per questo occorre una macro collegata ad un pulsante
Sub cancella()
LR1 = Sheets("Registro").Cells(Rows.Count, "A").End(xlUp).Row
LR2 = Sheets("DDT").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("DDT").Range("A25:G" & LR2).ClearContents
With Sheets("Registro")
For r = 8 To LR1
If UCase(.Cells(r, "G")) = "X" Then
LR2 = Sheets("DDT").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("DDT").Cells(LR2, 1) = .Cells(r, "G").Offset(0, -1)
Sheets("DDT").Cells(LR2, 2) = .Cells(r, "G").Offset(0, 3)
Sheets("DDT").Cells(LR2, 3) = .Cells(r, "G").Offset(0, 1)
Sheets("DDT").Cells(LR2, 7) = .Cells(r, "G").Offset(0, 4)
Sheets("DDT").Cells(LR2, 8) = .Cells(r, "G").Offset(0, 6)
End If
Next
End With
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
|
|