- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
Personel Dosyasındaki Sayfa1 'de A1 hücresini seçtirip "SÜZ" diyorum.
vardiya1 diye önceden tanımladığım kritere ve PB olanları süzüyor.
çıkan süzme işlemini ;komple CurrentRegion ile boş bir çalışma dosyası eklenerek (WorkBooks.add) alıp kopyalayarak UserForm2 üzerindeki ListBox12 de aynen süzme sonucunun görünmesini istiyorum.BİR TÜRLÜ BAÃARAMADIM...BASİT AMA GÃ?REMEDİM.YARDIM EDİNİZ LÜTFEN ACİL BİRAZ DURUMUM.KODLAR BUYRUN:
Worksheets("PERSONEL").Select: Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=vardiya1
Selection.AutoFilter Field:=5, Criteria1:=" PB"
Range("A1").AutoFilter
Range("A1:F20").Select
Selection.CurrentRegion.Copy
Workbooks.Add.SaveAs Filename:="aaa.xls"
Range("A1").PasteSpecial xlPasteAll
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
r = ActiveCell.Row
UserForm2.ListBox12.RowSource Sayfa1!A1:"F & r[/b]
Unload UserForm1
UserForm2.Show
vardiya1 diye önceden tanımladığım kritere ve PB olanları süzüyor.
çıkan süzme işlemini ;komple CurrentRegion ile boş bir çalışma dosyası eklenerek (WorkBooks.add) alıp kopyalayarak UserForm2 üzerindeki ListBox12 de aynen süzme sonucunun görünmesini istiyorum.BİR TÜRLÜ BAÃARAMADIM...BASİT AMA GÃ?REMEDİM.YARDIM EDİNİZ LÜTFEN ACİL BİRAZ DURUMUM.KODLAR BUYRUN:
Worksheets("PERSONEL").Select: Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=vardiya1
Selection.AutoFilter Field:=5, Criteria1:=" PB"
Range("A1").AutoFilter
Range("A1:F20").Select
Selection.CurrentRegion.Copy
Workbooks.Add.SaveAs Filename:="aaa.xls"
Range("A1").PasteSpecial xlPasteAll
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
r = ActiveCell.Row
UserForm2.ListBox12.RowSource Sayfa1!A1:"F & r[/b]
Unload UserForm1
UserForm2.Show