копировать данные с одного листа на другой?

Question

Здравствуйте, я попробовал следующий код, чтобы помочь мне копировать данные с одного листа на другой с одним условием (копировать только строки с «Завершено - Назначение сделано/Complété - Nomination faite» (Range (AB)). Я ничего не вижу когда я нажимаю на кнопку.

любая помощь приветствуется

Sub copier() 
Dim ws1 As Worksheet, ws2 As Worksheet, src As Range, dest As Range, i As Integer 

Set ws1 = Worksheets("Workload - Charge de travail") 
Set ws2 = Worksheets("Sheet1") 


For i = 2 To ws1.Range("A1").SpecialCells(xlLastCell).Row 


    Set src = ws1.Range("A2:AL50") ' la selection des plages de donnees 
    Set dest = ws2.Range("A2:AL50") 


    If src.Cells(i, 31).Value = "Completed - Appointment made/Complété - Nomination faite" Then 

     '(i,31) for my drop down list 


     src.Copy Destination:=dest ' page source 
     dest.Value = dest.Value 'destination page 

    End If 

Next i 
End Sub 

Answer 1

Проводка в качестве ответа, потому что я чувствую, что должен быть один.

чтобы продолжить нашу дискуссию от комментариев, вы пытаетесь скопируйте только строки, которые содержат значение «Завершено - Назначение сделано/Complété - Nomin ция faite»в колонке 28.

Я думаю, что вы могли бы сделать что-то вроде этого, выполнив:

Sub copier() 
    Dim ws1 As Worksheet, ws2 As Worksheet, src As Range, dest As Range, i As Integer 
    Dim DestinationRow As Integer 

    DestinationRow = 1 
    Set ws1 = Worksheets("Workload - Charge de travail") 
    Set ws2 = Worksheets("Sheet1") 

    For i = 2 To ws1.Range("A1").SpecialCells(xlLastCell).Row 
     Set src = ws1.Range("A2:AL50") 
     Set dest = ws2.Range("A2:AL50") 

     If src.Cells(i, 28).Value = "Completed - Appointment made/Complété - Nomination faite" Then 
      src.Rows(i).Copy Destination:=dest.Rows(DestinationRow) 
      DestinationRow = DestinationRow + 1 
     End If 
    Next i 
End Sub