Hi everyone,
Appreciate if anyone could help me with the macro that I have. When I use this, sometimes the process of copying and pasting becomes more than once ( 2 or 3 times).
'Accounts opened
Sheets("DATA").Select
If Range("AB81").Value > 0 Then
Sheets("Accounts opened").Range("A1:E1").Copy
Worksheets("Accounts opened").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Else
End If
'Accounts closed
Sheets("DATA").Select
If Range("Z89").Value > 0 Then
Sheets("Accounts closed").Range("A1:E1").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If
Sheets("DATA").Select
If Range("Z90").Value > 0 Then
Sheets("Accounts closed").Range("A2:E2").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If
Sheets("DATA").Select
If Range("Z91").Value > 0 Then
Sheets("Accounts closed").Range("A3:E3").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Else
End If
Please help me out. Thank you
Appreciate if anyone could help me with the macro that I have. When I use this, sometimes the process of copying and pasting becomes more than once ( 2 or 3 times).
'Accounts opened
Sheets("DATA").Select
If Range("AB81").Value > 0 Then
Sheets("Accounts opened").Range("A1:E1").Copy
Worksheets("Accounts opened").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Else
End If
'Accounts closed
Sheets("DATA").Select
If Range("Z89").Value > 0 Then
Sheets("Accounts closed").Range("A1:E1").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If
Sheets("DATA").Select
If Range("Z90").Value > 0 Then
Sheets("Accounts closed").Range("A2:E2").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If
Sheets("DATA").Select
If Range("Z91").Value > 0 Then
Sheets("Accounts closed").Range("A3:E3").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Else
End If
Please help me out. Thank you