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
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
Selec
iya berhasil pak Kid, Makasih
Pada tanggal 04/01/13, Mr. Kid 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.
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 spe
4 matches
Mail list logo