kodda güncelleme gerekiyor

[igultekin2000]

iyi günler; daha önce başka işlemde kullandığım makro kodunu yeni işleme kullanmak istedim. 2 sorunla karşılaştım. Makro tek seferde eksik kodları yukarı tamamlamıyor, tek tek butonu tıklayarak yapıyorum. Aşağı doğru kodu tamamlama işlemi yapmıyor. Örnek dosyayı yükledim. Teşekkürler.

Sub KODMOD()
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "E") = "" And Cells(i, "F") <> "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i + 1, "G")
      End If
      
    Next i
    i = Empty
      
    For i = Cells(Rows.Count, "C").End(3).Row To 2 Step -1
         If Cells(i, "E") <> "" And Cells(i, "F") = "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i + 1, "G")
       End If
         Next i
         i = Empty
    
    MsgBox "B i t t i "
        Application.ScreenUpdating = True
End Sub

 

[askm]

kod aktar ile 120, 340, 320, 159, 336, 136, "M", "O", "T", 500 haricindekileri boşaltıyorsunuz. Daha sonra KODMOD ile bu boşlukları alttaki ile doldurmaya çalışıyorsunuz. Peş peşe 2 satır boş olunca sonuç olarak değer gelmiyor. Eğer değer gelmesini istiyorsanız peş peşe bir kaç kere çalıştırmanız gerekiyor.

 

[igultekin2000]

sorun çözüldü

kod aktar ile 120, 340, 320, 159, 336, 136, "M", "O", "T", 500 haricindekileri boşaltıyorsunuz. Daha sonra KODMOD ile bu boşlukları alttaki ile doldurmaya çalışıyorsunuz. Peş peşe 2 satır boş olunca sonuç olarak değer gelmiyor. Eğer değer gelmesini istiyorsanız peş peşe bir kaç kere çalıştırmanız gerekiyor.

aynı makroyu -1 olarak yaptım, önce yukarı doğruyu bitirip, sonra aşağı doğruyu da diğer kodla tamamlamış oluyorum.