Hücre Değerlerini Başka Hücrelere Taşıma

[anilman]

Merhaba
B sütununda yer hücrelerde 'ÖNCEKİ' ile başlayan farklı farklı cümlelerim var.
Kod yardımıyla Önceki ile başlayan hücreleri baz alarak J ve K Hücrelerindeki Tutarlarımı Q ve R Hücrelerine taşımasını istiyorum.
Fakat aşağıdaki kodları kullanırken işlem yapmıyor. Nerede nasıl bir değişiklik yapmam gerekiyor?

Dim X As Long

For X = 3 To Cells(Rows.Count, "B").End(3).Row
If Cells(X, "B") = "=ÖNCEKİ" Then
Cells(X, "Q") = Cells(X, "J")
Cells(X, "R") = Cells(X, "K")
Cells(X, "J") = ""
Cells(X, "K") = ""
Selection.NumberFormat = "#,##0.00 $"
Range("S5").Select
End If
Next
MsgBox "Önceki Dönemden Gelen Tutarlar Yerleşti.", vbInformation
End Sub

 

[dEdE]

Merhaba,
Mevcut koddaki "=ÖNCEKİ" sözcüğünü "ÖNCEKİ" şeklinde değiştirerek (= işareti olmadan) dener misiniz?

 

[anilman]

Maalesef taşımadı

 

[dEdE]

Benimkisi de dikkatsizlik
If Cells(X, "B") = "=ÖNCEKİ" Then Satırını aşağıdaki şekilde değiştiriniz
If Left(Cells(X, "B"), 6) = "ÖNCEKİ" Then

 

[anilman]

İndir ÖRNEK

Dosyayı indir ÖRNEK

dosya.co

 

[dEdE]

4 no.lu mesajı güncelledim
Dikkat: Kodda X=3 yazmışsınız ama verileriniz 2. satırdan başlıyor. Yine j sütununu taşmak istiyorsunuz ama verileriniz K sütununda.
Özet Örnek dosya ile kodlarınız uyumlu değil

 

[anilman]

Örnek dosyada evet ona dikkat etmedim orijinal dosyamda yerli yerine oturdu çalışıyor, Çok teşekkürler.

 

[anilman]

Merhaba, yukarıdaki çalışmamda değişiklik yaptım. Yerleştirme işlemini belli bir kelimeye göre değil de, hücre rengine göre yapmasını istiyorum. Kodda nasıl bir değişiklik yapılabilir? Yardımınızı rica etsem. Renk Kodu RGB(112, 48, 160)

Dim X As Long

For X = 3 To Cells(Rows.Count, "B").End(3).Row
If Cells(X, "B") = "=ÖNCEKİ" Then
Cells(X, "Q") = Cells(X, "J")
Cells(X, "R") = Cells(X, "K")
Cells(X, "J") = ""
Cells(X, "K") = ""
Selection.NumberFormat = "#,##0.00 $"
Range("S5").Select
End If
Next
MsgBox "Önceki Dönemden Gelen Tutarlar Yerleşti.", vbInformation
End Sub