Добавление дополнительных операторов if в мой текущий модуль в VBA

Question

У меня уже есть рабочий код, но он работает только для одного человека. Мне нужно иметь возможность перемещать данные многих людей с одного листа на другой

Sub button()

With Worksheets("three").Range("G1")

    If .Value = "sconlon@iadvancenow.com" Then

     Worksheets("Sheet2").Range("C3") = .Offset(0, 1).Value

     Worksheets("Sheet2").Range("D3") = .Offset(0, 2).Value

     End If

With Worksheets("three").Range("G1")

    If .Value = "kedwards@iadvancenow.com" Then

    Worksheets("Sheet2").Range("C4") = .Offset(0, 1).Value

    Worksheets("Sheet2").Range("D4") = .Offset(0, 2).Value

    End If

End With 

End Sub

Я получаю результаты только от первого лица

Answer 1

Ваш текущий код не может быть скомпилирован с Compile error: Expected End With. Вам нужно только 1 With заявление для того, что вы пытаетесь сделать. Кроме того, используйте If/ElseIf в этом сценарии:

Sub button()

    With Worksheets("three").Range("G1")

        If .Value = "sconlon@iadvancenow.com" Then

            Worksheets("Sheet2").Range("C3") = .Offset(0, 1).Value
            Worksheets("Sheet2").Range("D3") = .Offset(0, 2).Value

        ElseIf .Value = "kedwards@iadvancenow.com" Then

            Worksheets("Sheet2").Range("C4") = .Offset(0, 1).Value
            Worksheets("Sheet2").Range("D4") = .Offset(0, 2).Value

        Else

            'Add whatever else you need - or maybe some more ElseIfs!

        End If

    End With

End Sub

Однако я не уверен, чего вы пытаетесь достичь - сейчас вы смотрите только на ячейку G1 - как настроены ваши данные? Вы должны указать больше информации, чтобы мы могли вам помочь.