Maybe try declaring the FSO as Object. "Dim FSO" without a declaration declares the FSO as a variant. Just a...
Each block is a named range. There are 6 Key colors which are based on the information in column “Y”(Rental...
I cleaned up the code. This will place next month and year in cell A1. So today is Sep30 2018...
This was tested in a blank worksheet (no data). The macro will place next Month and Year in cell A1....
Updated the code to include the possibility of blank cells in the raw data. If a blank cell is found...
Lets try this again. You will need 3 sheets. Sheet1, Sheet 2 and Sheet3 Sheet1 your raw data Sheet2 is...
Hey Thank you so much. Apologies for not been very clear on the question. Using your example, in the output...
To be honest, I not sure I understand your question. Below is my understand of what I think you need....
I need to add numerous rows (7) of the same data between rows if an item has been added for it to maintain my numbering system. Previously I have been selecting the rows and going copy – insert copied cells and adjusting the data accordingly but this is messing up my borders and is causing some errors in some data being not being replaced with correct numbers/description. I’m wondering if there is a macro I can use to insert multiple rows of existing content? See photo for example (column J has formula H-I)
The picture above shows how the sheet is setup.
The picture below shows the result of the sheet if the macro is run 3 times.
Application.ScreenUpdating = False
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
cnt = Cells(Rows.Count, "A").End(xlUp).Offset(-5).Select
Dim num As Long
num = ActiveCell.Value + 5
ActiveCell = num
.Font.Bold = True
.HorizontalAlignment = xlLeft
ActiveCell.Offset(1) = "Description:"
ActiveCell.Offset(2) = "Date:"
ActiveCell.Offset(2, 1) = "@"
ActiveCell.Offset(3) = "Minimum:"
ActiveCell.Offset(4) = "Average:"
ActiveCell.Offset(5) = "Comments:"
.HorizontalAlignment = xlRight
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
Range(ActiveCell, ActiveCell.Offset(0, 9)).Select
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
Application.CutCopyMode = False
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).