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

Dear Mas Afan

 

Coba dgn Macro ini mas.

 

+++++++++++++++++++++++++++++++++++++++++++

Private Sub CommandButton1_Click()
Dim rng As Range
Dim rCell As Range

 

Set rng = Range("D2:D10")
rng.Copy

 

Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues
For Each rCell In Selection
    rCell = CDec(rCell)
    rCell.NumberFormat = "General"
Next
Application.CutCopyMode = False
End Sub
+++++++++++++++++++++++++++++++++++++++++++

 

Saya mencoba mengkonvertnya dengan fungsi CDec

 

Thanks Riky

----- Original Message -----

From: ZASLI AFANDI B

To: XL Mania

Sent: Friday, February 12, 2010 4:48 PM

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

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