Belirtilen hücre boş ise belirtilen hücre silinmesi hakkında

[eyldrm]

Merhaba,

C ve D Sütunu için örnek veriyorum.

C sütunu Dolu D sütunu ise kısmen dolu boşluklar var.

Yukarıdan aşağıya doğru D sütununu taramak istiyorum (D7 den başlayarak) her boş bulduğu hücrenin solunda bulunan C sütununun hücre içeriğini silmek istiyorum.

Özetle: D boş ise C hücresinin içini temizle

Şimdiden yardımlarınız için teşekkürler.

 

[hamitcan]

Sub Sil()
    For i = 7 To [d65536].End(3).Row
        If Cells(i, 4) = "" Then Cells(i, 3).ClearContents
    Next
End Sub

 

[eyldrm]

Sub Sil()
    For i = 7 To [d65536].End(3).Row
        If Cells(i, 4) = "" Then Cells(i, 3).ClearContents
    Next
End Sub

Teşekkür ederim tam olması gerektiği gibi çalıştı.

 

[Erdogan3434]

Sub Sil()
    For i = 7 To [d65536].End(3).Row
        If Cells(i, 4) = "" Then Cells(i, 3).ClearContents
    Next
End Sub

Hamitcan bey yazmış olduğunuz kodu makro çalıştırmadan otomatiğe bağlamanın yolu var mıdır?

 

[Korhan Ayhan]

Merhaba,

Makroyu tetiklemek için bir olay (event) gereklidir.

İlgili kodu aşağıdaki olaylara yazarsanız otomatik çalışmasını sağlayabilirsiniz.


İşlemin yapılacağı sayfa aktif olduğunda (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_Activate()
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

İşlemin yapılacağı sayfada D sütununda bir hücre değişiminde (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_Change(ByVal Target As Range)
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

İşlemin yapılacağı sayfada bir hücreyi seçtiğinizde (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

Bunlara ek olarak;

Kodu dosya açılışında otomatik çalıştırabilirsiniz.
Kodu dosya kapanışında otomatik çalıştırabilirsiniz.
Kodu dosyayı kayıt ederken otomatik çalıştırabilirsiniz.
vs. vs.

Bunlardan hangisi sizin için uygunsa onu tercih edip kodu uyarlayabilirsiniz.

 

[Erdogan3434]

Merhaba,

Makroyu tetiklemek için bir olay (event) gereklidir.

İlgili kodu aşağıdaki olaylara yazarsanız otomatik çalışmasını sağlayabilirsiniz.


İşlemin yapılacağı sayfa aktif olduğunda (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_Activate()
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

İşlemin yapılacağı sayfada D sütununda bir hücre değişiminde (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_Change(ByVal Target As Range)
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

İşlemin yapılacağı sayfada bir hücreyi seçtiğinizde (bunun için aşağıdaki sayfa olayını kullanabilirsiniz.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Döngü kodlarını buraya uygun şekilde yazmalısınız..
End Sub

Bunlara ek olarak;

Kodu dosya açılışında otomatik çalıştırabilirsiniz.
Kodu dosya kapanışında otomatik çalıştırabilirsiniz.
Kodu dosyayı kayıt ederken otomatik çalıştırabilirsiniz.
vs. vs.

Bunlardan hangisi sizin için uygunsa onu tercih edip kodu uyarlayabilirsiniz.

Desteğiniz ve emeğiniz için çok teşekkür ederim.