YTL ve kuruş haneleri ayrı hücrelere ayrılması

[metinavci23]

merhaba arkadaşlar,

bir makroya ihityacım var.ekte görünen dosyada sayfa1 bulunan rakamları
Sayfa2 'ye YTL ve Yk ayrı hücrelerde görünmesini istiyorum.yardımınıza ihtiyacım var.şimdiden teşekür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle bağlayıp deneyebilir misiniz?

Sub LiraKurus()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.[A:B].ClearContents
s1.Select
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    Lira = Int(Cells(i, "A"))
    Kurus = (Cells(i, "A") - Lira) * 100
    s2.Cells(i, "A") = Lira
    s2.Cells(i, "B") = Kurus
Next i
MsgBox "İşlem Tamamdır", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[metinavci23]

cevap

teşekürler sayın Yesertener.çok güzel olmuş.ellerinize sağlık