Yukarı/Aşağı Makrosu

[Sefa.N]

Herkese merhabalar.

Makro kaydet yöntemi ile bir makro kaydetmeye çalıştım ancak pek beceremedim. Ekteki dosyada bulunan şekile/butona tıkladığımda beni A12 hücresine götürecek, akabinde bir kez daha tıkladığımda ise H sütununun 12. satırından itibaren (aşağı yöndeki) ilk boş hücreye götürecek bir makro konusunda yardımcı olabilir misiniz?

Bir diğer ifade ile, butona basıp listenin en üstüne ulaştıktan sonra yine aynı buton vasıtası ile listenin altına, kaldığım son yere geri dönebilmeyi hedefliyorum.

 

[Muzaffer Ali]

Merhaba.
Excelin kısa yol tuşlarını kullanabilirsin.
CTRL + aşağı ok tuşuna bastığınızda ilk dolu hücre seçilir
bir kere daha bastığınızda son dolu hücre seçilir.
Aynı şekilde sağ, sol ve yukarı tuşlarını da kullanabilirsiniz.
Bu daha kısa ve kestirme yoldur.

 

[Sefa.N]

Kısa yolları kullanmayı deniyorum zaman zaman. Ancak bazen yoğunluktan kısa yolları unutabiliyorum ya da karıştırabiliyorum. Bir de bunu makrolaştırmakta ki bir diğer hedefim de ufak ufak makroların mantığını çözme isteğim. Bir an da olacak bir şey olmadığını biliyorum ama bir yerlerden başlamak gerekiyor neticede.

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

Sub Test()
    If ActiveCell.Address = "$A$12" Then
        Cells(Rows.Count, "H").End(xlUp).Select
    Else
        Range("A12").Select
    End If
End Sub

H sütunu boş olduğu için H1'i seçer.

 

[Sefa.N]

Cells(Rows.Count, "H").End(xlUp).Select

Buradaki kodu, "H12" olarak güncellesem, H12'den itibaren ilk boş hücreyi baz alır mı? Asıl dosyamda H sütunun 1. ve 11. satırları arasında çeşitli veriler ve boşluklar yer alıyor çünkü.

Edit: H12 olarak yazınca olmuyormuş.

 

[Muzaffer Ali]

Cells(Rows.Count, "H").End(xlUp).Select
Bu satır H sütununu en son hücreden itibaren yukarıya doğru kontrol eder, ilk dolu hücreyi seçer.

 

[Muzaffer Ali]

İstediğiniz şey aşağıdaki kod ile olur.

Sub Test()
    If ActiveCell.Address = "$A$12" Then
        if Cells(Rows.Count, "H").End(xlUp).row < 12 then
            range("H12").select
        else
            Cells(Rows.Count, "H").End(xlUp).Select
        end if
    Else
        Range("A12").Select
    End If
End Sub

 

[Sefa.N]

Çok teşekkür ederim. Zahmet verdim size de, hakkınızı helal edin.