rapor yaz

[limanC34]

Selam Arkadaşlar
Siteden aldığım bir dosyayı biraz değiştirerek rapor yazdırma sayfası düzenlemeye çalıştım fakat textbox 32 ve 33 e sayfa 2 den veri aldırmasını yapamadım.Yani textbox 32 ye yazarsam karşılığı textbox 33 e otomatik çıkacak tabiki textbox 33 e yazarsam karşılığı textbox 32 ye otomatik çıkacak.Yardımcı olursanız seninirim.Teşekkürler.

 

[meslan]

Merhaba Sn.limanC34 dosyanız ekte. Kolay Gelsin.

 

[limanC34]

Sayın meslan
İlginiz ve çözümünüz için teşekkürler.Ancak combobox 8 e hastalık adı yazarak textbox 32 ye kodu geliyor fakat istediğim textbox 32 ye kodunu yazarak combobox 8 e hastalık adının gelmesi.Yani kişi hangisini hatırlarsa onunla veri çağırabilsin.Teşekkürler.

 

[meslan]

KOD:
Private Su b TextBox32_Change()
Dim S1 As Object
Set S1 = Sheets("ICD")
Dim X As Integer
X = S1.Range("A:A").Cells.Find(What:=TextBox32, LookIn:=xlValues).Row
ComboBox8 = S1.Cells(X, 2)
Set S1 = Nothing
End Sub

 

[limanC34]

Sayın meslan
Yüksek alakanıza,değerli çözümünüze çok teşekkür ederim.Saygılarımla.