Autofill Rumus Excel
kebanyakan orang membuat rumus dengan cara di drag kebawa ketika rumus nya sudah selesai satu
tapi saya ada cara cepat ketika data diisi maka rumus akan langsung otomatis keisi tanpa perlu drag ke, ini berguna jika data kamu memiliki lebih dari 1000 data lalu kamu drag sampai kebawa maka akan memakan waktu yang lama juga
Berikut cara menggunakan autofill rumus dari otomatis :
1. Kamu harus aktifkan menu developer di excel
2. masuk ke menu developer dan pilih visual basic
3. maka akan muncul menu baru lagi terus kamu klik dibagin VBAproject dengan nama sheet1 jika kamu akan menggunakan rumus di sheet 1 dan klik sampai muncul tampilan kosong
4.lalu pilih di bagian atas tulisan General ubah ke Worksheet dan declarations ubah ke Change
5. Lalu masukan koding seperti ini
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo handler
If Target.Column = 1 And Target.Value <> “” Then
Target.Offset(0, 1) = Format(Now())
End If
irow = Sheet1.Range(“C” & Rows.Count).End(xlUp).Row
Range(“F2”).AutoFill Destination:=Range(“f2:f” & irow)
handler:
End Sub
Ket :
If Target.Column = 1 And Target.Value <> “” Then
Target.Offset(0, 1) = Format(Now())
Ini di kolom 1 (A) jika di isi maka di kolom 2 (B) akan muncul tanggal hari ini
