TL , krş ayırma

[stres]

Herhangi bir hücreye mesela A1 hücresine 125,25 yadığımda bu rakamın TL olan bölümü A1 e KRŞ olan kısmınında B1 e yazdırılması mümkünmü dosya ektedir

 

[S.Yiğit]

Merhaba,

İlgili sütunu seçip aşağıda yazdıklarımı uygularsanız istediğiniz olur.

Veri / Metni Sütunlara Dönüştür / Sınırlandırılmış'ı seçin / İleri / Virgül'ü seçin / Son

 

[stres]

Merhaba.
Teşekkürler S.Yiğit sizin dediğiniz şekilde yapıyorum oluyor .Makro ile olma ihtimali varmıdır ? Ki her seferinde a1 hücresine sayı gırdiğimde bahsettiğiniz işlemeri yapmak durumunda kalmıyım.

 

[nevermore]

alternatif olsun buda:
a1 hücresinde sayı yazılı ise b1'e
=IFERROR(LEFT(A1;SEARCH(",";A1;1)-1);A1)

c1'e
=IFERROR(RIGHT(A1;LEN(A1)-SEARCH(",";A1;1));0)
yapıştırın.
iyi akşamlar.

IFERROR=EHATALIYSA
RIGHT = SAĞDAN
SEARCH = ARA
LEFT = SOLDAN

 

[Necdet]

Merhaba.
Teşekkürler S.Yiğit sizin dediğiniz şekilde yapıyorum oluyor .Makro ile olma ihtimali varmıdır ? Ki her seferinde a1 hücresine sayı gırdiğimde bahsettiğiniz işlemeri yapmak durumunda kalmıyım.

Sadece belli bir hücre mi, yoksa belli sütundaki hücrelere mi giriş yapacaksınız?

 

[stres]

Sadece belli bir hücre mi, yoksa belli sütundaki hücrelere mi giriş yapacaksınız?

Özür dileyerek başlıyorum çünki elimde olmayan sebeplerden dolayı çıkmış bir daha gelememiştim. Sorunuza gelince necdet hocam mesela a1 hücresine ve c5 hücresine

 

[Necdet]

Özür dileyerek başlıyorum çünki elimde olmayan sebeplerden dolayı çıkmış bir daha gelememiştim. Sorunuza gelince necdet hocam mesela a1 hücresine ve c5 hücresine

A1 hücresine TL, C5 hücresine de Kuruş mu yazılacak?

Pek anlaşılır olmadı.

Ama örnek olması açısından, A1 ve C5 e yazılan rakamların tam sayıları A1 ve C5, Kusuratları ise B1 ve D5 e yazar.

Aşağıdaki kodların ilgili sayfanın kod bölümünde olması gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1,C5]) Is Nothing Then Exit Sub
Dim i   As Integer, _
    klm As String, _
    s
Application.EnableEvents = False
If Target.Value = "" Then
    Target.Offset(0, 1) = ""
Else
    klm = Target.Value
    s = Split(klm, ",")
    For i = 0 To UBound(s)
        Target.Offset(0, i) = s(i)
    Next i
End If
Application.EnableEvents = True
Son:
End Sub

 

[Necdet]

Alternatif

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1,C5]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = _
    Application.WorksheetFunction.Round(Target.Value - Fix(Target.Value), 2) * 100
Target.Offset(0, 0) = Fix(Target.Value)
Application.EnableEvents = True
Son:
End Sub

 

[stres]

Teşekkürler Hocam eline emeğine sağlık