coba,
Sub xyz()
Application.ScreenUpdating = False
Z = Sheets("db").Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").CurrentRegion.Offset(, 1).Resize(, 1).Copy
Sheets("db").Range("A" & Z + 1).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub
>semoga bermanfaat
________________________________
From: muhammad basyir anshori <[email protected]>
To: [email protected]
Sent: Thu, April 8, 2010 4:50:35 PM
Subject: ]] XL-mania [[ looping macro untuk database
Sebelumnya saya ucapkan terima kasih jika pertanyaan ini dimuat.
Setelahnya saya minta maaf jika pertanyaan saya ini pernah dibahas, dan dijawab
pada periode-periode sebelumnya.
Pertanyaan:
Bagaimana membuat looping untuk macro yang saya pakai untuk membuat database
nilai
sebagaimana terlampir?
Sekali lagi, terima kasih
anshori
