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 <[email protected]> menulis:
> iya berhasil pak Kid, Makasih
>
> Pada tanggal 04/01/13, Mr. Kid <[email protected]> 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 <[email protected]>
>>
>>> **
>>>
>>>
>>> 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
>>> _
>>>
>>>
>>
>
