Aktar

[nadirornek]

Merhaba
B2:B12 aralığında IN. E 5R ve R-17HD kodlarına
karşılık gelen A2:A12 aralığındaki numaraları C sutununa aktarsın
A sutunundaki hüçre boş kalsın

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub aktar()
For i = 1 To Cells(65536, 2).End(3).Row
If Cells(i, 2) = "IN. E 5R" Or Cells(i, 2) = "R-17HD" Then
Cells(i, 3) = Cells(i, 1)
Cells(i, 1) = ""
End If
Next
End Sub

 

[nadirornek]

Teşekkürler
Bu kod işimi gördü