ahm11
Altın Üye
- Katılım
- 1 Mart 2005
- Mesajlar
- 78
- Excel Vers. ve Dili
- excel 2003
- Altın Üyelik Bitiş Tarihi
- 22-06-2026
Private Sub TextBox60_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo i
Set d = Sheets("say1").Range("c1:al65000").Find(TextBox60)
If TextBox60 = d Then
TextBox61 = d.Offset(0, 0)
'TextBox62=?
Exit Sub
End If
i:
MsgBox "VERİTABANINDA " & Chr(10) & TextBox60 & Chr(32) & "KAYIT YOK"
TextBox60 = ""
End Sub
yukarıdaki kodları kullanarak aranılan kaydı bulup textbox61 e yazdırıyorum.bulunan kayıt hangi hücrede olursa olsun( mesela z87,h87,ac 87 gibi) o satıra ait b sutubundaki hücreyi textbox62 e nasıl yazdırabilirim.
On Error GoTo i
Set d = Sheets("say1").Range("c1:al65000").Find(TextBox60)
If TextBox60 = d Then
TextBox61 = d.Offset(0, 0)
'TextBox62=?
Exit Sub
End If
i:
MsgBox "VERİTABANINDA " & Chr(10) & TextBox60 & Chr(32) & "KAYIT YOK"
TextBox60 = ""
End Sub
yukarıdaki kodları kullanarak aranılan kaydı bulup textbox61 e yazdırıyorum.bulunan kayıt hangi hücrede olursa olsun( mesela z87,h87,ac 87 gibi) o satıra ait b sutubundaki hücreyi textbox62 e nasıl yazdırabilirim.