Textbox'a otomatik sıra numarası vermek

[ulutanas]

Arkadaşlar merhaba,

userform1 de textbox6 faturakayıt sayfasında A sütunundaki en son yazılan fatura numarasının+1 büyüğünü aşağıdaki kodla otomatik aktarmakta.

TextBox6.Text = WorksheetFunction.Max(Range("A2:a20000")) + 1

Fakat ben excel sayfasına gidip başka bir sayfada kontrol yapıp kapattığım zaman en son hangi sayfada kaldıysam o sayfanın A sütunundaki en son rakamı kontrol ediyor. Bunun sebebi WorksheetFunction ile başlayan kısımla alakalı olmalı. Bilgiyi alması gereken faturakayıt sayfasından aktarmasını istiyorum çeşitli denemeler yaptım fakat başaramadım. konu hakkında yardımcı olursanız memnun olurum.

İyi çalışmalar dilerim,
Saygılarımla...

 

[yanginci34]

Birde böyle denermisiniz.

TextBox6.Text = WorksheetFunction.Max(Sheets("faturakayıt").Range("A2:a20000")) + 1

 

[ulutanas]

Yangıncı34 yardımınız için çok teşekkür ederim, tam istediğim gibi oldu şimdi.

İyi çalışmalar dilerim,
Saygılarımla...

 

[yanginci34]

Rica ederim dönüş yaptığınız için teşekkürler kolay gelsin.