Soru İç içe for döngüsü hakkında yardım

[hamza2011]

Çok teşekkür ederim.
Belki bana kızacaksınız ama çünkü galiba çok başınızı ağrıttım

O37' den başlayan ve R sütuna kadar verilerim var. "O" sütununda ki hücre verisini silince silinen hücre ile beraber sağa doğru 4 hücreyi yukarıya doğru nasıl silinebilirim yine makro ile.

 

[Korhan Ayhan]

Kızmak demeyelim. Hiç araştırma yapılmıyor. Bizleri bu üzüyor. Çünkü talep edilen kodları defalarca forumda farklı başlıklarda verdik.

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    
    For Each Veri In Intersect(Target, Range("O37:O" & Rows.Count))
        If Veri.Value = Empty Then Veri.Resize(1, 4) = Empty
    Next
End Sub

 

[hamza2011]

Kızmak demeyelim. Hiç araştırma yapılmıyor. Bizleri bu üzüyor. Çünkü talep edilen kodları defalarca forumda farklı başlıklarda verdik.

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    
    For Each Veri In Intersect(Target, Range("O37:O" & Rows.Count))
        If Veri.Value = Empty Then Veri.Resize(1, 4) = Empty
    Next
End Sub

Hocam inanın bana çok araştırıyorum ve ana dosyamı bu sayede çok iyi bir yere getirdim. Yapamadıklarımı ya da yapamayacaklarımı size arz ediyorum. Sağolun, sağlıklı huzurlu günler dilerim.