En son boş satıra git

[gardas58]

Arkadaşlar oluşturduğum Exell sayfasında oluşrturacağım bir buton ile en son boş satıra gitmemi sağlıyacak bir makro lazım.
Form da bulduğum makro
Sub ensonsatır()
[a65536].End(xlUp).Select
End Sub
işime yaramadı çünkü en son dolu satıra götürüyor.
Yardımcı olacak arkadaşlara şimdiden teşekkür ediyor kolay gelsin diyorum.

 

[Ali]

Aşağıdaki gibi kullanın.

Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub

 

[gardas58]

Teşekkürler

Aşağıdaki gibi kullanın.

Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub

İşime yaradı teşekkürler. Emeğinize sağlık.

 

[ersin tunca]

Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub


bunu nasıl yapacağız buton ? düğme mi ? kodu mödül bölümüne mi ? kopyalayacağız kafam karıştı şimdiden teşekkür ederim.

 

[ersin tunca]

Ali bey teşekkür ederiz.

Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub

bu kodu modül bölümüne mi ? kopyalayacağız buton olarak düğme mi yoksa CommandButton1 mi ? kullanacağız bi zahmet aydınlatırsanız sevinirim iyi günler

 

[Tevfik_Kursun]

Merhaba Ali Hocam,
Sütun içinde boşluklar olsaydı, ilk boşluğa ve son boşluğa nasıl giderdi?
saygılarımla

 

[Korhan Ayhan]

Ersin Bey,

Önerilen kod modüle ait bir koddur. Buton ile kullanabilirsiniz.


Tevfik Bey,

İlk boşluk için aşağıdaki kodu kullanabilirsiniz.

Sub Ilk_Bos_Hucre()
    Set Bul = Range("A:A").Find("", , , xlWhole)
    If Not Bul Is Nothing Then Bul.Select
End Sub

Son boş hücre için Ali beyin önerdiği kodu kullanabilirsiniz.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
İlginize çok teşekkür ederim. sayenizde Excel ile ilgili pek çok problemi çözebildiğimi her zaman söylüyorum.
Ali Beyin söylediğini de denedim. Biri son satır, diğeri son satırdan sonraki ilk boşluk. Ben 6. mesajda, son satırdan sonraki boşluktan bir önceki boşluğu kastetmiştim.
Saygılarımla

 

[Saban Sertkaya]

Merhabalar,
Imleci 2 kez yukarı zıplatıp offset ile 1 altını seçtirmeyi deneyin.

 

[Tevfik_Kursun]

Çok şart değil Şaban Hocam,
Ctrl + Shift + yukarı ok ile mi demek istediniz?
Yine de teşekkür ederim ilginize.
Saygılarımla

 

[ersin tunca]

sy. korhan ayhan

Sub Ilk_Bos_Hucre()
Set Bul = Range("A:A").Find("", , , xlWhole)
If Not Bul Is Nothing Then Bul.Select
End Sub

bu kodu modül bölümüne yapıştırdım.
bir adet Düğme 1 ekledim
ama çalışmıyor düğmeyi koda nasıl bağlarım

 

[ersin tunca]

sayfalardan nasıl yaparız

Sy.Korhan Bey bu kodu 20 sayfaya ayrı ayrı yapabillirmiyiz

 

[ersin tunca]

Korhan Bey teşekkürer

Korhan bey teşekkür ederim. farkına varmadan yaptım şuan istediğim sayfanın istediğim sütunun ilk boş satırına gidebiliyorum

ilginizden dolayı teşekkür ederim.

 

[Saban Sertkaya]

Evet Tevfik Bey,

Excelde sütunun en son hücresinden yukarı doğru (Ctrl + Up tuşları ile) 2 zıplama yapıp, sonrada boş hücreyi seçtirebilirsiniz, demek istedim.

Bunu makro kaydet yönteminden yardım alarak yapabilirsiniz.

 

[Tevfik_Kursun]

Hepinize teşekkür ederim arkadaşlar. İstediğim gibi çalıştı.
Saygılarımla

 

[ersin tunca]

combobox ile çalıştırma

Ben bu şekilde 5 adet makro yaptım hepsinide 5 ayrı düğmeye bağladım ama benim istediğim bir tane combobox ile bu makroları çalıştırmak

combobox dan veri seçtiğimde seçtiğim veri makroyu çalıştırsın

örnek : combobox dan Araç_kayıt seçtim diyelim araç_kayıt makrosu çalısın


şimdiden teşekkür ederiz.

 

[yanginci34]

Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub


bunu nasıl yapacağız buton ? düğme mi ? kodu mödül bölümüne mi ? kopyalayacağız kafam karıştı şimdiden teşekkür ederim.

Sub ile başlayan kısmı yazmadan bir butonun click koduna yazabilirsiniz.
örnek : Private Sub CommandButton4_Click()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub şeklinde.

 

[Necdet]

D Sütununa göre mi yoksa E sütununa göre mi? Soru D diyor Dosya E

 

[Necdet]

Aşağıdaki kod Sayfa aktif olduğunda D sütunun ilk boş hücresini seçer.
Siz butona göre ayarlayabilirsiniz.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Activate()

    Dim i As Long
   
    i = Cells(Rows.Count, "D").End(3).Row
   
    If i < 5 Then i = 5
   
    Range("D" & i).Select
   
End Sub