Textboxtan textboxa veri gelmesi

Katılım
14 Kasım 2004
Mesajlar
297
Excel Vers. ve Dili
microsoft office professional plus 2016
arkadaşlar benim problemim ekte gönderdiğim dosyada sizlerin de yardımlarıyla bişeyler yaptım. Kullanmaya başladıktan sonra daha da basitleştirici fikirler meydana geldi ve en son olarak yapmak istediğim olay şu; ekteki dosyayı açtıktan sonra kantar programını tıklıyoruz karşımıza gelen userformda otomatik gelen bilgilerin haricinde plaka no, dorse plaka no, miktar ve operatör kısımları var. Benim istediğim plaka numarasını yazdığımda dorse plaka nosunuda otomatik yazması. aynı dosya içerisinde plaka adlı sayfada "A" sutununda plakalar yazılı "B" sutununda ise dorse plakaları yazılı. Örneğin userformdaki plaka no kısmına 43EH596 yazdığımda dorse plaka no kısmına 43HY799 yazmasını istiyorum. hayırlı işler.
 
Katılım
25 Ağustos 2005
Mesajlar
47
Excel Vers. ve Dili
İş Yerinde : Excel 2002-Tr
Evde : Excel 2003 Pro-Tr
Aşagidaki kodu UserForm2'nin icerisine ekleyip dene...


Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim x As Integer
x = Sheets("Plaka").Range("A1:A64000").Cells.Find(what:=TextBox7, LookIn:=xlValues).Row
TextBox8.Value = Sheets("Plaka").Cells(x, 2)
End Sub
 
Üst