TUTORIAL - EXCEL INTERMEDIATE

06 Perkenalan VBA

______________
Untuk File Latihan Bisa di download di sini

---

Pembahasan latihan

1. Materi Menu interface
Bisa di-cek atau di-download disini

2. Materi Userform (Insert, Update, Delete, FIlter)
Bisa di-cek atau di-download disini

---

**Kode Program**

Meng-copy sebuah cell
Sub copy_cell_1halaman()
Worksheets("data").Cells(1, 1).Copy
Worksheets("data").Cells(1, 7).Select
Worksheets("data").Paste
End Sub

---

Meng-copy sebuah range
Sub copy_rang_dalam1halaman()
Worksheets("data").Range("A1:C10").Copy
Worksheets("data").Range("H1").Select
Worksheets("data").Paste
End Sub

---

Meng-copy sebuah cell ke sheet lain
Sub copy_cells_Bedahalaman()
Worksheets("data").Cells(2, 3).Copy
Worksheets("hasil").Select
Worksheets("hasil").Cells(1, 1).Select
Worksheets("hasil").Paste
End Sub

---

Meng-copy sebuah range ke sheet lain
Sub copy_range_Bedahalaman()
Worksheets("data").Range("A2:C10").Copy
Worksheets("hasil").Select
Worksheets("HASIL").Range("B2").Select
Worksheets("hasil").Paste
End Sub

---

Memberikan filter dengan kriteria tertentu (statis)
Sub filter_data_1a()
Worksheets("data").Range("A:E").AutoFilter field:=3, Criteria1:="1A"
End Sub

---

Membersihkan filter
Sub clearfilter()
Worksheets("data").Range("A:E").AutoFilter
End Sub

---

Memberikan filter dengan kriteria tertentu (dinamis)
Sub filter_g1()
Worksheets("data").Range("A:E").AutoFilter field:=3, Criteria1:=Worksheets("data").Range("G1").Value
End Sub