soldan 3 karakter

[macay]

Sayın Üstadlar;
Forumda aradım ama tam çözümünü bulamadım..A sütünunda bulunan hücrelerdeki değerlerden soldan 3 karakteri b hücresine almak istiyorum..."=soldan(A1;3)" gibi bir formülle değil ama kod ile çözmek istiyorum yardımcı olabilirmisiniz...

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SOLDAN_3_KARAKTER_AYIR()
    [COLOR=red][B]Dim X As Long[/B][/COLOR]
    [B:B].ClearContents
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then Cells(X, 2) = Left(Cells(X, 1), 3)
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Recep İpek]

Sub al()
For i = 2 To 50
Cells(i,"b").Value=Left(Cells(i,"a"),3)
Next i
End Sub

olarak deneyiniz.

 

[macay]

Sayın üstadlar her iki örnektede for x ve for 1 için compile eror hatası verdi...benmi yapamadım acaba??

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Bu hata mesajını kodların en üst kısmında bulunan aşağıdaki satırdan dolayı alıyorsunuz. Eğer kod editöründe bu komut kullanılmışsa mutlaka kullandığınız kodlardaki değişkenleri tanımlamanız gerekmektedir. Aksi halde hata mesajı alırsınız.

Üstteki mesajımı hata vermeyecek şekilde düzenledim. Denermisiniz.

Option Explicit

 

[macay]

Sayın Cost control

Evet dediğinizi yapınca program çalıştı...Allah sizden razı olsun...Allah'a emanet olun

Saygılarımla,

Sub SOLDAN_3_KARAKTER_AYIR()
Dim X As Long
[c:c].ClearContents
For X = 1 To [A65536].End(3).Row
If Cells(X, 1) <> "" Then Cells(X, 2) = Left(Cells(X, 1), 3)
Next
MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub