+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Combobox ile bul komutunda hata (/konu-combobox-ile-bul-komutunda-hata.html)
Combobox ile bul komutunda hata - black24 - 20/02/2010
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[/quote]
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
Cvp: Combobox ile bul komutunda hata - mehmetdemiral - 21/02/2010
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.
Cvp: Combobox ile bul komutunda hata - ogulcan92 - 22/02/2010
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