Soru İşaretli "CheckBox" lara göre ara/bul hakkında..

[yesimgurol]

Merhabalar,
Bir form oluşturdum. Bu form üzerinde ;
- İki adet Textbox,
- Textbox 1 : Tarih yazılacak ( ss/dd/yyyy)
- Textbox 1 : Sadece Saat yazılacak ( ss )

- 25 adet CheckBox,
- CheckBox değerleri çalışma sayfasında bulunan test sayfa isimleridir.

- 3 adet buton bulunmaktadır.
- Buton 1 : "Barkod Lİstesi Al" listeleme Textbox 1 ve Textbox 2 değerlerine göre ,
- Buton 2 : "Günlük Çalışma Lİstesi Al" listeleme Textbox 1 değerlerine göre yapılması gerekiyor.

Buton 1 ve Buton 2 ile , verileri LISTELE sayfasında istenilen verileri listelemek istemekteyim. Ekte bulunan LISTELE sayfasında ilgili verileri açıklamaya çalıştım. Textbox 1 ve 2 ye güncel tarih/saat bilgisini alabildim. Yalnız diğer kısımlar için elimden bir şey gelmedi:-(

 

[halit3]

Merhaba ben sayfaları listbox üzerine aldım ve oradaki seçime göre veriler alınmaktadır.

 

[yesimgurol]

Halit bey merhabalar,
Öncelikle ilginiz ve emeğiniz için çok teşekkür ederim. Yalnız dosyayı indirdim açamadım:-( Dosyada sorun olabilir mi? :-((

 

[halit3]

dosyayı yeniden yüklüyorum.

 

[yesimgurol]

Halit bey merhabalar,
Harika olmuş çok teşekkür ederim gerçekten. Son küçük bir ricam olacaktı. Şöyle ki, "verileri aktar" butonu Textbox1 ve Textbox2 değerlerine göre gayet güzel listeleme yapmakta, acaba bir buton daha yanına koysam o butonda aynı aramayı sadece Textbox1 ' e göre yapsa , yapmış olduğunuz kodlar üzerinde ;

aranan2 = Val(TextBox2)
If aranan2 = Val(Worksheets(sayfa).Cells(j, "h").Value) Then

Bu kısımları kaldırdım lakin olmadı:-(
Kodlarınızı da bunun için nasıl bir düzenleme yapılması gerekiyor.

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
yer = ActiveSheet.Name

Dim i As Integer

son = 0
For k = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(k) = True Then
son = 1
Exit For
End If
Next k
If son = 0 Then
MsgBox "Sayfa seçimi yapmadınız"
Exit Sub
End If

Worksheets("LISTELE").Range("A3:E" & Rows.Count).ClearContents

aranan1 = Format(TextBox1, "dd.mm.yyyy")
aranan2 = Val(TextBox2)

sat = 3
For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then


sayfa = ListBox1.List(i)

For j = 3 To Worksheets(sayfa).Cells(Rows.Count, "b").End(3).Row

If aranan1 = Format(Worksheets(sayfa).Cells(j, "g").Value, "dd.mm.yyyy") Then
If aranan2 = Val(Worksheets(sayfa).Cells(j, "h").Value) Then

Worksheets("LISTELE").Cells(sat, "a").Value = sat - 2
Worksheets("LISTELE").Cells(sat, "b").Value = Worksheets(sayfa).Cells(j, "c").Value
Worksheets("LISTELE").Cells(sat, "c").Value = Worksheets(sayfa).Cells(j, "e").Value
Worksheets("LISTELE").Cells(sat, "d").Value = Worksheets(sayfa).Cells(j, "f").Value
Worksheets("LISTELE").Cells(sat, "e").Value = sayfa
sat = sat + 1
End If
End If

Next j


End If
Next i

MsgBox "işlem tamam"



Application.ScreenUpdating = True
Application.DisplayAlerts = True


MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub

 

[halit3]

kod:

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

sat = 3
son = 0

For k = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(k) = True Then
son = 1
Exit For
End If
Next k
If son = 0 Then
MsgBox "Sayfa seçimi yapmadınız"
Exit Sub
End If

Worksheets("LISTELE").Range("A3:E" & Rows.Count).ClearContents
aranan1 = Format(TextBox1, "dd.mm.yyyy")


For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
sayfa = ListBox1.List(i)
For j = 3 To Worksheets(sayfa).Cells(Rows.Count, "b").End(3).Row
If aranan1 = Format(Worksheets(sayfa).Cells(j, "g").Value, "dd.mm.yyyy") Then
Worksheets("LISTELE").Cells(sat, "a").Value = sat - 2
Worksheets("LISTELE").Cells(sat, "b").Value = Worksheets(sayfa).Cells(j, "c").Value
Worksheets("LISTELE").Cells(sat, "c").Value = Worksheets(sayfa).Cells(j, "e").Value
Worksheets("LISTELE").Cells(sat, "d").Value = Worksheets(sayfa).Cells(j, "f").Value
Worksheets("LISTELE").Cells(sat, "e").Value = sayfa
sat = sat + 1
End If
Next j
End If
Next i

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub

 

[halit3]

dosyayı ekliyorum

 

[yesimgurol]

Halit Bey,
İlginiz için çok teşekkür ederim. Harika oldu , istediğim gibi.

 

[halit3]

Teşekkürler iyi çalışmalar