Maaf pak, yang ini gak pakai looping.
Moga-moga tidak mengecewakan.
'---- mulai disini ----
Dim rngIsian As Range
Dim rngDb As Range
Set rngIsian = Sheets("isian").Range("a1").CurrentRegion
Set rngDb = Sheets("db").Range("a1").CurrentRegion
rngIsian.Offset(0, 1).Resize(columnsize:=1).Copy
rngDb.Resize(1, 1).Offset(rngDb.Rows.Count).PasteSpecial xlPasteValues,
Transpose:=True
'--- berakhir disini ----
Regards.
Kid.
2010/4/8 muhammad basyir anshori <[email protected]>
>
>
> 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
>
>
