Excelde ilk boş hücreyi bulma

[ssdestek]

MERHABA,

A1-A5000 SÜTUNUNDA VERİLERİM OLACAK. A SÜTUNUNDA
A1 DEN A5000 E DOĞRU İLERLERKEN BULUNAN İLK BOŞ HÜCRENİN SATIR NUMARASINI
B1 HÜCRESİNE YAZDIRTMAK İSTİYORUM.

DOSYA EKTEDİR.
EXCEL 2010 TR KULLANIYORUM. (makro kullanmadan)

Saygılarımla,

 

[Murat OSMA]

Şu kodu deneyiniz;

Sub Emre()
    Dim i As Integer
    For i = Range("A65536").End(3).Row To 1 Step -1
        If Cells(i, "A") = "" Then
            Range("B1").Value = Cells(i, "A").Row
        End If
    Next i
    i = Empty
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki DİZİ formülünü kullanabilirsiniz.

=EĞER(EĞERSAY(A1:A5000;"")=0;"";KÜÇÜK(EĞER(A1:A5000="";SATIR(A1:A5000));1))

 

[Merhum İdris SERDAR]

MERHABA,

A1-A5000 SÜTUNUNDA VERİLERİM OLACAK. A SÜTUNUNDA
A1 DEN A5000 E DOĞRU İLERLERKEN BULUNAN İLK BOŞ HÜCRENİN SATIR NUMARASINI
B1 HÜCRESİNE YAZDIRTMAK İSTİYORUM.

DOSYA EKTEDİR.
EXCEL 2010 TR KULLANIYORUM. (makro kullanmadan)

Saygılarımla,

.

Alternatif:

Dizi Formülüdür

İlk boş hücre satır no için:

=CELL("ROW";INDEX(A1:A5000;MATCH(TRUE;A1:A5000="";0)))

=HÜCRE("SATIR";İNDİS(A1:A5000;KAÇINCI(DOĞRU;A1:A5000="";0)))

Sütun no için:

=CELL("COL";INDEX(A1:A5000;MATCH(TRUE;A1:A5000="";0)))

=HÜCRE("SÜTUN";İNDİS(A1:A5000;KAÇINCI(DOĞRU;A1:A5000="";0)))

Hücre adresi için:

=CELL("ADDRESS";INDEX(A1:A5000;MATCH(TRUE;A1:A5000="";0)))

=HÜCRE("ADRES";İNDİS(A1:A5000;KAÇINCI(DOĞRU;A1:A5000="";0)))

.

 

[Murat OSMA]

Kod ile alternatif...

Sub Emre()
    Set bos = Cells.SpecialCells(4)
    Range("B1").Value = bos.Row
End Sub

 

[hukumran1]

Yukarıya doğru ilk boş ve il dolu hücre nasıl bulunur?

Selection.End(xlUp).Select

bu kod yerine kullanmak istiyorum.

 

[Erdem Akdemir]

Dizi formülü alternatif,

=KAÇINCI(1;--EBOŞSA(A1:A11);0)

 

[Korhan Ayhan]

Aşağıdaki kodları kullanabilirsiniz.

"A" sütununa göre işlem yapar...

Sub Son_Bos_Hucre()
    Satir = Cells(Rows.Count, "A").End(3).Offset(1, 0).Row
End Sub

Sub Son_Dolu_Hucre()
    Satir = Cells(Rows.Count, "A").End(3).Offset(0, 0).Row
End Sub

 

[hukumran1]

Aşağıdaki kodları kullanabilirsiniz.

"A" sütununa göre işlem yapar...

Sub Son_Bos_Hucre()
    Satir = Cells(Rows.Count, "A").End(3).Offset(1, 0).Row
End Sub

Sub Son_Dolu_Hucre()
    Satir = Cells(Rows.Count, "A").End(3).Offset(0, 0).Row
End Sub

Çalıştıradamadım. Seçili bir hücre var üstünde ve altında dolu hücreler var ama makroyu oynatınca hiç bi hareket olmuyor. Neyi kaçırıyorum acaba?

 

[Korhan Ayhan]

Önerdiğim kod seçili hücreye göre hareket etmez.

"A" sütunundaki en son satırdan yukarı doğru hücreleri kontrol eder, ilk dolu ve ilk boş hücrenin satır numarasını verir.

 

[hukumran1]

İhtiyacım daha farklıydı, yanlış anlamışım olayı. Teşekkürler.

 

[Korhan Ayhan]

Sizin istediğiniz nasıl bir işlemdi?

 

[hukumran1]

Sizin istediğiniz nasıl bir işlemdi?

Ekteki dosyada ("I7") hücresinden hareketle yukarıda ilk dolu hücre olan ("I3") hücresini seçmek istiyorum. Ya da farklı yönlere.
bir nevi

Selection.End(xlUp).Select

kodunun alternatifi. Ama bu kodu kullanıp bazı sıkıntılar yaşadım. Daha kesin bir yol var mıdır onu merak ettim.

 

[Korhan Ayhan]

Ne gibi sıkıntı yaşadınız? Yaşanan sıkıntılar koşullar eklenerek aşılabilir.

Alternatif olarak aşağıdaki kodu kullanabilirsiniz. Parantez içindeki sayısal değer gidiş yönünü belirlemektedir. İsteğinize göre değiştirip kullanabilirsiniz.

Sub Dolu_Hucreyi_Sec()
    With ActiveCell
        Cells(.Row, .Column).End(3).Select
    End With
End Sub