Kritere Göre Hücrelerdeki Veriyi Taşıma

[anilman]

Merhaba ekteki listemde makro yardımıyla 'Açıklama' sütununda 'Önceki Dönem' metni varsa bu satırdaki 'Matrah ve KDV'yi' Q ve R sütununa taşımasını istiyorum,
Yardımcı olabilir misiniz? Teşekkürler

https://mega.nz/file/1l5z2KrL#vlO9u00W56nnczD1a8bK0UKiAczS4gZo_f8FcPqCCuU

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Sub Bakiye_Aktar()
    Dim X As Long
    
    For X = 3 To Cells(Rows.Count, "B").End(3).Row
        If Cells(X, "B") = "ÖNCEKİ DÖNEM" Then
            Cells(X, "Q") = Cells(X, "J")
            Cells(X, "R") = Cells(X, "K")
            Cells(X, "J") = ""
            Cells(X, "K") = ""
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[anilman]

Çok teşekkürler, yalnız verileri genel hücre biçiminde taşıyor, sayı olarak almamız mümkün mü?

 

[Korhan Ayhan]

Aktarılan alanı elle bir kez sayı olarak biçimlendirirseniz sorun çözülecektir.

 

[anilman]

Peki sağolun