VBA cut/paste in another tabClosed

Question

Dear all, 


I'm trying to copy in a different tab all rows that indicate in column [AN] a value less to or equal to 12. However, this column, as it refers to the duration left in mission of an employee, can sometimes also be filled by "Finished".



I am really a beginner in VBA so please forgive me if the answer is quite easy, it is still out of my grasp!



I tried the following code but it doesnt seem to work at all:



Sub Bouton1_Cliquer()

Set i = Sheets("Data base")
Set e = Sheets("Feuil4")
Dim d
Dim j
d = 3
j = 5

Do Until j = 9999

If i.Range("AM" & j) <= 12 Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value
i.Select
Rows(j).Copy

e.Select
Rows(d).PasteSpecial

End If
j = j + 1
Loop

End Sub


I would appreciate any help!!

TrowaD · Answer

Hi Lyriste,

Consider this structure and let us know where you get stuck.
Sub Bouton1_Cliquer()
Dim lRow As Integer

lRow = Range("AM" & Rows.Count).End(xlUp).Row

For Each cell In Range("AM5:AM" & lRow)
    If cell.Value <= 12 Or cell.Value = "Finished" Then
        cell.EntireRow.Copy Sheets("Feuil4").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next cell

End Sub

Well ... I guess it turned out to be more of a solution then a structure, still let us know if something is unclear.

Best regards,
Trowa

VBA cut/paste in another tab

1 response

Similar discussions

Subscribe To Our Newsletter!