şart sağlayanları aktar

[ToRuKMaKto]

excelde bir satırı içindeki bilgiler ile başka sayfaya atmak istiyorum.bunun için bana yardımcı olur musunuz?
3 sütun olacak ve sütunun birinde durum evet olursa bilgiler başka sayfaya aktarılacak...şimdiden teşekkürler

 

[usubaykan]

Merhaba;

A sütununa BAŞLIK 1 , B sütunu için BAŞLIK 2 , C sütunun için DURUM sütunun olduğunu varsayarsak C sütunundaki evet yazısına göre sayfa2 aktarım yapacaktır. Aşağıdaki kodu deneyiniz.

Option Explicit
Sub deneme()
Dim u As Long, S1 As Worksheet, S2 As Worksheet
Dim Son_Satır As Long, Hücre As Range
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.Range("A2:C" & S2.Range("C65536").End(3).Row + 1).ClearContents
    For Each Hücre In S1.Range("C2:C" & S1.Range("C65536").End(3).Row)
        If Hücre = "evet" Then
            Son_Satır = S2.Range("A65536").End(3).Row + 1
            S2.Cells(Son_Satır, "A") = S1.Cells(Hücre.Row, "A")
            S2.Cells(Son_Satır, "B") = S1.Cells(Hücre.Row, "B")
            S2.Cells(Son_Satır, "C") = S1.Cells(Hücre.Row, "C")
        End If
    Next
End Sub

 

[ToRuKMaKto]

Tesekkürler.Deneyeceğim..