Veri Bulma Nasıl Yapılır?

[ruzzher]

Aşağıdaki kodda aktif sayfadan veri buluyor fakat ALL_DATA sayfasından veri bulmayı nasıl yaparız.

Private Sub CommandButton3_Click()
On Error GoTo Bitir
aranan = InputBox("Aramak istediginiz ID değerini giriniz", "Arama Yap", "")
Range("A:A").Find(aranan).Select
sil_satir = ActiveCell.Row
txt_id = Sheets("ALL_DATA").Cells(sil_satir, 1)
txt_barkod.Value = Sheets("ALL_DATA").Cells(sil_satir, 2)
cbx_bolge.Value = Sheets("ALL_DATA").Cells(sil_satir, 3)
txt_paketsayisi.Value = Sheets("ALL_DATA").Cells(sil_satir, 4)
txt_islemsaati.Value = Sheets("ALL_DATA").Cells(sil_satir, 5)
txt_personel.Value = Sheets("ALL_DATA").Cells(sil_satir, 6)
Exit Sub
Bitir: MsgBox "Aranan kayit bulunamadi"

End Sub

 

[Necdet]

Sheets("ALL_DATA").Range("A:A").Find(aranan).Select

Aranan sayfayı belirtmelisiniz.

fakat siz bulunan hücreyi select ile seçtiğiniz için hata alırsınız. Onun için ilgili sayfada olmalısınız.
Ya da seçmeden devam etmelisiniz.

 

[ruzzher]

Sheets("ALL_DATA").Range("A:A").Find(aranan).Select

Aranan sayfayı belirtmelisiniz.

fakat siz bulunan hücreyi select ile seçtiğiniz için hata alırsınız. Onun için ilgili sayfada olmalısınız.
Ya da seçmeden devam etmelisiniz.

Nasıl bir değişiklik yapabiliriz

 

[ÖmerFaruk]

Deneyin.

Private Sub CommandButton3_Click()
    Dim Bul As Range, aranan
    aranan = InputBox("Aramak istediginiz ID değerini giriniz", "Arama Yap", "")
    Set Bul = Sheets("ALL_DATA").Range("A:A").Find(aranan)
    If Not Bul Is Nothing Then
        txt_id = Bul.Offset(0, 1)
        txt_barkod.Value = Bul.Offset(0, 2)
        cbx_bolge.Value = Bul.Offset(0, 3)
        txt_paketsayisi.Value = Bul.Offset(0, 4)
        txt_islemsaati.Value = Bul.Offset(0, 5)
        txt_personel.Value = Bul.Offset(0, 6)
    Else
        MsgBox "Aranan kayit bulunamadi"
    End If
End Sub