Hello Ready2go This may only answer some of your question. The macro below will create a PDF file of Sheet2....
Dear Hyside2, I really appreciate your cooperation and helpful answer. Thanks so much.
Try this instead =IFERROR(LEFT(B1,FIND(" ",B1)-1),B1) [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/givenname.png[/img]
I am not sure if this is what you are looking for but test it out anyway. [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/1-2.png[/img]...
Oh! Please try this. You will need to change "Book1" on the line that reads (oFilename="Book1") to the name of...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/1-1.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/2.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/3.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/4.png[/img]
Hello Raghu, Your code worked fine for me. I did have to add the following line of code in order...
You can copy the columns using copy method, please see the below code: [code] Sheets("Source").Columns("D:H").Copy Destination:=Sheets("SheetTarget").Range("D1") [/code] Please provide...
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).