IYI GUNLER VBA DA YENIYIM. ARAMA BUTONUMA YAZDIGIM KODLAR KONU BASLIGINDA YAZDIGIM HATAYI VERIYOR YARDIMCI OLABILIR MISINIZ ??? KOD ASAGIDA YAZDIM
Private Sub CommandButton1_Click()
If Len(TextBox1.Value) < 12 Then Exit Sub
Dim kks As Worksheet
Set kks = Sheets("Jurnal")
Dim x As Long
x = kks.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = kks.Range("A:P")
aranan = TextBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 1)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 2)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 3)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(, 4)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(, 5)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(, 7)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(, 8)
TextBox9.Value = tablo.Find(aranan, , , xlWhole).Offset(, 9)
TextBox10.Value = tablo.Find(aranan, , , xlWhole).Offset(, 10)
TextBox11.Value = tablo.Find(aranan, , , xlWhole).Offset(, 11)
TextBox12.Value = tablo.Find(aranan, , , xlWhole).Offset(, 12)
TextBox13.Value = tablo.Find(aranan, , , xlWhole).Offset(, 13)
TextBox14.Value = tablo.Find(aranan, , , xlWhole).Offset(, 14)
TextBox15.Value = tablo.Find(aranan, , , xlWhole).Offset(, 0)
Set kks = Nothing
Set tablo = Nothing
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
COULD NOT SET THE VALUE PROPERTY hatasI
-
Tarkan VURAL Doğrulandı
- Site Admin
- Mesajlar: 67
- Kayıt: Prş Haz 22, 2023 12:03 am
- Lokasyon: İstanbul
- Web Sitesi: http://www.tarkanvural.com.tr
- Meslek: Yazılım ve Veri Tabanı Uzmanı
- Adınız: Tarkan
- Soyadınız: VURAL
- İletişim:
Re: COULD NOT SET THE VALUE PROPERTY hatasI
Merhaba,
Aranan aralığı set etme ve atama işlemlerini şu şekilde dizayn edip deneyebilir misiniz ?
Aranan aralığı set etme ve atama işlemlerini şu şekilde dizayn edip deneyebilir misiniz ?
Kod: Tümünü seç
Set tablo = kks.Range("A:P")
Set bul = tablo.Find(aranan, , , xlWhole)
If Not bul Is Nothing Then
TextBox1.Value = bul.Offset(0, 1).Value
TextBox2.Value = bul.Offset(0, 2).Value
'...........
End If
Konu Dışı
Logo Yazılım, Özel Yazılım, Entegrasyon işlemleri, Excel VBA kodlama, Raporlama, Eğitim.. gibi konulardaki destek ihtiyaçlarınız içinhelpdesk@evnyazilim.com.trile irtibata geçebilirsiniz.