AccessTr.neT

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]

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.

Aslında yazmış olduğunuz kod bende rahalıkla çalışıyor.Buyrun aşağıdaki kodu deneyiniz.