Güncelleme butonu

[OlricK]

merhaba,
Benimde bul değiştir şeklinde bir ihtiyacım var.
bir giriş sayfası yaptım ve her dosya numarası girildiğinde gidip o dosyaya ait işlem nosunu güncellemesi gerek aslında bir update butonu yapmak istiyorum

Ekte hazırladığım excel var ama ben ancak Selection.Find(What:="0001" .... komutu ile belirli alanı buldurabiliyorum bana gereken ise Selection.Find(What:=sheet1!A1...... şeklinde bir şey yazman

Yardımcı olursanız çok sevinirim

 

[fedeal]

merhaba,b1 hücresi değişince bilgileri almak istiyorsanız sayfanın kod bölümüne,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
Set sf1 = Sheets("sheet2")
Set bul = sf1.Range("a2:a65000").Find(Cells(1, 2))
If Not bul Is Nothing Then
Range("b2").Value = sf1.Range("b" & bul.Row).Value
Range("b3").Value = sf1.Range("c" & bul.Row).Value
Range("b4").Value = sf1.Range("d" & bul.Row).Value
End If
End Sub

butona atayacaksanız modüle,

Sub upd()
Set sf1 = Sheets("sheet2")
Set bul = sf1.Range("a2:a65000").Find(Cells(1, 2))
If Not bul Is Nothing Then
Range("b2").Value = sf1.Range("b" & bul.Row).Value
Range("b3").Value = sf1.Range("c" & bul.Row).Value
Range("b4").Value = sf1.Range("d" & bul.Row).Value
End If
End Sub

iyi çalışmalar.

 

[OlricK]

teşekkür ederim