COULD NOT SET THE VALUE PROPERTY hatasI

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
dodo9298
Mesajlar: 1
Kayıt: Pzt Şub 12, 2024 11:11 am
Lokasyon: silifke
Adınız: dogus
Soyadınız: saka

COULD NOT SET THE VALUE PROPERTY hatasI

Mesaj gönderen 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
Kullanıcı avatarı
Tarkan VURAL
Doğrulandı
Site Admin
Mesajlar: 59
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

Mesaj gönderen 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
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.
Cevapla