Hi all,
Dalam coding yg diberikan oleh mr.Kid terlampir :
Set rngdbkode =range("a4:a7")
Set rngfrmkode=range("a12:a13")
For each rngloopfrm in rngfrmkode
On error resume next
Set rngfindres= rngdbkode.find(rngloopfrm.value)
If not rngfindres is nothing then
rngfindres.offset(0,3).value = rngloopfrm.offset(0,2).value
End if
Err.clear
On error goto 0
Next rngloopfrm
Bagaimana mengkondisikan jika tidak ada data yg kita cari?
Saya coba menggunakan
Else
Msgbox "kode yang dicari tidak ada"
Tapi tetap saja tidak berjalan semestinya.
Need advise.
Sent from my BlackBerry yg belum lunas
-----Original Message-----
From: "Kid Mr." <[email protected]>
Sender: [email protected]
Date: Wed, 25 Apr 2012 22:36:57
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] Vba find and replace
Pak Mike,
File terlampir menggunakan 2 cara dari sekian banyak cara yang
memungkinkan, yaitu :
1. memanfaatkan fitur find untuk mencari kode db yang perlu diganti
2. loop terhadap setiap kode db untuk memastikan apakah kode tersebut yang
akan diganti datanya.
Seluruh referensi masih statis, silakan cari dimilis cara mendinamiskannya.
Untuk data db yang tidak unique atau jumlah record yang banyak (baik yang
diganti maupun penggantinya selalu sebagai sebuah record lengkap),
mungkin alurnya adalah :
1. gunakan advanced filter untuk memfilter db, sehingga ditemukan data yang
perlu diganti
2. hapus baris db yang ditemukan advanced filter (visible only)
3. copy data dari form ke db pada baris kosong pertama
Wassalam,
Kid.
On Wed, Apr 25, 2012 at 12:54, ChubbyMike <[email protected]> wrote:
> **
>
>
> Dear all,
>
> Sy punya kasus dimana harus mengubah informasi di database excel yang kita
> punya berdasarkan form perubahan.
>
> Jadi jika di database ada kolom
> Nip nama status
>
> Dan form perubahan tertulis
> Nip nama status
> 100 mike menikah
>
> Maka jika macro dijalankan akan mencari nip 100 didatabase dan akan
> mengubah statusnya menjadi menikah.
>
> Lebih jelasnya ada di attachment
> Sent from my BlackBerry yg belum lunas
>
>
>
