COULD NOT SET THE VALUE PROPERTY hatasI

[dodo9298]

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

[Tarkan VURAL]

Merhaba,
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