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

 

masih meminjam sheet dari pak ricky;

siti usul makro spt ini

 

Private Sub CommandButton2_Click()
   ' siti Vi / 14 feb 2010
   '-----------------------
   Dim rCell As Range
   For Each rCell In Range("D2:D10")
      rCell(1, 5).NumberFormat = "General"
      rCell(1, 5) = Val(Replace(rCell, ",", "."))
   Next

End Sub

 

'setting di pc:  TandaPemisahDesimal = TITIK

 

---

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

From: Riky Yonathan

To: XL-mania@yahoogroups.com

Sent: Sunday, February 14, 2010 9:06 AM

Subject: 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

__._,_.___

Reply to sender | Reply to group

Messages in this topic (5)

Recent Activity:

• New Members 98

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Happy Valentine's Day! Gong Xi Fat Choi! Jangan lupa kiriman      |
| coklatnya buat momods... kekekekekeke....                         |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___