Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide Blank rows from ListBox1
Hi,
I am using the below code in my userform, to hide unwanted blank rows in Listbox, My data is coming after filtration procedure to AP5:AY filtered data is veriable, some times 5 rows and some time 50 rows and some time 70 rows. I want to see only the filtered rows in the list box. but this procedure is not working in my new form. your procedure is working in other file, but in this file its making problem. Option Explicit Dim LastRow As Long Private Sub Userform_Initialize() Sheets("DailyIssue").Select 'for Listbox Scrol bar hide unwanted rows. LastRow = Worksheets("DailyIssue").Cells(Rows.Count, "a").End(xlUp).Row ListBox1.RowSource = "AP5:AY" & LastRow StartDate = "" EndDate = "" MaterialName = "" CoboCategory = "" TxtTRNo = "" CoboEmployee = "" StartDate.SetFocus End Sub Private Sub CommandButton1_Click() range("A4:J5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=range _ ("AP1:AY3"), CopyToRange:=range("AP4:AY500"), Unique:=False Selection.End(xlUp).Select Sheets("DailyIssue").Select range("AP3:AY3") = "" End Sub Can you check where is the mistake. Best Regards Syed Shahzad Zafar |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide Blank Rows | Excel Worksheet Functions | |||
How to hide rows, but not blank rows used for formatting | Excel Programming | |||
hide blank rows | Excel Programming | |||
Hide Blank Rows | Excel Worksheet Functions | |||
(Worksheet)Listbox1.additem = (Form)Listbox1.value ?? | Excel Programming |