Cod VBA nefunctional la schimbare nume foaie

[RAMBO]

Buna ziua.
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

Este un cod nou pentru mine si care functioneaza foarte bine doar in acest fisier. Insa daca redenumesc sheetul din Foaie1 in altceva, si modific VBA-ul in consecinta nu mai functioneaza. Sa presupunem ca modific numele foii din Foaie1 in clienti, eu am presupus ca va arata asa:

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

si nu mrege.
Multumesc.

[Indigo-ONE]

Salut,

Clienti e nume foaie?

daca da atunci trebuie folosit:

Sheets("clienti").....

[cip.st]

„Foaie1. ” este code name-ul paginii unde secvența ta de cod produce efecte.
Am anexat o imagine pentru exemplificare. Sheet1 este code name-ul paginii cu numele Registre.

În VBA poți adresa o pagină atât prin code name-ul lui cât și prin numele afișat în Excel, efectul este același, singura diferență fiind că la adresarea prin code name oricâte modificări de nume ar suferi pagina, codul va funcționa la fel.

Ca să identifici code name_ul unei pagini, poți, de exemplu, să te uiți în fereastra Project Explorer, situată de obicei în partea stângă sus a interfeței VBA.

[RAMBO]

Da, merge. Multumesc. De fapt si incercasem ceva de genul, dar nu am dus treaba pana la capat. Eu incercasem:

Cod: Selectaţi tot

Sub test()
Dim addrow As Long
addrow = Sheets("clienti").Range("Z" & clienti.Rows.Count).End(xlUp).Row
Range("Z" & addrow + 1) = Range("C1")
End Sub

[RAMBO]

@cip_st
Asta nu stiam. Multumesc.