Background colour using VB
hi
just after workbooks.add insert this: Range("A2:M73:).interior.colorindex = 1 'black :) -----Original Message----- I wish to make make the background colour of all cells black prior to paste of an invoice details. I code upto now is as below but I need to add the background colur and then wish to close the workbook with code Range("A2:M73").Select Selection.Copy Workbooks.Add Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=False Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=False Application.CutCopyMode = False Filesavename = Application.GetSaveAsFilename( _ fileFilter:="Excel Files (*.xls), *.xls") If Filesavename < False Then ActiveSheet.SaveAs Filename:=Filesavename, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False End If End Sub . |
All times are GMT +1. The time now is 04:40 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com