Formül olan hücrelerdeki dolu son satırı bulmak

[Ergün Güler]

Selam arkadaşlar,
Ekteki örnek dosyamdaki B sütununda formüller var. koşula bağlı olarak hücre doluyor veya boş görünüyor. benim isteğim şu; sadece dolu olan son satırı bulmak istiyorum. Ben yapamadım. Benim yaptığımda çünkü en son formüllü boş satırı buluyor.
Yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
    TextBox1.Text = [A65536].End(3).Row
End Sub

Bu şekilde işinizi görür sanırım..

.

 

[Ergün Güler]

Merhaba,

Private Sub CommandButton1_Click()
    TextBox1.Text = [A65536].End(3).Row
End Sub

Bu şekilde işinizi görür sanırım..

.

Sayın Ömer,
İlginize çok teşekkürler, Sorumu tam anlatamadığım için çok özür dilerim.
verdiğiniz kod ile A sütunun son dolu satır bulunuyor. Ancak, Asıl dosyada A sütunu da B sütunu gibi formüllüdür. Yani B sütunun son satırını bulabilirseniz işim kolaylaşacaktır.
Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    TextBox1 = Evaluate("=MAX((A2:A65536<>"""")*ROW(2:65536))")
End Sub

 

[Ergün Güler]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    TextBox1 = Evaluate("=MAX((A2:A65536<>"""")*ROW(2:65536))")
End Sub

Selam Sayın Korhan Ayhan,
Yardımlarınız için çok teşekkürler. Harika olmuş. A'yı B yaptım. Dolu hücreden sonra formül olsada istediğimi sonucu buluyor. çok teşekkürler. Ben de aşağıdaki gibi bulmuştum. Ancak sizin çözümü kullanacağım. Zahmet olmaz ise, verdiğiniz kodu biraz izah edebilir misiniz?

Private Sub CommandButton1_Click()
Dim son, x As Long
For x = 1 To [B65536].End(3).Row
If Sheets("Sayfa1").Range("B" & x) = "detay" Then
TextBox1 = Sheets("Sayfa1").Range("B" & x).Row
End If
Next
End Sub

Sayın Ömer Hocam'a da ayrıca ilgi ve alakaları için buradan teşekkür ederim.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Siz formül uyguladığınız hücreleri şarta göre "" (iki adet çift tırnak işareti) ile boş olarak göstermişsiniz. Bende bundan yola çıkarak formül sonucu boş gözükmeyen hücrelerden satır numarası en büyük olanı sorguladım. Bunuda MAX fonksiyonu ile bulabiliyoruz. Formül dizi mantığı ile çalışmaktadır. Sırayla boş olmayan hücrelerin satır numaralarını diziye alarak bunların içindeki en büyük değeri sonuç olarak verir.

Umarım açıklamaların faydası olur.

 

[halit3]

Selam arkadaşlar,
Ekteki örnek dosyamdaki B sütununda formüller var. koşula bağlı olarak hücre doluyor veya boş görünüyor. benim isteğim şu; sadece dolu olan son satırı bulmak istiyorum. Ben yapamadım. Benim yaptığımda çünkü en son formüllü boş satırı buluyor.
Yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar.

alternatif kod

Private Sub CommandButton1_Click()
Dim satır As Long
satır = Cells.Find(What:="*", After:=[A1], LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
TextBox1 = satır
End Sub

Private Sub CommandButton1_Click()
Dim satır As Long
satır = Range("A2:B" & Rows.Count).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
TextBox1 = satır
End Sub

 

[Ergün Güler]

alternatif kod

Private Sub CommandButton1_Click()
Dim satır As Long
satır = Cells.Find(What:="*", After:=[A1], LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
TextBox1 = satır
End Sub

Selam Sayın Halit3,
verdiğiniz 2.kod işe aradı. "A2:B" kısmını "B2:B" olarak değiştirdim.

1.kod istenileni bulamıyor. [A1]'i [B1] yaptım yine olmadı. sonuç 1 gösteriyor. Sadece A sütunundakini bulabiliyor. Anlayamadım.

İlginiz ve yardımlarınız için çok teşekkür ederim.
İyi çalışmalar.