koşula bağlı olarak diğer sayfaya satır kopyalama

[obsesyonur]

İyi geceler,Sayfa1 deki veri girişlerinde istenilen koşul sağlanmış ise koşul sağlanan satırı Sayfa 2'ye Kopyalamak istiyorum.Örnek Belge içinde yapılmak istenilen olayı daha ayrıntılı biçimde anlattım.Yardımcı olabilecek herkese şimdiden teşekkür ederim.

[SNNAY]

Deneyiniz.

Kod: Tümünü seç

Sub Kopyala()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Integer
    Dim copyRow As Boolean
    
    Set ws1 = ThisWorkbook.Sheets("Sayfa1")
    Set ws2 = ThisWorkbook.Sheets("Sayfa2")
    
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1
    
    For i = 2 To lastRow1
        copyRow = True
        For j = 2 To 8 ' B sütunundan H sütununa kadar olan hücreleri kontrol et
            If IsEmpty(ws1.Cells(i, j)) Then
                copyRow = False
                Exit For
            End If
        Next j
        
        If copyRow Then
            ws1.Rows(i).Copy Destination:=ws2.Rows(lastRow2)
            lastRow2 = lastRow2 + 1
        End If
    Next i
    
    MsgBox "Kopyalama işlemi tamamlandı."
End Sub

[obsesyonur]

Sayın Sinan Aykaç önerdiğiniz makro kodu güzel çalışıyor,emekleriniz için teşekkür ederim.İyi çalışmalar.