eğer yada kullanımı hk.

[mrt]

Selamlar;

Ekli kodda If Left(Cells(i, 3), 1) = "N" yada If Left(Cells(i, 3), 1) = "S" ise

Cells(i, 1).FormulaR1C1 = Mid(Cells(i, 3), 13, 8) yaz demek istiyorum.


Kısaca; 1. değer N veya S ise 13. karakterden itibaren 8 karakter yazsın.

Nasıl yapabilirim.

Saygılarımla,


Sub mtyf_no()

Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1

If Left(Cells(i, 3), 1) = "N" Then

Cells(i, 1).FormulaR1C1 = Mid(Cells(i, 3), 13, 8)

End If
Next i
Application.ScreenUpdating = True

End Sub

 

[Mahmut Kök]

If Left(Cells(i, 3), 1) = "N" or Left(Cells(i, 3), 1) = "S" then

...

 

[mrt]

Ellerinize sağlık,

Teşekkürler,