rakamlar arasındaki noktayı alt cigi yapma

[oydemir]

arkadaşlar a2 sütununa noktalı rakam yazarken a9 sütununa aynı anda alt çizgili yazmasını istiyorum teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Makrolu çözüm daha kullanışlı olacaktır. Sizin için uygun olur mu.

. . .

 

[oydemir]

olur teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    sat1 = 9
    sat2 = 9
    
    For i = 2 To 6
        Cells(sat1, "A") = WorksheetFunction.Substitute(Cells(i, "A"), ",", "_")
        sat1 = sat1 + 1
        
        If Cells(i, "C") <> "" Then
            If Cells(i, "C") Like "*/*" Then
                a = Len(Cells(i, "C")) - Len(WorksheetFunction.Substitute(Cells(i, "C"), "/", ""))
                
                For s = 0 To a
                    Cells(sat2, "C") = Split(Cells(i, "C"), "/")(s)
                    sat2 = sat2 + 1
                Next s
            End If
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

İşlem Sonucu:

. . .

 

[oydemir]

teşekkür ederim elinize sağlık