Belirli hücredeki ilk harfin aktarımı hakkında

[drummers]

Modül1 deki makrom ile "data" sekmesindeki "AU" sütununda bulunan verileri "Smmm Bildirim" sekmesindeki "F" sütununa aktarıyorum.

Sorum Şudur: "data" sekmesindeki "AU" sütununda bulunan kelimelerinin değilde bunların ilk harflerinin "F" sütununa aktarılmasını istiyorum

Örnek: İşletme.............. İ
Bilanço.............. B
Serbest Meslek... S

Teşekkürler.

 

[hamitcan]

Aktarım yapdıktan sonra aşağıdaki kodu çalıştırın.

Sub degistir()
sheets("Smmm Bildirim").select
    For Each hcr In Range("f17:f" & [f65536].End(3).Row)
        If hcr = "" Then GoTo don
        If Trim(hcr) = "İşletme" Then Cells(hcr.Row, "f") = "İ"
        If Trim(hcr) = "Bilanço" Then Cells(hcr.Row, "f") = "B"
        If Trim(hcr) = "Serbest Meslek" Then Cells(hcr.Row, "f") = "S"
don:
    Next
End Sub

 

[drummers]

Aktarım yapdıktan sonra aşağıdaki kodu çalıştırın.

Sub degistir()
    For Each hcr In Range("f17:f" & [f65536].End(3).Row)
        If hcr = "" Then GoTo don
        If Trim(hcr) = "İşletme" Then Cells(hcr.Row, "f") = "İ"
        If Trim(hcr) = "Bilanço" Then Cells(hcr.Row, "f") = "B"
        If Trim(hcr) = "Serbest Meslek" Then Cells(hcr.Row, "f") = "S"
don:
    Next
End Sub

bu kod bende hata veriyor sebebini anlamadım. 2003 versiyonu kullanmaktayım

 

[hamitcan]

Kodu düzelttim, şimdi deneyin.