如果在最后一行复制粘贴

Question

In my excel sheet i want to copy the data from last row/same row of column EKM AF AI, if a condition is met in column AF =Concrete and paste it another sheet in different location

Dim FinalRow As Long
LR = lastrow

LR = Worksheets("MASTER LOG-1").Range("AF" & Rows.Count).End(xlUp).Row

If LR = "concrete" Then

Worksheets

Dim FinalRow As Long
LR = lastrow

LR = Worksheets("MASTER LOG-1").Range("AF" & Rows.Count).End(xlUp).Row

If LR = "concrete" Then

Worksheets

if a condition is met in column AF =Concrete then copy data from same row of match in column E,K,M,AF,AI

Answer 1

This should help you well underway.

Sub Copy_Concrete()

    Dim lastr As Integer
    lastr = Worksheets("MASTER LOG-1").Range("AF" & Rows.Count).End(xlUp).Row 'determine last row of column AF
    If Worksheets("MASTER LOG-1").Range("AF" & lastr) = "Concrete" Then 'If lastrow of AF = concrete then
        Worksheets("Some other sheet").Range("Your range").Value = Worksheets("MASTER LOG-1").Range("Whichevercolumn", lastr).Value 'Set whichever range on another sheet to the value on the same row whichever column of your match.
    End If

End Sub