]] XL-mania [[ Convert text to number (copy paste)

[ZASLI AFANDI B]

Hallo para xl-mania Saya mempunyai ,masalah saat mengcopy dan paste data. Sebelumnya data tersebut hanya menggunakan tada titik sebagai penanda koma. Sehingga saya replace dengan tenda koma. Akan tetapi masalah terjadi ketika saya meng copy data tersebut ke workbook lain (pake makro), data tersebut dibaca sebagai text, (see attachment) Yang saya ingin tanyakan adalah, bagaimana cara sehingga, saat data tersebut saya paste maka disimpan dalam angka bukan teks Sub COPY_DATA() SOURCE_DATA = ActiveWorkbook.Name FILE_NAME = Application.GetOpenFilename("Excel Files  (*.xls), *.xls", , "Buka File Tujuan", , False) DEST_BOOK = ActiveWorkbook.Name Windows(SOURCE_DATA).Activate Range("A10:P10").Select ' misalnya angka yang ingin saya paste di kolom B, pada kolom selainnya berisi data text Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(DEST_BOOK).Activate Sheets("Sheet2").Select Cells(B, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _       :=False, Transpose:=False Application.CutCopyMode = False End Sub Gambar berikut menampilkan data sebelumnya kemudian data sesudah saya replace tanda titik mencajdi koma kemudian copy-paste Terima kasih wassalam Zasli