En altta bulunan BOŞ satıra gitme..

[hsyn17]

Merhaba Sayın Üstat

Excel sayfasında Sürekli (her hafta) Alta tablo kopyalayıp yapıştırmak suretiyle bilgileri ARŞİVLİYORUM. Acaba bir makro yaparak en alt BOŞ satıra DİREK gidebilir miyim... ÇOK teşekkür ederim.

 

[NADİR YILDIZ]

makrolu

Private Sub CommandButton6_Click()
Range("K65535").End(xlUp).Offset(1, 0).Select
End Sub


yada ctrl aşağı oka birlikte basarsanız son satıra atar sizi

 

[ccuneyt13]

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.

Korhan hocamızın kodu ile ilk boş hücreye, Aynı konuda Ali Beyin kodu ile son boş hücreye gidebilirsiniz.

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

Makrosuz CRTL + aşağıok tuşu da kullanışlı olabilir dilerseniz.