makasih mbak citi, akan saya coba terapkan...
moshi moshi
siti Vi wrote:
>
>
> begini kah ?
> '------------
> Private Sub Bisa()
> ' siti Vi // 21 feb 2001 - for [milis belajar-excel]
> Dim ListA As Range, ListB As Range, Hasil As Range
> Dim NRow As Long, r As Long, n As Long
> Set ListA = Sheets("a").Cells(1).CurrentRegion.Offset(1, 0)
> Set ListB = Sheets("b").Cells(1).CurrentRegion.Offset(1, 0)
> Set Hasil = Range("B21")
> NRow = WorksheetFunction.Max(ListA.Rows.Count, ListB.Rows.Count) - 1
> Hasil.CurrentRegion.Offset(1, 0).Clear
> For r = 1 To NRow
> n = n + 1
> ListA(r, 1).Resize(1, ListA.Columns.Count).Copy Hasil(n, 1)
> n = n + 1
> ListB(r, 1).Resize(1, ListB.Columns.Count).Copy Hasil(n, 1)
> Next r
> End Sub
> '------------
>
>
> ------------------------------------------------------------------------
>
> ----- Original Message -----
> *From:* t0f1q <mailto:[email protected]>
> *Sent:* Monday, February 22, 2010 5:23 AM
>
> *ajarin donk caranya mbak citi...
> *
> siti Vi wrote:
> > q: "*ada gak* cara yang pake rumus makronya"
> > *a: *"ada !" *(lebih tepatnya: "bisa dibuat")
> *>
> ------------------------------------------------------------------------
> >
> > ----- Original Message -----
> > *From:* t0f1q <mailto:[email protected]
> <mailto:[email protected]>>
> > *To:* [email protected]
> <mailto:[email protected]>
> > *Sent:* Monday, February 22, 2010 3:46 AM
> >
> > makasih mbat citi, tapi **ada gak** cara yang pake rumus
> makronya?
> > biar nampak lebih keren gitu.. hehehe ;)
> >
> > siti Vi wrote:
> > > cara lain...
> > > *=INDIRECT(ADDRESS(*
> >
> FLOOR(ROW(A1)-1,2)/2+2,COLUMN(A1),2,1,IF(MOD(ROW(A1),2)=1,"a","b")))*
> > > FORMULA INI
>
>
------------------------------------
/---------------------------------------------------------------\
| bergabung ke milis (subscribe) |
| kirim mail kosong ke: [email protected] |
| |
| posting ke milis |
| kirim kan ke: [email protected] |
| |
| melihat file archive / mendownload lampiran |
| http://www.mail-archive.com/[email protected]/ |
| |
| menhubungi moderators & owners: |
| [email protected] |
| |
| ExcelWeb <http://opi.110mb.com/> |
\---------------------------------------------------------------/Yahoo! Groups
Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-excel/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-excel/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
