Macro kullanarak dolu enson hücreyi nasıl bulabilirim.

Katılım
27 Aralık 2006
Mesajlar
254
Excel Vers. ve Dili
Excel Visual Basic 6.0
Altın Üyelik Bitiş Tarihi
09.07.2019
Yapmış olduğum formda kişinini adını girerek macroyu çalıştırdığımda kişiye ait sayfa (sheet ) açılmasını sağlıyorum fakat yine formda label kutusunun içerisine o sayfada bulunan dolu en son hücredeki kayıtlı tarihi bulmasını istiyorum bunu bir türlü yapamadım. Yardımlarınızı bekliyorum. Şimdiden teşekkürler.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
8,006
Excel Vers. ve Dili
Office 365 Türkçe
Belirli bir sütundaki son dolu hücremi ?
Belirli bir aralıkta en son dolu hücremi ?
 
Katılım
27 Aralık 2006
Mesajlar
254
Excel Vers. ve Dili
Excel Visual Basic 6.0
Altın Üyelik Bitiş Tarihi
09.07.2019
belirli bir sütundaki

Belirli bir sütundaki son dolu hücremi ?
Belirli bir aralıkta en son dolu hücremi ?
Belirli bir sütündaki son dolu hücre. Formda isimi girilen kişinin sayfasının açıp oradaki tarih sütunundaki enson dolu hücrenin değerini formdaki label kısmına aktarmasını sağlamak amacıyla soru sorulmuştur.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
8,006
Excel Vers. ve Dili
Office 365 Türkçe
Sayfa1'deki A sütunundaki en son dolu hücre karşılığı için

Label1 = Worksheets("Sayfa1").Range("A65536").End(xlUp).Value

Sayfa1 yerine siz hangi sayfadan alıyorsanız onu yazarsınız.
 
Katılım
27 Aralık 2006
Mesajlar
254
Excel Vers. ve Dili
Excel Visual Basic 6.0
Altın Üyelik Bitiş Tarihi
09.07.2019
Macro kullanılarak sütunlardaki enson dolu hücreyi nasıl bulurum

User Form sayfasında isim girdiğimde her isime açılmış olan sayfalardaki ( sheet ) tarih sütununda dolu olan en son hücreyi nasıl bir macro yazarak en son hücredeki tarihi bulup User formdaki label kutusuna aktarabilirim. Bununla ilgili bir yardımınız olursa sevinirim.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
8,006
Excel Vers. ve Dili
Office 365 Türkçe
Yukarıda yazmıştım ama tekrar yazayım. İsimleri Textbox'a yazdığınızı ve tarihlerinizin A sütununda bulunduğunu varsaydım.

Kod:
Private Sub TextBox1_Change()
Label1 = Worksheets("Sayfa1").Range("A65536").End(xlUp).Value
End Sub
 
Üst