Değer silmek

[amenejist]

Problemim ile ilgili açıklamaları Örnek.xls dosyası içerisine yazdım.
Yardımlarından dolayı tüm arkadaşlara şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Selam,

"Giriş" Sayfasının kod bölümüne aşağıdaki kodu yazınız..

Private Sub Worksheet_Activate()
Set s1 = Sheets("Giriş")
    For i = 7 To 151 Step 3
        For a = 0 To 2
            For e = 4 To 35
                If s1.Cells(i, "C").Value = "" Then
                s1.Cells(i + a, e).Value = ""
                End If
            Next e
        Next a
    Next i
End Sub