anilman
Altın Üye
- Katılım
- 12 Ağustos 2020
- Mesajlar
- 65
- Excel Vers. ve Dili
- Microsoft 365 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 25-09-2027
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
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