programer
Altın Üye
- Katılım
- 26 Mayıs 2005
- Mesajlar
- 604
- Excel Vers. ve Dili
- Office 2022 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2025
Bul Ãle Diğer Sayfadan TextBoxlara veri getirme
arkadaşlar aşağıdaki kodda Command butona tıkladığım zaman TextBox3 e girdiğim tarihi kurlar sayfasından bulup o tarihe karşılık gelen TextBox1'e b stunundaki kuru TextBox2 ye c stunundaki kuru getirmesini istiyorum. Kodu bu şekilde yaptım ama çalıştıramadım
Private Sub CommandButton9_Click()
On Error Resume Next
Dim bul As Range
For Each bul In Range("a2:a" & WorksheetFunction.CountA(Worksheets("Kurlar").[a1:a65000]))
If StrConv(bul.Value, vbUpperCase) = StrConv(TextBox3.Value, vbUpperCase) Then
bul.Select
TextBox1 = Range("b" & Worksheets("Kurlar").Row).Value
TextBox2 = Range("c" & Worksheets("Kurlar").Row).Value
Exit Sub
Else
TextBox3.Value = ""
End If
Next bul
End Sub
arkadaşlar aşağıdaki kodda Command butona tıkladığım zaman TextBox3 e girdiğim tarihi kurlar sayfasından bulup o tarihe karşılık gelen TextBox1'e b stunundaki kuru TextBox2 ye c stunundaki kuru getirmesini istiyorum. Kodu bu şekilde yaptım ama çalıştıramadım
Private Sub CommandButton9_Click()
On Error Resume Next
Dim bul As Range
For Each bul In Range("a2:a" & WorksheetFunction.CountA(Worksheets("Kurlar").[a1:a65000]))
If StrConv(bul.Value, vbUpperCase) = StrConv(TextBox3.Value, vbUpperCase) Then
bul.Select
TextBox1 = Range("b" & Worksheets("Kurlar").Row).Value
TextBox2 = Range("c" & Worksheets("Kurlar").Row).Value
Exit Sub
Else
TextBox3.Value = ""
End If
Next bul
End Sub