İlk Boş Hücrenin Adresini Bul

[baydeniro]

Merhaba arkadaşlar. B1:B5 aralığında B4 hücresinde veri bulunmamaktadır. B4 hücre adresini bulmak nasıl mümkün olur acaba ?

 

[F1]

Merhaba

=ADDRESS(SUMPRODUCT(MAX(($B$1:$B$5=0)*ROW($B$1:$B$5)));2)

 

[Orion1]

Sub adres_bul()
Dim hcr As Range
For Each hcr In Range("B1:B5")
    If hcr.Value <> "" Then
        MsgBox "Hücrenin adresi : " & hcr.Address(False, False), vbOKOnly, "ADRES"
        Exit For
    End If
Next
   
End Sub

 

[baydeniro]

Sayın F1, çok teşekkür ederim. Bu formül ile en son boş hücrenin adresi alınıyor. İlk boş hücrenin adresini de almak mümkün mü ?

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar. B1:B5 aralığında B4 hücresinde veri bulunmamaktadır. B4 hücre adresini bulmak nasıl mümkün olur acaba ?

="b"&MATCH(1;B1:B5="";0)

="b"&KAÇINCI(1;B1:B5="";0)


Dizi formülüdür. CTRL+SHIFT+ENTER ile girin.

Kod olarak:

Sub adres()
Dim hcr As Range
For Each hcr In Range("B1:B5")
If hcr.Value = "" Then
[A1] = hcr.Address(False, False)
Exit For
End If
Next

End Sub.

Adresi A1'e yazar.


.

 

[Orion1]

Ben bulunmakatadır anladım bulunmayan hücreyi adresini almak için aşağıdaki kod olur.

Sub adres_bul()
Dim hcr As Range
For Each hcr In Range("B1:B5")
    If hcr.Value = "" Then
        MsgBox "Hücrenin adresi : " & hcr.Address(False, False), vbOKOnly, "ADRES"
        Exit For
    End If
Next
   
End Sub

 

[leumruk]

Adresten kastınız sanırım ilk boş hücreye gitmek:
Cells([a1].End(xlDown).Row + 1, "a").Select

Hücre adını bulmak için de:

MsgBox Cells([a1].End(xlDown).Row + 1, "a").Address

 

[baydeniro]

Sayın Evren Gizlen çok teşekkür ederim. Mesaj Box'ta B12 dolu olmasına rağmen B1 hücresini gösteriyor !!

 

[F1]

Merhaba
Buda ilkini bulur, aklıma ilk bu geldi daha kısa formüllerde bulunabilir

=ADDRESS(SUMPRODUCT(SMALL(($B$1:$B$5=0)*ROW($B$1:$B$5);COUNTA($B$1:$B$5)+1));2)

 

[Orion1]

Sayın Evren Gizlen çok teşekkür ederim. Mesaj Box'ta B12 dolu olmasına rağmen B1 hücresini gösteriyor !!

6ncı mesajıma baktınızmı.İlk mesajımı değiştirdim.B1:B5 aralığında bulunmayan ilk hücrenin adresini veriyor.

 

[baydeniro]

Sayın Evren Gizlen, şimdi harika oldu. Bir de adresin A1 hücresine yazdırılması istenirse kod nasıl olmalı acaba ?

 

[Merhum İdris SERDAR]

Sayın Evren Gizlen, şimdi harika oldu. Bir de adresin A1 hücresine yazdırılması istenirse kod nasıl olmalı acaba ?

# 5 Mesajıma bakın.

.

 

[Orion1]

Sayın Evren Gizlen, şimdi harika oldu. Bir de adresin A1 hücresine yazdırılması istenirse kod nasıl olmalı acaba ?

Sub adres_bul()
Dim hcr As Range
For Each hcr In Range("B1:B5")
    If hcr.Value = "" Then
        range("A1").value = hcr.Address(False, False)
        MsgBox "Hücrenin adresi : " & hcr.Address(False, False), vbOKOnly, "ADRES"
        Exit For
    End If
Next
   
End Sub

 

[baydeniro]

Sayın Evren Gizlen ilginiz ve yardımlarınız için çok çokteşekkür ederim.

 

[baydeniro]

Sayın yurttaş yarıdmlarınız için çok teşekkür ederim. Kod bir harika. Yalnız formüllerin sonuç verdiğinden emin misiniz ?

 

[baydeniro]

Harikasınız arkadaşlar. Allah hepinizden razı olsun. Sayın Evren Gizlen, Sayın Yurttaş, Sayın F1, Sayın Leumruk hepinize çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Alterrnatif olarak aşağıdaki formülüde kullanabilirsiniz.

Formül dizi formülüdür. Hücreye girdikten sonra CTRL+SHIFT+ENTER tuşları ile tamamlanmalıdır.

="B"&MİN(EĞER(((B1:B5="")*SATIR(1:5))>0;SATIR(1:5)))

 

[Merhum İdris SERDAR]

Sayın yurttaş yarıdmlarınız için çok teşekkür ederim. Kod bir harika. Yalnız formüllerin sonuç verdiğinden emin misiniz ?

Formül:

="b"&MATCH(TRUE;B1:B5="";0)

="b"&KAÇINCI(DOĞRU;B1:B5="";0)

şeklindedir.

Dizi formülüdür. CTRL+SHIFT+ENTER ile girin.


.

 

[baydeniro]

Sayın Yurttaş çok teşekkür ederim. Şimdi çok güzel oldu. Sağlıcakla kalın.