Left ile ilgili bir kod yardımı

[haso_excel]

Merhaba arkadaşlar,

Sub satici()
For i = 2 To WorksheetFunction.CountA(Range("B:B"))
If Left(i, 4) = 1000 Then
Cells(i, 1).Value = "yurt ici"
ElseIf Left(i, 4) = 2000 Then
Cells(i, 1).Value = "fason satıcı"
End If
Next i
End Sub

Yukarıdaki kod ile ;
B kolonudaki verilerini içinde soldan 4 karakteri 1000 ise A kolonuna yurt içi, 2000 ile başlıyorsa fason böyle devam eden kriterleri yazdırmaya çalıştım ama anlayacağınız üzere biryerlerde hata yapıyorum ki olmadı, yardım edebilir misiniz lütfen?

 

[Huseyinkis]

Merhaba arkadaşlar,

Yukarıdaki kod ile ;
B kolonudaki verilerini içinde soldan 4 karakteri 1000 ise A kolonuna yurt içi, 2000 ile başlıyorsa fason böyle devam eden kriterleri yazdırmaya çalıştım ama anlayacağınız üzere biryerlerde hata yapıyorum ki olmadı, yardım edebilir misiniz lütfen?

Bu şekilde denermisiniz. siz i nin 4 karakterini alamaya calışmışsınız. i=2 de sadece tek karakter var

Sub satici()
For i = 2 To WorksheetFunction.CountA(Range("B:B"))
If Left(Cells(i, 2).Value , 4)*1 = 1000 Then
Cells(i, 1).Value = "yurt ici"
ElseIf Left(Cells(i, 2).Value , 4)*1 = 2000 Then
Cells(i, 1).Value = "fason satıcı"
End If
Next i
End Sub