sayfa her açıldığında ilk boş hücreyi seçili bulmak?

[etakyol]

çalışma sayfasına her girdiğimde b sütünundaki ilk boş hücreyi seçili bulabilirmiyim? yani bir listem var ve sayfayı her açtığımda listenin sonundaki isim yazacağım yer halihazırda seçili olacak. mümkünmüdür?

 

[Orion1]

Sayfa modülüne yazınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub

 

[etakyol]

Sayfa modülüne yazınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub

teşekkür ederim ancak, böyle sürekli a1'i seçiyor sadece. benim listemde şu an b200 e gitmesi gerekiyor mesela

 

[Orion1]

Öncekini silip bunu yapıştırın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sonsat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Select
End Sub

 

[etakyol]

Öncekini silip bunu yapıştırın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sonsat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Select
End Sub

malesef yine a1 de takılıp kalıyor. dosyayı açıp kapattığımda önceden bıraktığım gereksiz bir yer seçili olarak duruyor. anca köprüyle sayfaya gittiğimde a1 seçili geliyor yine

 

[Seyit Tiken]

Kod ta sorun yok, tetikleme ile ilgilidir. Çalışma Kitabına yapıştırınız.

Private Sub Workbook_Open()
Cells(Rows.Count, "B").End(3).Offset(1).Select
End Sub

 

[etakyol]

Kod ta sorun yok, tetikleme ile ilgilidir. Çalışma Kitabına yapıştırınız.

Private Sub Workbook_Open()
Cells(Rows.Count, "B").End(3).Offset(1).Select
End Sub

evet muhtemelen dediğiniz gibi. Private Sub Workbook_Open() ile çalışma kitabına yapıştırınca sizinki de diğeri de çalıştı.

çok teşekkür ederim yardımlarınız ve sabrınız için.

 

[ascifci]

Merhaba Alt alta iki tablom var A1:C200. A205:C500 (gibi) ben vba ile 201 . satır numarasını almak istiyorum.Ancak
sonsatir = Cells( Rows.Count,"a").End(XltoUp).Row komutu

501. satırı veriyor.

yani arada iki tablo arasında 2-3 boş satır olmasına rağmen bulmuyor.İlk boş satırı nasıl alabilirim?

 

[ÖmerFaruk]

Eğer A1:A200 boş değeriniz yok, birleştiirlmiş hücreniz yok ise
sonsatir = Cells( 1,1).End(xlDown).Row+1
201.satırı verir

 

[ascifci]

Siz böyle yazınca niye bunu düşünemedim çok mantıklı diyesi geliyor insanın )) Teşekkür ederim.