Yardim - Kosula Gore Sutundan Deger Kopyalama

[b_yasar2014]

Merhabalar,

B sutununda "Other" yazan hucreye C sutununda karsiliginda yazan degeri getirecek bir kod ariyorum. Ayni konunun yan sayfaya kopyalayan orneklerini bulsam da kod bilgim yeterli olmadigi icin kendi ornegime uygulayamadim.

Dosyamin ornegini ekliyorum, yardimci olabilirseniz cok sevinirim.

Tesekkurler

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub yandan_al()
For i = 1 To Cells(Rows.Count, "B").End(3).Row
    If Cells(i, "B") = "Other" Then
        Cells(i, "B") = Cells(i, "C")
    End If
Next
End Sub

 

[b_yasar2014]

Aşağıdaki kodları deneyiniz:

Sub yandan_al()
For i = 1 To Cells(Rows.Count, "B").End(3).Row
    If Cells(i, "B") = "Other" Then
        Cells(i, "B") = Cells(i, "C")
    End If
Next
End Sub

Cok tesekkurler, sorunum cozuldu.