Soru Sayfa1 deki veriyi Sayfa2 de arama yok ise satırı kopyalama.

[ilhanaraz]

Merhaba,
Konu açıldı mı forumda bulamadım. Konu da basit ama bir türlü kodları bağlayamadım.

2 sayfadan oluşan bir çalışma kitabım var, Sayfa1 de veri girişi yapıyorum ve bu verinin işi bittiğinde siliyorum.
Sayfa1 de giriş yaptığım verileri Sayfa2 de arşivliyorum burada silme işlemi yapmıyorum.

Sizlerden istediğim şu:
Çalışma kitabını her açtığımda Sayfa1 A sütunundaki verileri yukarıdan aşağıya sırası ile Sayfa2 A sutununda arama yapsın.
Sayfa1 A sütununda yazılı veri Sayfa2 A sütununda yok ise Sayfa1 den satırı kopyalayıp Sayfa2 nin son satırına yapıştırsın.
Tabi 1 den fazla veri olacağı için döngüde gerekli
Ustalarımız ve Hocalarımız için çok kolaydır sanırım

 

[ÖmerFaruk]

Kod Sayfanızın ThisWorkbook (Bu çalışma kitabı) bölümüne yapıştırabilrsin.

Private Sub Workbook_Open()
For i = 1 To Worksheets("Sayfa1").Range("A1").End(xlDown).Row
    Aranan = Worksheets("Sayfa1").Range("A" & i).Value
    Set Bul = Worksheets("Sayfa2").Range("A:A").Find(Aranan, , xlValues, xlWhole)
    If Bul Is Nothing Then
        Son = Worksheets("Sayfa2").Range("A1").End(xlDown).Row
        Worksheets("Sayfa1").Rows(i).Copy
        Worksheets("Sayfa2").Rows(Son + 1).PasteSpecial xlPasteValues
    End If
Next i
End Sub

 

[ilhanaraz]

Çok çok teşekkür ederim. Tam yazmak istediğim kod. Benim bir kaç noktada eksiğim varmış