Excelde boş hücreyi bulma

Katılım
10 Şubat 2021
Mesajlar
3
Excel Vers. ve Dili
2010
A sütununda son boş hücreden bir önceki boş hücreyi seçmek için makro koduna ihtiyacım var. Veya son dolu hücreden bir önceki boş hücreyi seçmek. Yardımcı olursanız sevinirim.

Örnek :
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.
Kod:
Cells(Rows.Count, "A").End(3).Offset(1).Select
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde bir deneyiniz.
Kod:
[a1].End(xlDown).Offset(1).Select
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,794
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Merhaba,
Üstte ilk 3 satır boş ise
Kod:
[a4].End(xlDown).Offset(1).Select
yazarak çalıştırın makroyu lütfen.
İyi çalışmalar
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Soruyu daha açık sorsanız bu kadar yazışma olmaz.
Örneğin A sütununda bir kaç hürce boş ve ben son boş olan hücreyi seçmek istiyorum demelisiniz.
Ayrıca hiç boş hücre olmaz ise ne yapılacak onu da belirtmemişsiniz.

Millete boşuna kod yazdırıyorsunuz.

Lütfen sorularınızda net olun ki yanıtlar da da bir sıkıntı olmasın.
Bakalım ben doğru anlamış mıyım?

Kod:
Sub Bos()

    On Error GoTo Son

    Dim i As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    Cells(i, "A").End(3).Offset(-1).Select
    
    Exit Sub
Son:
    Cells(i + 1, "A").Select
    
End Sub
 
Son düzenleme:

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,231
Excel Vers. ve Dili
Ofis 2013 Türkçe
Merhaba dener misiniz
Kod:
Sub numan()
[A65536].End(xlUp).Select
If ActiveCell = Range("A1") Then GoTo son
10
If ActiveCell <> "" Then
ActiveCell.Offset(-1, 0).Select
If ActiveCell.Address = Range("A1").Address Then GoTo son
GoTo 10
End If
son:
End Sub
 
Üst