Sorot Data Ganda Dari Seleksi

VBA 11.jpg

Saat kita memiliki data yang banyak terkadang kita ingin mencari data yang ganda. Kali ini admin akan berbagi Bagaimana membuat kode sorot data yang ganda dengan vba.

Setelah kita membuat kode langkah yang kita lakukan adalah memblok semua data yang akan kita sorot lalu jalankan kode vba ini.

Berikut kode vba untuk menyorot data ganda.

  

Sub SorotDataGandaDariSeleksi()
    Dim myRange As Range
    Dim myCell As Range
    
    Set myRange = Selection
    For Each myCell In myRange
    If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
    myCell.Interior.ColorIndex = 36
    End If
    Next myCell

End Sub

 

Download File Contoh

zip.png  Sorot Data Ganda Dari Seleksi - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

Tulangan Sidoarjo Jatim

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali, M.Pd.