rangea

The code below inserts a row between data which is <> identical to the preceding cell in column A. What I am unsure of is the lastrow to 3. In particular 3. Could someone provide explanation and or can this be observed line by line. Thank You Still learning Sub insertRows() Dim i As...

I have question on this, please. Please guide, what can be the solution.. I have some preposition's in my sentence..which are.. and, at, is, for, of, or I want to keep them in small letter and rest other text in proper case... I am showing my code.. '*Text Formating Proper, LowerCase...

Hi, I want to perform the same macro on different sheets in my workbook. I have 10 sheets for which I want to perform the macro. (Sheet "2007" to Sheet "2016) This is the code to be executed on every sheet : Sub SelectName() Sheets("2007").Select Range("A" &...

Hi, I have set up my own stock control with Purchase orders. Using a VBA I save the PO to a register and also save a pdf copy to another folder. i would like to open the PDF from the Register using a hyperlink (this i have completed), but it only opens the folder with the PO's listed. How can...

I am using the following code: Dim r As Long For r = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1 If Range("H" & r).Value <> Range("H" & r - 1) Then Rows(r).Insert Rows(r).Insert End If Next r For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row + 1 If IsEmpty(Range("a" & r).Value) Then...

Hello, I have a spreadsheet with data in column A. Rows 1 to 16 are filled with header information and a linest function. Since the linest function does not exclude hidden cells I need a macro that will delete the row if the cell value is less than my input criteria from F1 and also if the...

Good Morning, I am putting the final touches on my macro and have two issues I need help resolving. 1) I need to create a IF to a row delete since when there are no rows to delete I get and error. here is the line of code. Range("A7:A" &...

OK so here is the VBA I am using. its supposed to delete the row with the work Multi_Skill if the row below it has a blank cell in column A and a specific text in column H. the dang thing isn't working. What have I done wrong? Sub fixBlankname() Sheets("Data").Activate For My_ROWS = 1 To...

Trying to write VBA that looks for blank cell in column A. if blank copy the cell directly and to column G above it and paste in the blank cells. Im a little stuck. here is what I have. Sub Copyname() Application.ScreenUpdating = False For MY_ROWS = 1 To Range("A" &...

Range("A" & .ListIndex).Value