Excel如果单元格<=值，如何将数据行从工作表1复制到工作表2

Question

I'm trying to put together an Excel sheet that will help track when services are due for certain vehicles.

The idea is that the sheet will automatically track how many days until a service is needed. I have conditional formatting on the countdown column that if it displays a number less than or equal to 5 it turns red. I would like to take this a step further so that any vehicle displaying 5 or less days gets copied to sheet 2.

So if the countdown column displays 5 or less days I would like it to copy some of the columns in the row to Sheet 2 and continue function (the countdown still ticks down).

If that isn't possible the entire row would be fine also.

This way any vehicle that needs a service is displayed in the same area.

Any help would be greatly appreciated.

Answer 1

I'm not VBA expert but you can try this for starter.

Paste this code in Alt+F11 -> VBAProject -> Microsoft Excel Objects -> Sheet1 (Sheet1)

Private Sub Worksheet_Change(ByVal Target As Range)

'Declarations
Dim c1 As Object
Dim c2 As Object
Dim countdown As Integer
Dim rego As String
Dim duedt As String

Application.ScreenUpdating = False

Worksheets("Sheet2").Range("A2:C500").Clear
'Copy row
For Each c1 In Worksheets("Sheet1").Range("E3:E500").Cells
    If c1.Value <= 5 And c1.Value <> 0 Then
        countdown = c1.Value
        rego = c1.Offset(0, -4).Value
        duedt = c1.Offset(0, -1).Value
        For Each c2 In Worksheets("Sheet2").Range("C2:C500").Cells
            If c2.Value = "" Then
                c2.Value = countdown
                c2.Offset(0, -2).Value = rego
                c2.Offset(0, -1).Value = duedt
            Exit For
            End If
        Next c2
    End If
    If c1.Value = 0 Then
    Exit For
    End If
Next c1

Application.ScreenUpdating = True

End Sub

I am assuming 'Countdown' won't have '0' value and you will have maximum 500 entries.