]] XL-mania [[ modify macro

 

RR,

Salam kenal RR XL-mania,
Saya masih newbie banget di milist maupun di XL application ini dan skrg lagi mencoba belajar membuat looping buat macro sederhana guna menunjang kerjaan sekaligus mendalami excel appl.

saya punya macro manual spt ini yg sangat statis dan skrg saya mencoba untuk menggantinya dengan looping.

Sub Define_ExtGsmCell()
'
' Define_ExtGsmCell Macro
' parsing
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.FormulaR1C1 = "= ""cr RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[1]C[1]"
Range("A2").Select
ActiveCell.FormulaR1C1 = "= input!RC&"" #cell id"""
Range("A3").Select
ActiveCell.FormulaR1C1 = "= input!R[-1]C[3]&"" #ncc"""
Range("A4").Select
ActiveCell.FormulaR1C1 = "= input!R[-2]C[4]&"" #bcc"""
Range("A5").Select
ActiveCell.FormulaR1C1 = "= input!R[-3]C[5]&"" #bcchfrequency"""
Range("A6").Select
ActiveCell.FormulaR1C1 = "= input!R[-4]C[6]&"" #lac"""
Range("A1").Select
Selection.Copy
Range("A7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= ""cr RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[-4]C[1]"
Range("A2").Select
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-5]C&"" #cell id"""
Range("A3").Select
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-6]C[3]&"" #ncc"""
Range("A4").Select
Selection.Copy
Range("A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-7]C[4]&"" #bcc"""
Range("A5").Select
Selection.Copy
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-8]C[5]&"" #bcchfrequency"""
Range("A6").Select
Selection.Copy
Range("A12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-9]C[6]&"" #lac"""
Range("A7").Select
Selection.Copy
Range("A13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= ""cr RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[-9]C[1]"
Range("A8").Select
Selection.Copy
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-10]C&"" #cell id"""
Range("A9").Select
Selection.Copy
Range("A15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-11]C[3]&"" #ncc"""
Range("A10").Select
Selection.Copy
Range("A16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-12]C[4]&"" #bcc"""
Range("A11").Select
Selection.Copy
Range("A17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-13]C[5]&"" #bcchfrequency"""
Range("A12").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-14]C[6]&"" #lac"""

dst.. sampai .. End Sub

.... saya mencoba untuk menganti dengan looping tetapi selalu gagal..

terima kasih buat RR yg bisa kasih masukan biar data yg di olah menjadi variabel dan juga macronya sendiri lebih dinamis.

Salam

Lepi

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 114

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| 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

.

__,_._,___