Combobox ile bul komutunda hata
Tarih
20/02/2010 17:30
Konu Sahibi
black24
Yorumlar
2
Okunma
1180
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



black24
Üye
Kullanici Avatari
Üye
42
6
31/01/2010
0
Ankara
Ofis 2003
25/02/2010,13:36
Çözüldü 
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]
black24, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çözüldü 
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


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Aslında yazmış olduğunuz kod bende rahalıkla çalışıyor.Buyrun aşağıdaki kodu deneyiniz.

Kod:
1
2
3
4
5
6
7
8
9
10
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

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Çoklu Süzme Arama alanında Hata kenevir47 8 145 09/12/2016, 16:18 kenevir47
  ComboBox 'a Veri çekme ozkovlu29 7 330 19/08/2016, 15:11 ozkovlu29
  yüzde işareti ve hata değeri timm119 6 317 09/06/2016, 09:51 timm119
Brick Combobox içeriğini kısayol yapmak murataras-48 2 400 23/05/2016, 19:49 atoz112
  Combobox ile tabloya veri getirme mf.murat 2 333 09/05/2016, 08:00 serdar_20


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya