Cari data di sheet

  1. 4 minggu lalu

    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

  2. tghfox

    Jul 16 Terverifikasi Bekasi Barat + 525 Poin

    coba ini , semoga bermanfaat

  3. Mas @tghfox ,

    Terima kasih ya.
    Saya pelajarin dl ya mas, klo saya bingung saya tanya lagi ya.he22

  4. Mas @tghfox

    Terima kasih banyak ya sangat membantu.????????????????????????????

  5. 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.

  6. tghfox

    Jul 17 Terverifikasi Bekasi Barat + 525 Poin
    Di sunting 4 minggu 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 Sub
    

    baik.silahkan dicoba ini, sy blm tes tapi harusnya berhasil (ada penambahan )

  7. tghfox

    Jul 17 Terverifikasi Bekasi Barat + 525 Poin

    @Meiby Mas @tghfox ,

    Terima kasih ya.
    Saya pelajarin dl ya mas, klo saya bingung saya tanya lagi ya.he22

    sama2, ok silahkan dipelajari

  8. Mas @tghfox ,

    Terima kasih banyak .berhasil.

  9. tghfox

    Jul 17 Terverifikasi Bekasi Barat + 525 Poin

    @Meiby Mas @tghfox ,

    Terima kasih banyak .berhasil.

    sama2,

 

atau Mendaftar untuk ikut berdiskusi!