Hücre verisine bağlı sutunda veri değiştirme

[kemal turan]

Merhaba,
Aşağıdaki kod ile İf satırlarını pasif ettiğimde fiyat güncellemesini yapabiliyorum.
Fakat sayfada J sutununda hücrelerde "SERİ SONU VEYA KOD HATALI" yazıyorsa fiyatı değiştirmemesi gerekiyor
Onun için oluşturduğum if satırı sutunun tamamında verileri değiştirmiyor.
İf satırı hususunda yardımlarınızı rica ediyorum
Teşekkür ederim

Sub fıyatdegıstır()
On Error Resume Next
Set S2 = Sheets("ÜRÜNLER")
S2.[d2:e10000].ClearContents
For i = 2 To S2.Range("a65536").End(xlUp).Row
SonSatir = S2.Range("a65536").End(xlUp).Row + 1

'If S2.Cells(i, "j") = "SERİ SONU VEYA KOD HATALI" Then
'Exit Sub
'Else

S2.Cells(i, "d") = S2.Cells(i, "f")
S2.Cells(i, "e") = S2.Cells(i, "g")
'End If
Next i
MsgBox "VERİLER ALINDI"
End Sub

 

[cems]

Sub fıyatdegıstır()
On Error Resume Next
Set S2 = Sheets("ÜRÜNLER")
S2.[d2:e10000].ClearContents
For i = 2 To S2.Range("a65536").End(xlUp).Row
SonSatir = S2.Range("a65536").End(xlUp).Row + 1

' Eğer "SERİ SONU VEYA KOD HATALI" değilse, fiyatları kopyala
If S2.Cells(i, "J").Value <> "SERİ SONU VEYA KOD HATALI" Then
S2.Cells(i, "D").Value = S2.Cells(i, "F").Value
S2.Cells(i, "E").Value = S2.Cells(i, "G").Value
End If
Next i
MsgBox "VERİLER ALINDI"
End Sub

Bu değişiklik, eğer J sütunundaki hücredeki değer "SERİ SONU VEYA KOD HATALI" değilse, fiyatları kopyalar. Eğer bu değer varsa, fiyatları değiştirmez.

 

[kemal turan]

Teşekkür ederim

 

[kemal turan]

Sn cems merhaba
J sutununda "SERİ SONU VEYA KOD HATALI" ise D ve E sutunundaki verileri değiştirmemesi lazım.
Kod o hücreleri siliyor.

 

[kemal turan]

Merhaba
Tabiki aşağıdaki satır kodun başında verileri siliyor. Bizde veriler nereye gidiyor diyoruz.
kodu kadırınca sorun kalmadı.
Teşekkür ederim

S2.[d2:e10000].ClearContents

 

[cems]

kolay gelsin