A sütunu boş ise e ve f sütunlarındaki değerleri bir alt satıra kopyalama

[adildk]

Herkese günaydın,

Çeşitli kaynaklardan konu başlığında belirttiğim işleme dair makro kodunu araştırdım ve kendim de yazmaya çalıştım ancak başaramadım. Mantık basit aslında: A sütununda bir değer yok ise E ve F sütunlarındaki değerleri bir alt satıra eklemek istiyorum ve on binlerce satırda bu işlemlerin tekrar ettiğini düşünürsek eğer makroya ihtiyacım var. Yardımcı olabilecek var mıdır acaba? Teşekkürler şimdiden...

 

[EmrExcel16]

Deneyiniz..

Sub Test()
    On Error Resume Next
    For i = 1 To 1000
        If Cells(i, 1) = "" Then
            Cells(i, 5) = Cells(i - 1, 5)
            Cells(i, 6) = Cells(i - 1, 6)
        End If
    Next
End Sub

 

[adildk]

Teşekkür ederim ufak bir modifikasyon ile hallettim.

 

[EmrExcel16]

Teşekkür ederim ufak bir modifikasyon ile hallettim.

Rica ederim , iyi çalışmalar.