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

 

Halo Pak Zasli,

1. Mungkin perlu dijelaskan, maksud dari replace tanda desimal dari titik menjadi koma.
2. Masih adakah data sebelum di replace tanda desimalnya dari titik menjadi koma ?

Bagaimana jika pengubahan tanda desimal dari titik menjadi koma (asumsi pada komputer dengan regional setting EN-US) dilakukan hanya pada saat hasil akhir saja. Jadi, proses peng-copy-an ke tempat lain bukanlah sebuah proses akhir.

Proses akhir biasanya adalah untuk proses dokumentasi tertulis (hard copy). Selama masih soft copy, maka untuk menampilkan dalam setting tanda desimal berupa koma, perlu pengubahan pada regional setting-nya (Control Panel)

Regards.
Kid

P.S. untuk Moderator
Sorry banget, sepertinya terkirim berulang-ulang, karena jaringan lagi putus sambung putus sambung kaya lagu, dan aplikasi sender-nya akan berusaha terus. Yang ini mestinya yang terakhir terkirim.

2010/2/12 ZASLI AFANDI B <zasli_e04@yahoo.co.id>

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

__._,_.___

Reply to sender | Reply to group

Messages in this topic (9)

Recent Activity:

• New Members 102

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

.

__,_._,___