İki krıterli döngü ile veri değiştirme

[kemal turan]

Merhaba,
İki krıtere dayalı döngü ile veri değiştirme koduna ihtiyacım var.
Örnek dosyada açıkladım.
Teşekkür ederim.

 

[turist]

Kodu düğmeye bağlayın, deneyin.

Sub Dikdörtgen1_Click()
Dim ws1 As Worksheet: Set ws1 = Sheets("CNCPLNYAZ")
Dim ws2 As Worksheet: Set ws2 = Sheets("VERITABANI")
Dim son As Long: son = ws2.Range("F65536").End(xlUp).Row
For i = 2 To son
If ws1.Range("C3") = ws2.Cells(i, "F") And ws1.Range("C2") = ws2.Cells(i, "U") Then
ws2.Cells(i, "V").Value = "PLANLANDI"
End If
Next
End Sub

 

[kemal turan]

Sn. Turist hocam merhaba,
Biraz gecikmeli bakabildim.
Emeğiniz için çok teşekkür ederim.
Selametle kalınız.