Если с копией вставьте в последнюю строку

Question

В моем листе Excel я хочу скопировать данные из последней строки / той же строки столбца EKM AF AI, если условие выполняется в столбце AF = Бетон, и вставить его в другой лист в другом месте

Dim FinalRow As Long
LR = lastrow

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

If LR = "concrete" Then

Рабочие листы

Dim FinalRow As Long
LR = lastrow

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

If LR = "concrete" Then

Рабочие листы

если в столбце AF = Бетон выполняется условие, то копировать данные из той же строки соответствия в столбце E, K, M, AF, AI

Answer 1

Это должно вам помочь.

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