Soru Bul Komutu

[TURKOLOG]

Herkese merhaba ben aşağıdaki kodlarla aynı sayfada bulma işlemi yapabiliyorum .
Ama benim istediğim Texbox1 e yazdığımı VERİ sayfasında varsa bulacak ama HAVUZ sayfasına kaydedeceğim

Private Sub Bul_Click()

Dim Bul As Range
        
    For Each Bul In Range("B2:B" & WorksheetFunction.CountA(Range("B1:B500000")))
        

    If StrConv(Bul.Value, vbUpperCase) = StrConv(TextBox1.Text, vbUpperCase) Then
          

         Bul.Select
 
    TextBox1.Value = ActiveCell.Offset(0, 0).Value
    TextBox2.Value = ActiveCell.Offset(0, 1).Value
    TextBox3.Value = ActiveCell.Offset(0, 2).Value
    ComboBox1.Value = ActiveCell.Offset(0, 3).Value
    ComboBox2.Text = ActiveCell.Offset(0, 4).Value
      
 
    Exit Sub
    
    End If
    
    Next Bul

    MsgBox ("KAYIT BULUNAMADI"), vbCritical, "ARANAN SONUÇ"
End Sub

Kodları güncelleyebilecek olan var mı acaba?
texbox ve Comboxlardaki değerleri

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Bul_Click()
    Dim Bul As Range
    Dim Say  As Integer
    Dim syfVeri As Worksheet
    Set syfVeri = Worksheets("VERİ")
    Set Bul = syfVeri.Range("B:B").Find(What:=textbox1.Text, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        With Worksheets("HAVUZ")
            Say = .Cells(Rows.Count, "B").End(xlUp).Row + 1
            .Cells(Say, "B").Value = syfVeri.Cells(Bul.Row, "B").Value
            .Cells(Say, "C").Value = syfVeri.Cells(Bul.Row, "C").Value
            .Cells(Say, "D").Value = syfVeri.Cells(Bul.Row, "D").Value
            .Cells(Say, "E").Value = syfVeri.Cells(Bul.Row, "E").Value
            .Cells(Say, "F").Value = syfVeri.Cells(Bul.Row, "F").Value
        End With
    Else
        MsgBox ("KAYIT BULUNAMADI"), vbCritical, "ARANAN SONUÇ"
    End If
End Sub

 

[TURKOLOG]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Bul_Click()
    Dim Bul As Range
    Dim Say  As Integer
    Dim syfVeri As Worksheet
    Set syfVeri = Worksheets("VERİ")
    Set Bul = syfVeri.Range("B:B").Find(What:=textbox1.Text, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        With Worksheets("HAVUZ")
            Say = .Cells(Rows.Count, "B").End(xlUp).Row + 1
            .Cells(Say, "B").Value = syfVeri.Cells(Bul.Row, "B").Value
            .Cells(Say, "C").Value = syfVeri.Cells(Bul.Row, "C").Value
            .Cells(Say, "D").Value = syfVeri.Cells(Bul.Row, "D").Value
            .Cells(Say, "E").Value = syfVeri.Cells(Bul.Row, "E").Value
            .Cells(Say, "F").Value = syfVeri.Cells(Bul.Row, "F").Value
        End With
    Else
        MsgBox ("KAYIT BULUNAMADI"), vbCritical, "ARANAN SONUÇ"
    End If
End Sub

sayın @dalgalikur kod çalışmıyor
kodu şöyle yapabilir miyiz Texbox1 6 hane olacak 6 haneyi yazınca otomotik bulup ilgili yerlere yazsa olmaz mı

 

[Muzaffer Ali]

Örnek dosyanızı eklemeniz gerek.

 

[TURKOLOG]

CbSicili 6 karekter. 123456 yazında veri sayfasından alacak kaydet diyince havuz sayfasına kaydedecek .