textboxdaki koda göre arayıp bulup üzerine yazdırma

[bilisim2010]

merhaba aşağıdaki kodlarla verileri sayfaya gönderiyorum lakin 2. yi seçtiğimde 1. nin üzerine yazıyor userformdaki textbox1035 de yazan kodu arayıp sayfada bulup üzerine yazdırması gerekiyor ne yapabilirim acaba?

karar = MsgBox("Müşteri Kaydı Güncellensinmi?", vbYesNo, "Uyarı!")
If karar = vbYes Then


Sheets("CARİHAREKET").Select

ActiveCell.Offset(0, 0) = kaydiaç.TextBox1035.Value
ActiveCell.Offset(0, 2) = kaydiaç.TextBox1037.Value
ActiveCell.Offset(0, 1) = kaydiaç.TextBox1028.Value
ActiveCell.Offset(0, 4) = kaydiaç.TextBox1048.Value
ActiveCell.Offset(0, 5) = kaydiaç.TextBox1063.Value


ActiveCell.Offset(0, 9) = kaydiaç.TextBox1038.Value
ActiveCell.Offset(0, 2) = kaydiaç.TextBox1036.Value
ActiveCell.Offset(0, 24) = kaydiaç.TextBox1031.Value
ActiveCell.Offset(0, 25) = kaydiaç.TextBox1034.Value
ActiveCell.Offset(0, 29) = kaydiaç.TextBox1029.Value
ActiveCell.Offset(0, 30) = kaydiaç.TextBox1030.Value
ActiveCell.Offset(0, 28) = kaydiaç.TextBox1033.Value
ActiveCell.Offset(0, 27) = kaydiaç.TextBox1032.Value


ActiveWorkbook.Save

Unload Me
carihareket.Show
Else
MsgBox ("İşlem İptal Edildi..."), vbInformation
End If

 

[Muzaffer Ali]

Merhaba.
Dosyayı paylaşırsanız kontrol edelim. Paylaştığınız kodlar ile sorun çözülemez.

 

[bilisim2010]

Merhaba.
Dosyayı paylaşırsanız kontrol edelim. Paylaştığınız kodlar ile sorun çözülemez.

hocam dosya biraz karışık çünkü tamamen userformlar ile çalışıyor şimdi siz buna girerseniz çıkamazsınız eğer bana verebilirseniz

bir userformdaki textboxda yazan veriyi sayfada bulmanın kodunu atarsanız ben onu uyarlarım kodlarımın içine

butona tıklayacam userformdaki textbox1 deki veriyi gidip sayfada bulup o satırı seçicek. burdaki ana tema textboxdaki değişken. bana bunu verebilirseniz çok mutlu olurum dosyayla sizide yormak istemem açıkcası

 

[Muzaffer Ali]

Sub Test()
    Dim Bul As Range
    Set Bul = Range("A:A").Find(what:=textbox1.Text, lookat:=xlWhole)
    If Bul Is Nothing Then
        MsgBox "Aranan bulunamadı."
    Else
        Bul.Select
        MsgBox "Bulundu."
    End If
End Sub

 

[bilisim2010]

Sub Test()
    Dim Bul As Range
    Set Bul = Range("A:A").Find(what:=textbox1.Text, lookat:=xlWhole)
    If Bul Is Nothing Then
        MsgBox "Aranan bulunamadı."
    Else
        Bul.Select
        MsgBox "Bulundu."
    End If
End Sub

teşekkür ederim ek olarak nerede arayacağınıda eklermisiniz çünkü veri başka sayfada

 

[Muzaffer Ali]

Yukarıda verdiğim kodda bulunan aşağıdaki satırı inceleyin.

Set Bul = Range("A:A").Find(what:=textbox1.Text, lookat:=xlWhole)

Başka sayfada aranacaksa aşağıdaki gibi olmalı.

Set Bul =worksheets("Başka Sayfanın İsmi).Range("A:A").Find(what:=textbox1.Text, lookat:=xlWhole)

Sub Test()
    Dim Bul As Range
    Set Bul = worksheets("Başka Sayfanın İsmi).Range("A:A").Find(what:=textbox1.Text, lookat:=xlWhole)
    If Bul Is Nothing Then
        MsgBox "Aranan bulunamadı."
    Else
        MsgBox "Bulundu. Bulunan hücre adresi: " & bul.address
    End If
End Sub

 

[bilisim2010]

ActiveCell.Offset(0, 5) = kaydiaç.TextBox1063.Value
bir buton ile bulduğu kodun satırındaki 5. hücreye textbox1063 deki veriyi yazdırma yöntemi böylemi müzaffer bey?

 

[bilisim2010]

tam burda hata yapıyor işte bulduğu kodun satırına değil 1. satırrdaki hücrelere yazdırıyor çözemedim bu işi

 

[Muzaffer Ali]

Başka sayfada işlem yapmak için sayfanın adını da yazmalısınız.

worksheets("Başka Sayfanın İsmi).cells(Bul.row, "E") = kaydiaç.TextBox1063.Value

Bulduğu satırın E sütununa yazar.

 

[bilisim2010]

Başka sayfada işlem yapmak için sayfanın adını da yazmalısınız.

worksheets("Başka Sayfanın İsmi).cells(Bul.row, "E") = kaydiaç.TextBox1063.Value

Bulduğu satırın E sütununa yazar.

sen varya... adamsın. muzaffer ali bey. çok çok teşekkür ederim.