filter results to userform-sheet
Hello, All
I made a userform with a sheet in it and now i want the results of a filtered normal worksheet transfered to the sheet on the userform. How do i realise that ? |
filter results to userform-sheet
wrote in message s.com... Hello, All I made a userform with a sheet in it and now i want the results of a filtered normal worksheet transfered to the sheet on the userform. How do i realise that ? Transfer the contents of visible cell(s) to the user form N10:) |
filter results to userform-sheet
Private Sub UserForm_Activate()
Dim rng As Range Dim iRow As Integer Dim iCol As Integer Set rng = Sheets("Sheet1").UsedRange For iRow = 1 To rng.Rows.Count For iCol = 1 To rng.Columns.Count Spreadsheet1.Cells(iRow, iCol) = rng.Cells(iRow, iCol) Next iCol If rng.Rows(iRow).Hidden = True Then _ Spreadsheet1.Rows(iRow).EntireRow.Hidden = True Next iRow End Sub Hth, Merjet |
All times are GMT +1. The time now is 02:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com