2 kolanda olanları silme

[altay76]

selam arkadaşlar a ve c sutununalrı olan bir excell sayfasında c sutundakı degerlerı a sutunundakı degerlerde arayıp varsa a sutunundan sılmesıne yarayan bır makro yada kod varmı acaba .teşekkürler

 

[İhsan Tank]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
Dim Son As Long
Son = [A65536].End(3).Row
Application.ScreenUpdating = False
Range("A2:A" & Son).Interior.ColorIndex = xlNone
For i = Son To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then
Cells(i, "A").Interior.ColorIndex = 15
End If
Next i
Application.ScreenUpdating = True
End Sub
bu kodu uyarlayabilirsin
http://www.excel.web.tr/f14/excelde-mukerrer-veri-bulma-t60904.html adrese bakabilirsinç

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sil()
Dim sat1, sat2 As Integer
    For sat1 = 1 To Cells(65536, "a").End(xlUp).Row
    For sat2 = 1 To Cells(65536, "c").End(xlUp).Row
        If Cells(sat1, "a") Like Cells(sat2, "c") Then
            Cells(sat1, "a").Delete shift:=xlUp
        End If
    Next: Next
End Sub

 

[altay76]

bu çok güzel teşekkürler delet kısmına clear yazıp bos bırakmasını ıstıyorum olmuyor acaba clear olmazmı yanı sıldıgı yer aslında bos bırakacagım
daha dogrusu a dan sıldıgında aynı satırın tamamından sılmesını ıstıyorum a1 b1 c1 d1
yada bos bıraksa ben sonra fılıutse ıle boslukları kopmle sılerım olursa olmazsada tesekkurler

 

[N.Ziya Hiçdurmaz]

yanıt

Cells(sat1, "a").EntireRow.Clear 'hücrelerin içeriğini siler

Cells(sat1, "a").EntireRow.Delete 'komple satırı siler

 

[altay76]

arkadaşım cok teşekkür ederim.bu kadar kısa surede yanıt verdıgınız ıcın.
yanlız kabahatlı benım cunku a b c sutunudakı verıler var bu verıler bırbırın baglı f sutunundakı verılerı b sutunundakıye yapınca sılıyor sılerken yukarı cıktıgından verıler karısmıs oluyor.bunun yukarı kaymasını engelleyebılırmıyız yada f tekı verı b de varsa kopmle abc sutunundan sılınebılırmı
cok tesekur ederim

 

[altay76]

kusura bakma yazıyı aynı anda yazdık sanırım.Cells(sat1, "a").EntireRow.Delete 'komple satırı siler bu kod guzel cok tesekkur ederim yanlız bu safer benım c dekı lerde gıdıyor acaba c yerıne sayfa 2 ye koysam nasıl olur aranılacakları For sat2 = 1 To Cells(65536, "sayfa2!c").End(xlUp).Row

bu sekılde olurmu

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sil()
Dim sat1, sat2 As Integer
    For sat1 = 1 To Cells(65536, "b").End(xlUp).Row
    For sat2 = 1 To Cells(65536, "f").End(xlUp).Row
        If Cells(sat1, "b") Like Cells(sat2, "f") Then
            Range(Cells(sat1, "a"), Cells(sat1, "c")).Delete shift:=xlUp
        End If
    Next: Next
End Sub

 

[altay76]

teşekkürler arkadasım cok sagol acele ettıgımde cevabını beklemeden yazıdım kusura bakma sagol gecenın bu saatınde ugrastıgın ıcın

 

[N.Ziya Hiçdurmaz]

Bişey değil

 

[altay76]

Sub sil()
Dim sat1, sat2 As Integer
For sat1 = 1 To Cells(65536, "b").End(xlUp).Row
For sat2 = 1 To Cells(65536, "f").End(xlUp).Row
If Cells(sat1, "b") Like Cells(sat2, "f") Then
Range(Cells(sat1, "a"), Cells(sat1, "c")).Delete shift:=xlUp
End If
Next: Next
End Sub

kusura bakmayın bu komut siliyor ama sutunlar 40000 bınden buyuk oldugundan bazen sılmeyenler oldu onlar için ne yapabilirim

 

[leumruk]

Merhaba,
B sütunundaki veri F' de varsa komple satırı silsin demişsiniz. B'deki veri F'nin aynı satırındaysa mı silsin; yoksa farklı satırlarda da olabilir mi? Yani b3'de olan veri f3'te mi olmalı; yoksa f5,f8,f11 gibi farklı satırlarda da olabilir mi?

 

[altay76]

f sutununun her hangı bır yerındekı verı b sutunundada varsa a dan f e kadar b dekı bulundugu yerdekını sılme

 

[leumruk]

Aşağıdaki kodu deneyin:

Sub Sil()
Application.ScreenUpdating = False
For x = [b65536].End(3).Row To 1 Step -1
Say = WorksheetFunction.CountIf(Range("k1:k" & [k65536].End(3).Row), Cells(x, "g"))
If Say > 0 Then
q = q + 1
Range(Cells(x, "a"), Cells(x, "g")).Delete shift:=xlUp
End If
Next
If q > 0 Then
MsgBox "Silme işlemi tamamlandı. Silinen veri sayısı: " & q, vbInformation, "DURUM"
Else:
MsgBox "Silinecek veri bulunamadı.", vbInformation, "DURUM"
End If
End Sub

 

[altay76]

dosyamı incelerseniz sevinirim

 

[leumruk]

14 nolu mesajdaki kodu güncelledim. Bir de örnek dosya ekledim. K sütunu için düzenledim. K sütunu isimli butona tıklayacaksınız. Eğer istediğiniz böyle bir şeyse diğer sütunu da yapalım; değilse açıklama ekleyiniz.

 

[altay76]

evet bu sekıl l sutunu ıcınde aynısı olacak aslında

 

[leumruk]

evet bu sekıl l sutunu ıcınde aynısı olacak aslında

Üst mesajımdaki dosyayı güncelledim. Yeniden indirebilirsiniz.