Hi!
I need help.
I have to copy filtered data from Registry Log to User Log as a ListBox1 items but unable to copy the data from one sheet to another.
Note that there's no problem copying data and paste it within the same sheet.
Manual operation or operation thru VBA = same problem.
File extension: [My File.xlsm] (problem only in this workbook)
Code:
Thank you in advance.
I need help.
I have to copy filtered data from Registry Log to User Log as a ListBox1 items but unable to copy the data from one sheet to another.
Note that there's no problem copying data and paste it within the same sheet.
Manual operation or operation thru VBA = same problem.
File extension: [My File.xlsm] (problem only in this workbook)
Code:
VBA Code:
Private Sub cboHmDept_Change()
Sheets("Registry Log").Activate
ActiveSheet.ShowAllData
ActiveSheet.Range("$B$2:$AC$100").AutoFilter Field:=27, Criteria1:=cboHmDept.Value
Application.ScreenUpdating = False
Sheets("Registry Log").Select
Range("C4:D4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("User Log").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Columns("A:A").ColumnWidth = 1.5
Rows("1:1").Select: Selection.RowHeight = 1.5
Rows("3:3").Select: Selection.RowHeight = 1.5
Columns("B:H").EntireColumn.AutoFit
Range("B4").Select
End Sub
Thank you in advance.