Meghapus Data Dari Dua atau Lebih Sheet Secara Otomatis

Ada yg merespon tentang aplikasi POS (Point Of Sale) gratis, yang sudah saya posting sebelumnya, intinya adalah pengguna aplikasi POS tersebut menemukan kendala, ketika dia mau menghapus satu cell, anggaplah di Sheet1, maka cell di Sheet2 dan Sheet3 yang terkoneksi dengan formula di Sheet1 menjadi “Error”, sehingga program nya menjadi tidak terpakai.

Maunya, ketika cell di Sheet1 dihapus, maka isi cell di Sheet2 dan Sheet3 akan terhapus secara otomatis.

Maka penulis mencari solusinya dengan mencoba menggunakan Code VBA Macro Excel, seperti di bawah ini:

Sub Button3_Click()
' Menggunakan Looping/Pengulangan For Next (Cara 1)
 Dim ws As Worksheet
 For Each ws In ThisWorkbook.Sheets
 ws.Range("A1:B12").ClearContents
 Next
' using for loop with an iterator (Cara 2)
 Dim i As Long
 For i = 1 To Sheets.Count
 Sheets(i).Range("A1:B12").ClearContents
 Next i
' using do while loop (Cara 3)
 i = 1
 Do While i <= Sheets.Count
 Sheets(i).Range("A1:B12").ClearContents
 i = i + 1
 Loop
 'Silakan pilih cara yang paling mudah untuk digunakan
End Sub

File bersangkutan, silakan download
Sumber

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s