Hi all,
I have some code that copies filtered data from a hidden sheet to a visible sheet, I'm having trouble with formatting the newly created table/sheet.
I'm not sure if I need to paste in the entire code, I'll start with the part where I'm having trouble, specifically row 1; I would like the text to be bold (at the moment all text on the sheet is bold), and to have a filter applied to row 1:
I think there needs to be something between the blue text and the yellow text, because I'm wanting to format the new sheet "My team's investigations", not the reference sheet "Investigations".
Thank you in advance.
Cheers,
Mike
I have some code that copies filtered data from a hidden sheet to a visible sheet, I'm having trouble with formatting the newly created table/sheet.
I'm not sure if I need to paste in the entire code, I'll start with the part where I'm having trouble, specifically row 1; I would like the text to be bold (at the moment all text on the sheet is bold), and to have a filter applied to row 1:
Rich (BB code):
Dim DbExtract, DuplicateRecords As Worksheet
Set DbExtract = ThisWorkbook.Sheets("Investigations")
Set DuplicateRecords = ThisWorkbook.Sheets("My team's investigations")
Sheets("Safety Accountability Dashboard").Select
Sheets("Investigations").Visible = True
Sheets("Investigations").Select
Sheets("My team's investigations").Visible = True
DbExtract.Range("A1:BF9999").SpecialCells(xlCellTypeVisible).Copy
DuplicateRecords.Cells(1, 1).PasteSpecial
Sheets("Investigations").Select
ActiveWindow.SelectedSheets.Visible = False
Selection.AutoFilter
Selection.WrapText = True
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlLeft
Selection.VerticalAlignment = xlVAlignTop
I think there needs to be something between the blue text and the yellow text, because I'm wanting to format the new sheet "My team's investigations", not the reference sheet "Investigations".
Thank you in advance.
Cheers,
Mike
Last edited by a moderator: