[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/listing.jpg[/img]
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/screen.png[/img]
Dear sir Still have one more writing problem, it is taken only first rown of the invoice, second row is...
Thanks for the help. I have resolved the above isued. by giving following "Scrap items - "& VLOOKUP(B11,INDIRECT(SELECT&"!B:C"),2,0) I used...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/Untitled.jpg[/img]
Thanks for the reply. I am able to copy the same. I request another help to complete the process as...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/Setup.jpg[/img] The picture above shows how the sheet is setup. The picture below shows the result of the...
Thanks Hyside2, Will try out and get back to you. Regards Ozuberk
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).