Makro rakam formatını bozdu

[GUERRA]

çalışma kitabına eklediğim aşağıdaki kodlardan sonra , dışarıdan yaptığım copy-paste işleminde rakamlar eur olarak geliyor. bundan kurtulmak mümkün mü?


------------------------------

Sub Button1_Click()
Columns("D:D").Select
Selection.Copy
Columns("J:J").Select
ActiveSheet.Paste
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Columns("L:L").Select
ActiveSheet.Paste
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Copy
Columns("M:M").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Columns("N:N").Select
ActiveSheet.Paste
Range("a1:g1000").Clear
Range("j1:N100").Select
Selection.Copy
Sheet1.Activate
End Sub

------------------------------------

Sub Macro1()
'
' Macro1 Macro
'
 
'
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Columns("B:B").Select
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
End Sub

---------------------------------------

 

[security]

ekteki resimi inceleyiniz...