Satır aralığındaki boşlukları kaldırmak

[1903emre34@gmail.com]

Merhaba,

Satır aralığındaki, tek boşlukları kaldırmak ve "B" sütündaki "TRY" kelimesi yanındaki tutarları bir üstü getirmek istiyorum, istenen sayfa2'de yapılmıştır. Satır sayısı fazla olduğu için, örneği kısaltarak verdim.

Teşekkürler,


http://s7.dosya.tc/server6/xqvlmn/Kitap1_excel1.zip.html

 

[askm]

Sub askm()
Application.ScreenUpdating = False
For i = 1 To Range("B" & Rows.Count).End(3).Row
    If Cells(i, 1) = Empty And Cells(i, 2) <> Empty Then
        Range(Cells(i, 4), Cells(i, 8)).Copy Cells(i - 1, 4)
        Rows(i).Delete
    End If
    If Cells(i, 1) = Empty And Cells(i, 2) = Empty Then
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, sorunsuz çalışıyor.

 

[askm]

Rica ederim. Kolay gelsin.

 

[1903emre34@gmail.com]

"C" sütundaki tutarları siliyor, tekrar bakabilir misiniz?