Son dolu satır şeklinde

[igultekin2000]

iyi akşamlar; kullandığım makroy " SON DOLU SATIR" şekline çevirmek istiyorum. makronun yapısı biraz farklı olduğu için düzenleyemedim.

Sub birlestir()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
sat = 3
For Each alan In Range("H4:I" & Range("I65536").End(3).Row)
If alan <> 0 Then
Cells(sat, "I") = Cells(sat, "I") & "-" & Cells(sat, "H")
sat = sat + 1
End If
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

Hesap planında H –  I sütunlarını birleştirmek için
Yani ;   “ Kasa – 100 00 “  gibi

bu haliyle boş hücrelerede "-" işareti ilave ederek. satır sayısını arttırıyor. Teşekkürler

 

[Korhan Ayhan]

Kodun içindeki aşağıdaki satır "I" sütununa göre son satırı bulmaktadır.

Range("I65536").End(3).Row

Sizin son satırınız hangi sütunda ise ona göre revize edebilirsiniz.

 

[igultekin2000]

Kodun içindeki aşağıdaki satır "I" sütununa göre son satırı bulmaktadır.

Range("I65536").End(3).Row

Sizin son satırınız hangi sütunda ise ona göre revize edebilirsiniz.

Dediğiniz gibi

Sub birlestir()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
sat = 3
For Each alan In Range("C4:D" & Range("D65536").End(3).Row)
If alan <> 0 Then
Cells(sat, "D") = Cells(sat, "D") & "-" & Cells(sat, "C")
sat = sat + 1
End If
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

D olarak revize ettim. satır 2332 ' da bitiyor, birleştirme işaretini boş olarak 4600 satıra kadar devam ettiriyor, zannedersen muhtemelen sayfanın temiz olmasından dolu görüyor olabilir.

 

[Korhan Ayhan]

Bu durumu sizde test edebilirsiniz.

"D" sütununda en son satıra gelin. (D1048576)
Sonra önce END tuşuna sonra YUKARI OK tuşlarına sırayla basın.

İmlecin vardığı hücre son satır dolu satır olacaktır. Bu hücrenin içine girip birşey varmı kontrol edin.