If cells contain the same numbers How to Copy the entire row

[punnipah]

If cells contain the same numbers Copy the entire row value and paste it in the next column.

How to Type VBA Code

Ex. If Columns "G" is the Same Number and then Copy Word "CI" the entire row and Word "UOB" Copy the entire row.

Looping

 

[Colo]

Hi,
One question.
If column G has the same #, Copy the entire row or Copy BP and BQ only?

 

[punnipah]

Hi,
One question.
If column G has the same #, Copy the entire row or Copy BP and BQ only?

Copy BP and BQ only

 

[Colo]

Hi,
Here is a basic sample. Depending on the data count, this sample access to the cell in a loop, you might feel slow. Anyway, give it a try then.

Sub Sample1()
    Dim i As Long, p As String
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        If Cells(i, "G").Value = p Then
            Cells(i, "BP").Resize(, 2).Value = Cells(i - 1, "BP").Resize(, 2).Value
        End If
        p = Cells(i, "G").Value
    Next
    Application.ScreenUpdating = True
End Sub

 

[punnipah]

it's awesome Thank you Very much.

Hi,
Here is a basic sample. Depending on the data count, this sample access to the cell in a loop, you might feel slow. Anyway, give it a try then.

Sub Sample1()
    Dim i As Long, p As String
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        If Cells(i, "G").Value = p Then
            Cells(i, "BP").Resize(, 2).Value = Cells(i - 1, "BP").Resize(, 2).Value
        End If
        p = Cells(i, "G").Value
    Next
    Application.ScreenUpdating = True
End Sub[/CODE
[/QUOTE]

 

[Colo]

it's awesome Thank you Very much.

Anytime! Glad it helps.

 

[punnipah]

Anytime! Glad it helps.

@Colo

Sorry that I have to ask again


If "BP" Have Some Text Don't to do it.

Ex. Green Crop

 

[Colo]

Hi there! Try this one.

Sub Sample2()
    Dim i As Long, p As String
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        If Cells(i, "G").Value = p Then
            If Cells(i, "BP").Value = "" Then
                Cells(i, "BP").Resize(, 2).Value = Cells(i - 1, "BP").Resize(, 2).Value
            End If
        End If
        p = Cells(i, "G").Value
    Next
    Application.ScreenUpdating = True
End Sub

 

[punnipah]

Hi there! Try this one.

Sub Sample2()
    Dim i As Long, p As String
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        If Cells(i, "G").Value = p Then
            If Cells(i, "BP").Value = "" Then
                Cells(i, "BP").Resize(, 2).Value = Cells(i - 1, "BP").Resize(, 2).Value
            End If
        End If
        p = Cells(i, "G").Value
    Next
    Application.ScreenUpdating = True
End Sub

Thnk you Verymuch