Skip to main content

AccessTr.neT


Combobox ile bul komutunda hata

Combobox ile bul komutunda hata

Çözüldü #1
Arkadaşlar aşağıda eklediğim gibi bir combobox aracılığığla bul kodum var. Yalnız şöle bir sıkıntım var girdiğim verilerin sadece son üç tanesi buluyor. Yani 4 güne ait veri girsem son üç gün buluyor. Yardımcı olursanız çok sevinirim

Alıntı:Private Sub CommandButton2_Click() 'Bul
For Each hucre In Range("a65536:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
TextBox1 = ActiveCell.Offset(0, 1).Value
TextBox2 = ActiveCell.Offset(0, 2).Value
TextBox3 = ActiveCell.Offset(0, 3).Value
TextBox4 = ActiveCell.Offset(0, 4).Value
TextBox5 = ActiveCell.Offset(0, 5).Value
TextBox6 = ActiveCell.Offset(0, 6).Value
TextBox7 = ActiveCell.Offset(0, 7).Value
TextBox8 = ActiveCell.Offset(0, 8).Value
TextBox9 = ActiveCell.Offset(0, 9).Value
TextBox10 = ActiveCell.Offset(0, 10).Value
TextBox11 = ActiveCell.Offset(0, 11).Value
TextBox12 = ActiveCell.Offset(0, 12).Value
TextBox13 = ActiveCell.Offset(0, 13).Value
TextBox14 = ActiveCell.Offset(0, 14).Value
TextBox15 = ActiveCell.Offset(0, 15).Value
TextBox16 = ActiveCell.Offset(0, 16).Value
TextBox17 = ActiveCell.Offset(0, 17).Value
TextBox18 = ActiveCell.Offset(0, 18).Value
TextBox19 = ActiveCell.Offset(0, 19).Value
TextBox20 = ActiveCell.Offset(0, 20).Value
TextBox21 = ActiveCell.Offset(0, 21).Value
TextBox22 = ActiveCell.Offset(0, 22).Value
TextBox23 = ActiveCell.Offset(0, 23).Value
TextBox24 = ActiveCell.Offset(0, 24).Value
End If
Next
End Sub
[/quote]
Son Düzenleme: 20/02/2010, 17:32, Düzenleyen: black24.
Cevapla
Çözüldü #2
Lütfen örneği ekler misiniz? Bu tür sorular örnek eklenmeden çok zaman alan çözümler gerektirir. Kimsenin bu aralar o kadar zamanı yok.. Örnek eklerseniz iş daha kolay olacaktır.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
Aslında yazmış olduğunuz kod bende rahalıkla çalışıyor.Buyrun aşağıdaki kodu deneyiniz.
Kod:
Dim i As Range
For Each i In Range("a1:a" & Range("a65536").End(3).Row)
If CStr(i.Value) = CStr(ComboBox1.Value) Then
i.Select
TextBox1 = i.Offset(0, 1).Value
TextBox2 = i.Offset(0, 2).Value
'Buraya Geri kalanını devam edersiniz
Exit For
End If
Next i

OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da