Bir listedeki verilerden, başka bir listedeki verileri silmek

[gokersan]

arkadaşlar sıkıntımı forumda araştırdım ama bulamadım. umarım doğru bölümde açmışımdır konuyu.

iki adet çalışma sayfam var. birinde tüm liste, diğerinde ise bu listeden silinecek veriler listesi var.

ekteki örneğe göre 1.sayfadan 2.sayfadaki verileri silmek istiyorum.
ve sadece ayşe isimli kayıt kalıyor.

yardımlarınız için şimdiden teşekkürler...

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ekleyip açıklarmısınız.

 

[gokersan]

Merhaba,

Sorunuzu küçük bir örnek dosya ekleyip açıklarmısınız.

dosyaları ekledim. ilginize teşekkür ederim.

 

[asi_kral]

Merhaba
Örnek1 dosyasında boş bir module açın ve bu kodu kopyalayın.

Option Explicit
Sub veri_sil()
Dim XCL As Application, KTP As Workbook
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim STR As Long, YOL As String
Set XCL = CreateObject("Excel.Application")
XCL.Visible = False
YOL = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Set S1 = ActiveSheet
Set KTP = XCL.Workbooks.Open(YOL & "örnek2.xlsx")
Set S2 = KTP.Sheets("Sayfa1")
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "kral"
Set S3 = Sheets("kral")
STR = S2.Range("A" & Rows.Count).End(xlUp).Row
S2.Range("A1:C" & STR).Copy
S3.Range("A1").PasteSpecial (xlPasteValues)
KTP.Close 0: XCL.Quit
S3.Range("E2:E" & STR) = "=A2&"" ""&B2&"" ""&C2"
With WorksheetFunction
S1.Select
For STR = S1.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If .CountIf(S3.Range("E:E"), S1.Cells(STR, "A") & " " & S1.Cells(STR, "B") _
& " " & S1.Cells(STR, "C")) > 0 Then
Application.DisplayAlerts = False
Range("A" & STR & ":C" & STR).Delete xlUp
End If: Next: End With
S3.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Dosyayı kayıt ederken makro içerebilen dosya şeklinde kayıt yapınız.