Boş hücreye sahip satırdaki verileri kısmen silecek makro.

[Bora K]

İyi akşamlar

Benim şu şekilde bir koda ihtiyacım var. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Eğer (F3:F111) de boş hücre var ise; kırmızı ile belirttiğim aralıktaki veriler silinecek (Hücre silme olmayacak) Oluşan boşluğu alttaki veriler ile dolduracağız.
Resim ekte daha net gözükecektir. Saygılarımla.

 

[Civan Jack]

Sub Sil()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 111 To 3 Step -1
        If Cells(i, "F") = "" Then
            Cells(i, "D").Resize(, 11).Delete Shift:=xlUp
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Bora K]

Çok çok teşekkür ediyorum.
Ellerinize sağlık.