FOX028: Izmeni tvoj kod iz VBA sa ovim
Code:
Sub Button1_Click()
Dim SviTel As String
Dim Izlaz As String
Dim Telefon
For Each Telefon In Selection
If Telefon <> "" Then
Telefon = Replace(Telefon, "/", "")
Telefon = Replace(Telefon, "-", "")
SviTel = Telefon & "; " & SviTel
End If
Next
SviTel = Trim(SviTel)
SviTel = Left(SviTel, Len(SviTel) - 1)
'Pravi .txt fajl u folderu gde je i ovaj Excel fajl
Izlaz = ActiveWorkbook.Path & "\Telefoni.txt"
Open Izlaz For Output As #1
Print #1, SviTel
Close #1
Call Shell("notepad.exe " & Izlaz, vbNormalFocus)
End Sub
i mozes ostaviti brojeve kako su ti upisani u formatu 065/111-2222.