All master mohon bantuannya saya lg cb cari data Di sheet yg lain.
Pada kolom a4 -a 6 data yg di isi
Sheet2 dan sheet 3 datanya
Jika data yg d cari ada di sheet2 maka data sesuai makro yg dbuat
Tetapi jika data d sheet 2 tidak ada maka mencari di sheet 3
Jika data yang di cari tidak ada di semua sheet
Maka data di cari "not found"
Not found d tulis d sheet1 kolom e
Terlampir datanya
Tolong bantuannya master tugas kantor
-
4 tahun lalu
-
coba ini , semoga bermanfaat
-
Mas @tghfox ,
Terima kasih ya.
Saya pelajarin dl ya mas, klo saya bingung saya tanya lagi ya.he22 -
Mas @tghfox
Terima kasih banyak ya sangat membantu.????????????????????????????
-
Mas@tghfox ,
Bisa gak jika hasilnya pada kolom F = "JECT" , kolom g nya tidak d tampilkan.
Jika pada kolom F = "CAN" dan "ROVED" , kolom G nya di tampilkan. -
Di sunting 4 tahun lalu oleh tghfox
Sub sp_CariData() Dim lRow As Long Dim lFind As Long Dim sSh2 As String, sSh3 As String, sKey As String sSh2 = "Sheet2" sSh3 = "Sheet3" lRow = Range("A" & Rows.Count).End(xlUp).Row If lRow < 4 Then Exit Sub On Error Resume Next For i = 4 To lRow sKey = Range("A" & i).Value lFind = 0 With Sheets(sSh2) lFind = .Cells.Find(sKey).Row If lFind > 0 Then Range("C" & i).Value = .Range("A" & lFind).Value Range("D" & i).Value = .Range("B" & lFind).Value Range("E" & i).Value = .Range("C" & lFind).Value Range("F" & i).Value = .Range("L" & lFind).Value Range("G" & i).Value = .Range("P" & lFind).Value 'tambahan range("G" & i).value = iif( Range("F" & i).Value = "JECT" , "" , range("G" & i).value ) End If End With If lFind = 0 Then With Sheets(sSh3) lFind = .Cells.Find(sKey).Row If lFind > 0 Then Range("C" & i).Value = .Range("A" & lFind).Value Range("D" & i).Value = .Range("B" & lFind).Value Range("E" & i).Value = .Range("C" & lFind).Value Range("F" & i).Value = .Range("L" & lFind).Value Range("G" & i).Value = .Range("P" & lFind).Value 'tambahan range("G" & i).value = iif( Range("F" & i).Value = "JECT" , "" , range("G" & i).value ) End If End With End If If lFind = 0 Then Range("C" & i).Value = "Not Found" Next i MsgBox "Proses pencarian selesai", vbInformation, "Info" End Subbaik.silahkan dicoba ini, sy blm tes tapi harusnya berhasil (ada penambahan )
-
-
Mas @tghfox ,
Terima kasih banyak .berhasil.
-