Moderatori: Anthony47, Flash30005
=SE(C10="";"";SE(A10="cat";C10;H9))
Sub Categorie()
UC = Range("R" & Rows.Count).End(xlUp).Row
Range("R7:R" & UC).Clear
UR = Range("C" & Rows.Count).End(xlUp).Row
For RR = 7 To UR
If RR = 7 Then
Range("C" & RR).Copy Destination:=Range("R7")
GoTo salta
End If
If Range("A" & RR).Value = "Cat" Then Range("C" & RR).Copy Destination:=Cells(Rows.Count, 18).End(xlUp).Offset(1, 0)
salta:
Next RR
End Sub
Torna a Applicazioni Office Windows
Aggiungere menù a tendina da lista variabile Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 17 |
Visitano il forum: Nessuno e 7 ospiti