Tablo'da Şarta Göre Veri Aktarma

[mbasaranyt]

Şartlı veri Aktarımı ile ilgili birçok örnek buldum ama Buna uyarlayamadım.
Teşekkürler.

 

[Ömer]

Merhaba,

Siz I sütununa veri alırken C ve F sütunlarını kullanmışsınız. Devamında C ve F veri alırken I sütununu kullanmak mı istiyor sunuz.

Doğru anladıysam mantık hatası yok mu?

 

[mbasaranyt]

Diğer Sütunlar Başka Tablolardan veri çekiyor.
Yeni Yıl Dosyası Oluşturduğumda onlar sııfırlanıyor.

 

[Ömer]

Konuyu anlamadığım için bana mantıklı gelmemiş olabilir.

Sub devir()
    
    Dim i As Long
    
    Application.ScreenUpdating = False

    For i = 3 To Cells(Rows.Count, "I").End(xlUp).Row
        If Cells(i, "I") < 0 Then
            Cells(i, "C") = Abs(Cells(i, "I"))
            Cells(i, "F") = 0
        Else
            Cells(i, "F") = Cells(i, "I")
            Cells(i, "C") = 0
        End If
    Next i
    
End Sub