Bisa,
Coba begini :
1. Bagian :
Range("E2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("E2").Select
Selection.Copy
tugasnya pasang formula lalu copy cell berformula
Range("e2").formula="=e1"
range("e2").copy
2. Bagian :
Range("A4:B15").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste
tugasnya memblok cell kosong dalam tabel hanya dikolom A dan B
range("a4").currentregion.resize(,2).specialcells(xlcelltypeblanks).pastespecial
xlpasteformulas
3. Bagian :
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
tugasnya meng-copy yang sudah terselect hasil bagian 2, lalu paste specail
values
range("a4").currentregion.resize(,2).copy
range("a4").currentregion.resize(,2).pastespecial xlpastevalues
bisa juga dengan :
range("a4").currentregion.resize(,2).value =
range("a4").currentregion.resize(,2).value
Mungkin bisa minta tolong dicoba sekalian (di prosedur baru saja kali ya),
script berikut :
Range("e2").formula="=e1"
range("e2").copy
range("a4").currentregion.resize(,2).specialcells(xlcelltypeblanks)
range("a4").currentregion.resize(,2).value=
range("a4").currentregion.resize(,2).value
Wassalam,
Kid.
2013/1/4 him mah <himmah....@gmail.com>
> **
>
>
> maaf pak KId, kalau dijadikan fungsi VBA bisa ngga ya (tadi saya buat
> pakai record macro, tapi koq kurang dinamis kayanya)
>
> Sub Macro2()
> '
> ' Macro2 Macro
> '
>
> '
> Range("E2").Select
> ActiveCell.FormulaR1C1 = "=R[-1]C"
> Range("E2").Select
> Selection.Copy
> Range("A4:B15").Select
> Selection.SpecialCells(xlCellTypeBlanks).Select
> ActiveSheet.Paste
> Range("A4:B15").Select
> Application.CutCopyMode = False
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
> _
> :=False, Transpose:=False
> End Sub
>
> Pada tanggal 04/01/13, him mah himmah....@gmail.com> menulis:
>
> > iya berhasil pak Kid, Makasih
> >
> > Pada tanggal 04/01/13, Mr. Kid mr.nm...@gmail.com> menulis:
> >> Wa'alaikumussalam Wr. Wb.
> >>
> >> Hai Himmah,
> >>
> >> Coba langkah berikut :
> >> 1. di sebuah cell kosong di baris 2 Excel (misal di z2) isi dengan
> >> formula
> >> : =z1
> >> 2. copy cell z2 yang berisi formula (klik cell z2 tekan CTRL C)
> >> 3. blok area data yang cell kosongnya akan diisi (boleh dengan header)
> >> 4. aktifkan goto special (tekan CTRL G -> tekan tombol Special)
> >> 5. pilih opsi Blank dan tekan OK
> >> 6. paste dengan menekan CTRL V
> >> 7. jika akan di values, blok seluruh data pada kolom yang tadinya cell
> >> kosong
> >> 8. copy (tekan CTRL C )
> >> 9. paste special values dengan : klik kanan sebuah cell -> pilih paste
> >> special -> pilih values -> tekan OK
> >>
> >> Wassalam,
> >> Kid.
> >>
> >> 2013/1/4 him mah himmah....@gmail.com>
> >>
> >>> **
> >>>
> >>>
> >>> Assalamu'alaikum Wr. Wb.
> >>> maaf, mau tanya lagi
> >>>
> >>> kita punya sheet yang datanya ada yang kosong (seperti dibawah), nah
> >>> untuk data atau baris yang kosong akan diisi oleh data yang ada
> >>> dibaris sebelumnya (file terlampir), kira-kira VBA nya seperti apa ya.
> >>> terima kasih
> >>>
> >>> misal kita punya data seperti ini
> >>>
> >>> NO NAMA TAHUN
> >>> 1 A 2010
> >>> 2011
> >>> 2012
> >>> 2 B 2010
> >>> 2011
> >>> 2012
> >>> 3 C 2011
> >>> 2012
> >>> 4 D 2009
> >>> 2010
> >>> 2011
> >>>
> >>> hasil yang diharapkan seperti ini
> >>>
> >>> NO NAMA TAHUN
> >>> 1 A 2010
> >>> 1 A 2011
> >>> 1 A 2012
> >>> 2 B 2010
> >>> 2 B 2011
> >>> 2 B 2012
> >>> 3 C 2011
> >>> 3 C 2012
> >>> 4 D 2009
> >>> 4 D 2010
> >>> 4 D 2011
> >>> _
> >>>
> >>>
> >>
> >
>
>
>
