ilastrow

Hi All, I'm trying to add 5 rows after the word "Aaron" is found in a sheet. I found the macro below but it only adds 1 row - how can I change this to add 5. Thanks, Aaron. Sub test() Dim iLastRow As Long Dim i As Long iLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = iLastRow To 1 Step...

Hello,, i am currently using the folliwng vba to remove unwanted rows, however as the data grows the refresh time is not very fast. iLastRow = Cells(Rows.Count, "g").End(xlUp).Row For i = iLastRow To 1 Step -1 If Cells(i, "j").Value = "xxx" Then Rows(i).delete...

hi (again) folks. I have a work book with several sheets that need printing. at the moment the print code only works with the active sheet and i cant figure out how to put a print button on a different sheet to print. currently my code (stolen from somewhere :( ) its opens the txt file and...

Hi guys, I set a button on another sheet where I wanna use my code, However this code does not work when the sheet is hided. Can someone tell me why? Sub Copydata() Dim iLastRow As Long ActiveWorkbook.Sheets("Clean1").Select Cells.ClearContents Sheets("Data Dump to be...

So this worked fine a few months which was the last time i used it but every time i run it now it says Run-time error 13 Type Mismatch Sub DeleteRows() Dim iLastRow As Long Dim i As Long iLastRow = Cells(Rows.Count, "G").End(xlUp).Row For i = iLastRow To 1 Step -1 If...

Hello guys, I want to copy data from RawData into RawData2 Taking the data from RawData range A2:CF until it find lastrow ===> then copy this data into RawData2 from range A11 But before pasting the data into RawData2, I want to clear content from A11:CF until last row. That is pretty much...