Tüm sekmeleri son veriye kadar birleştirmede, lastrow la ilgili sorun?

[caxwin]

Ekteki "LASTROW" dosyasında
"açıklama" sekmesinden çalıştırılan makro yardımıyla
Belirlediğim sekmeler dışındaki
Tüm sekmelerin son veri girilen satırına kadar
Yeni oluşturacağı "hepsi" sekmesine alt alta kopyalıyor.

Buraya kadar sorun yok gözüküyor.

Fakat sondaki boş satırların gelişi bir problem.

Sorunun sebebi "no" ları düşeyara ile getirmek için girdiğim kodlardan gözüküyor
"LASTROW_formülsüz" dosyasında o kodları silip girdiğim hali var ve bu sefer aynı sorun gözükmüyor.

Sorunun çözümüyle ilgili yardımcı olursanız çok sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki fonksiyonda kırmızı ile renklendirdiğim değişikliği yapınız.

Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(what:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=[COLOR=red]xlValues[/COLOR], _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function

 

[caxwin]

Çok teşekkür ederim Levent bey.
Sağolun.