Rog ajutor in modificarea urmatorului cod din fisierul Exemplu.
Cod: Selectaţi tot
Sub test()
Dim addrow As Long
addrow = Foaie1.Range("Z" & Foaie1.Rows.Count).End(xlUp).Row
Range("Z" & addrow + 1) = Range("C1")
End Sub
Cod: Selectaţi tot
Sub test()
Dim addrow As Long
addrow = clienti.Range("Z" & clienti.Rows.Count).End(xlUp).Row
Range("Z" & addrow + 1) = Range("C1")
End Sub
Multumesc.