Excel Vba 'da Bul komutu sorunu

[bayramagil]

Herkese Selam,

Vba 'da bul komutu oluşturdum, ancak komutları yazıyorum çalıştır dediğimde istediğim veriyi buluyor, programı kapattığımda tekrar arama yapamıyorum bulunamadı hatası veriyor.


Private Sub cbarama_click()

On Error GoTo bitir

aranan = InputBox("Seri numarasını giriniz.", , "Arızalı Ürün Sorgulama")

Range("F:F").Find(aranan).Select

sil_satır = ActiveCell.Row

cbpartner.Value = Worksheets("kayıt").Cells(sil_satır, 1)
tbarizakayit.Value = Worksheets("kayıt").Cells(sil_satır, 2)
tbgönderimkayit.Value = Worksheets("kayıt").Cells(sil_satır, 3)
cburunkodu.Value = Worksheets("kayıt").Cells(sil_satır, 4)
cburunadi.Value = Worksheets("kayıt").Cells(sil_satır, 5)
tbarızalisn.Value = Worksheets("kayıt").Cells(sil_satır, 6)
tbyenisn.Value = Worksheets("kayıt").Cells(sil_satır, 7)
tbmusteriaciklama.Value = Worksheets("kayıt").Cells(sil_satır, 8)
tbservisaciklama.Value = Worksheets("kayıt").Cells(sil_satır, 9)
tbteklif.Value = Worksheets("kayıt").Cells(sil_satır, 10)
tbrma.Value = Worksheets("kayıt").Cells(sil_satır, 11)

Exit Sub

bitir: MsgBox "Aranan Kayıt Bulunamadı..", , "HATA!"
End Sub

 

[Cengiz Demir]

Rangedeki Find 'i Findnext olarak değiştirip deneyin hocam.

 

[bayramagil]

Yok malesef Yine olmadı.. :/

 

[Asri]

Ben satır bulma işlemlerinde bu şekilde kullanıyorum.

Sub deneme()
  satir = varmi("elma", "Sayfa1", "B")
  If satir > 0 Then
     MsgBox ("Bulunduğu satır=" & satir)
  End If
  
  satir = varmi("Kiraz", "Sayfa1", "D")
  If satir > 0 Then
     MsgBox ("Bulunduğu satır=" & satir)
  End If
  
  satir = varmi("1", "Sayfa2", "B")
  If satir > 0 Then
     MsgBox ("Bulunduğu satır=" & satir)
  End If
  
End Sub


Function varmi(aranan As String, sayfaadi As String, sutun As String) As Long
    Set shbul = Sheets(sayfaadi).Range(sutun & ":" & sutun).Find(aranan, , xlValues, xlWhole)
    If Not shbul Is Nothing Then
       varmi = shbul.Row
       Exit Function
    End If
    varmi = 0
End Function

 

[bayramagil]

Teşekkürler, malesef İşimi görmüyor listeden verileri çekmem gerekiyor.

 

[Asri]

Teşekkürler, malesef İşimi görmüyor listeden verileri çekmem gerekiyor.

Bu şekilde deneyin.
Sizin kodlarınıza göre düzenledim.
Test etmedim.

Private Sub cbarama_click()
    arananne = InputBox("Seri numarasını giriniz.", , "Arızalı Ürün Sorgulama")
    sil_satır = varmi(arananne, "kayıt", "F")
      If sil_satır = 0 Then
           MsgBox "Aranan Kayıt Bulunamadı..", , "HATA!"
        exit sub
      End If
    cbpartner.Value = Worksheets("kayıt").Cells(sil_satır, 1)
    tbarizakayit.Value = Worksheets("kayıt").Cells(sil_satır, 2)
    tbgönderimkayit.Value = Worksheets("kayıt").Cells(sil_satır, 3)
    cburunkodu.Value = Worksheets("kayıt").Cells(sil_satır, 4)
    cburunadi.Value = Worksheets("kayıt").Cells(sil_satır, 5)
    tbarızalisn.Value = Worksheets("kayıt").Cells(sil_satır, 6)
    tbyenisn.Value = Worksheets("kayıt").Cells(sil_satır, 7)
    tbmusteriaciklama.Value = Worksheets("kayıt").Cells(sil_satır, 8)
    tbservisaciklama.Value = Worksheets("kayıt").Cells(sil_satır, 9)
    tbteklif.Value = Worksheets("kayıt").Cells(sil_satır, 10)
    tbrma.Value = Worksheets("kayıt").Cells(sil_satır, 11)
End Sub

Function varmi(aranan As String, sayfaadi As String, sutun As String) As Long
    Set shbul = Sheets(sayfaadi).Range(sutun & ":" & sutun).Find(aranan, , xlValues, xlWhole)
    If Not shbul Is Nothing Then
       varmi = shbul.Row
       Exit Function
    End If
    varmi = 0
End Function

 

[bayramagil]

hata veriyor, Değiştirdim bir kaç yerini yine oturmadı.

 

[Asri]

Örnek dosyanızı wetransfer e yükleyip link paylaşın

 

[bayramagil]

https://we.tl/t-R89OCiCwYh

Çok Teşekkür ediyorum desteğiniz için

 

[Asri]

fmurunkayit form kodlarında en üstte, ekleyip dener misiniz.

Dim arananne As String

 

[mesuttasar]

Sub SeriNumarasiArama()
    Dim arananSeri As String
    Dim bulundu As Range
    Dim satirNumarasi As Long
    
   arananSeri = InputBox("Aranacak seri numarasını girin:", "Seri Numarası Arama")
    sheets("kayıt").select
    If arananSeri = "" Then
        MsgBox "Seri numarası girmediniz.", vbExclamation
        Exit Sub
    End If
    
    
    Set bulundu = Columns("F:F").Find(What:=arananSeri, LookIn:=xlValues, LookAt:=xlWhole)
    
    If bulundu Is Nothing Then
        MsgBox "Seri numarası bulunamadı.", vbInformation
    Else
        satirNumarasi = bulundu.Row
        MsgBox "Seri numarası bulundu. Satır Numarası: " & satirNumarasi, vbInformation
    End If
    
    'diğer kodlarınız buraya ekleyebilirsiniz.
End Sub

 

[bayramagil]

fmurunkayit form kodlarında en üstte, ekleyip dener misiniz.

Dim arananne As String

arananne 'yi kabul etmiyor hiç bir şekilde.. yukarı ya eklemiştim ismi değiştim yine olmadı

 

[bayramagil]

Sub SeriNumarasiArama()
    Dim arananSeri As String
    Dim bulundu As Range
    Dim satirNumarasi As Long
   
   arananSeri = InputBox("Aranacak seri numarasını girin:", "Seri Numarası Arama")
    sheets("kayıt").select
    If arananSeri = "" Then
        MsgBox "Seri numarası girmediniz.", vbExclamation
        Exit Sub
    End If
   
   
    Set bulundu = Columns("F:F").Find(What:=arananSeri, LookIn:=xlValues, LookAt:=xlWhole)
   
    If bulundu Is Nothing Then
        MsgBox "Seri numarası bulunamadı.", vbInformation
    Else
        satirNumarasi = bulundu.Row
        MsgBox "Seri numarası bulundu. Satır Numarası: " & satirNumarasi, vbInformation
    End If
   
    'diğer kodlarınız buraya ekleyebilirsiniz.
End Sub

çok Teşekkür ederim oldu.