Re: ]] XL-mania [[ copy tanggal sebanyak x yang diinput secara manual

 

kalau punya maksud yg mau dimakrokan
harusnya maksud itu sudah OK dulu
maksudnya tidak mendua arti, salah logika dsb

hasil cell C1 = 5
tetapi  anda ingin membuat range A5:F5 yg terdiri dari 6 cell
anda anggap 5 cell
nah ini yg akan mempersulit pengCODE annya

Mungkin yg anda maksudkan sbb:

keadaan di sheet sebelum makro dijalankan
A1 berisi sembarang data tanggal
B1 berisi data tanggal yg  > A1

keadaan sheet setelah makro dijalankan
cell A5 = data tgl di A1
cells di sebelah kanan A5 = tanggal tanggal-tanggal berikutnya (urut)
dan berakhir dengan tanggal seperti data di B1

CODE VBA nya (ditulis di module Sheet terkait)

Sub YaGituDeh()
Dim c As Integer, JumlahItem As Integer
JumlahItem = Range("B1") - Range("A1") + 1
For c = 1 To JumlahItem
Range("A5").Cells(1, c) = Range("A1") + c - 1
Next c
End Sub

On Tue, Jun 15, 2010 at 9:03 AM, si_aimin <kla10_ok@yahoo.com> wrote:

Hi para master semua,
Nama saya Apung, saya baru gabung disini. saat ini saya sedang membuat makro di excel. saya mohon bantuannya kepada Master2 semua disini gimana caranya ya saya copy tanggal secara otomatis jika saya input tanggal di akhir tanggal menggunakan makro? adapun contohnya sbb :

A1         B1           C1
01/01/2009 06/01/2009   =datedif(A1;B1;"d") -- (hasil 5)

saya ingin di cell A5:F5 (range sebanyak C1) terisi sbb:
A5          B5          C5          D5          E5         F5
01/01/2009  02/01/2009  03/01/2009  04/01/2009  05/01/2009 06/01/2009

terima kasih atas  bantuannya.

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 175

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momod akan terdampar seminggu lagi, moderasi akan lemodmod...     |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh...       |
| 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

.

__,_._,___