Copy the row plus the next 3

I have the below code that works great. It parses through all my sheets and finds the row in column A that I want and pastes it to a specified worksheet. However, I need it to copy the specified row plus the next X number of rows. Can someone help me accomplish this?

Sub FindValues()
    Dim ws As Excel.Worksheet
    Dim LastRow As Long
    Dim i As Integer

    For Each ws In Application.ThisWorkbook.Worksheets
        LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        i = 1

        Do While i <= LastRow
            If ws.Range("A" & i).Value = "OwnershipType Ownership Type" Then
                ws.Rows(i).Copy Sheets("Summary").Range("A2")
                i = i - 1
                LastRow = LastRow - 1
            End If
            i = i + 1
        Loop
    Next

End Sub

You can amend the range of rows being copied on this line like so:

ws.Rows(i & ":" & i + 3).Copy Sheets("Summary").Range("A2")

If the match was found in row 1 for example, the code would render as ws.Rows(1:4).Copy

Finding a pattern and copying the next line

I have a text file that looks like this: AAA BBB CCC AAA DDD EEE It has a specific keyword, for example AAA. After encountering the keyword, I'd like to copy the following line and then write it a second time in my output file. I want it to look like

Copy folders and store them in a text file to exclude folders once copied the next time

I try to write a script that can monitor a folder H:\Start and copy a new subfolder with its files in H:\Start to new location H:\Target. The script should store the copied folder and files in a text file. Each time the script starts new and monitors

Copy the next html content for brothers and sisters in AngularJS

Whenever overlay element is clicked and startCopying() method is called, the text from copyTextTag should be copied in the pasteTextTag element. The text should be copied in HTML format and pasted as HTML format. Also there are multiple copyTextTag b

Copy the previous row value on all subsequent lines in SQL

I have requirement to copy previous rows values to next all rows in sql server. With LAG function, I can achieve this one only for next row. but I have to copy more than rows. Here is sample example : Query: SELECT t1.ID, t1.CustID, t2.ID, t2.CustID,

Excel VBA - Loop to copy the line to a certain value

I have a spreadsheet that will have multiple header-style rows in it. I want to copy the row beneath each header using a script. I currently have this from a 3 year old StackOverflow answer: Private Sub CommandButton4_Click() Dim i As Range For Each

LOOP: Copy the value of cells (in a list) from one sheet to another

The purpose of this macro is copy one cell value (from a long list) to another cell located in a different sheet. here's my code: Sub journalben() Set rawben = Sheets("BEN") Set finaljnl = Sheets("JNL_BEN") Set Rng = Range("G2:G10

Segfault when accessing the next node in the linked list separately

I'm trying to just reverse a singly linked list, but with a bit of a twist. Rather than having the pointer to the next node be the actual next node, it points to the pointer in that next node. struct _Node { union { int n; char c; } val; void *ptr; /

Copy the string from the BSS variable to the BSS variable in the assembly

Let's suppose I have to string stored in variables created in the .BSS section. var1 resw 5 ; this is "abcde" (UNICODE) var2 resw 5 ; here I will copy the first one How would I do this with NASM? I tried something like this: mov ebx, var2 ; Here

How to find and copy the last created file larger than a custom format?

I wrote a batch file which should find and copy the latest build file bigger than a 3.5 GB. set source=D:\src set tmp_dir="D:\tmp" set "file=" for /f "delims=|" %%a in (' dir /b /o-d "%source%\*.zip" 2^>nul ^| cm

TSQL: How to copy the value of a column from the previous row to the next row in a different column

I have a SQL table where I want to update the value of Location/Description from the value of Number. For eg: The 2nd row in the table should have a Loaction/Descritption as "Freezer Twnety". Like wise the last 2 rows should have Location/Descri

EXCEL VBA - Loop the cells in a row, otherwise blank, copy the value of the cell to another row until the next row is not empty

I'm considering writing some code to copy the data of row to the next until the next row is not empty. Suppose all in row 1 are headers. Data is like: A2 ClientA B2 Product1 C2 Price D2 Quantity E2 Cost A3 B3 C3 Price D3 Quantity E3 Cost A4 B4 C4 Pri

Related Articles