Çift kayıtları silmek

[çıtır]

Veriler A Sütunu sayfa1 de

Sub ciftsil()
Dim sonsat As Long, sonsat1 As Long, i As Long
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
s = 1
bas:
 If WorksheetFunction.CountIf(s1.Range("A1:A" & sonsat), s1.Range("A" & s)) = 1 Then GoTo bas1
 sil = s1.Range("A" & s)
For Each hucre In ActiveSheet.UsedRange
If IsError(hucre.Value) = True Then
Range(hucre.Address) = ""
ElseIf Range(hucre.Address) = sil Then Range(hucre.Address) = ""
End If
Next
bas1:
s = s + 1
If s < sonsat Then GoTo bas
On Error GoTo son
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

son:
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAM", vbInformation
End Sub

 

[Necdet]

Merhaba,
Aynı sütünda alt alta rakamların çift olanların ikisininde silinmesini istiyorum.
Örneğin;Aşağıdaki verilerden aynı olanlarının ikisininde listeden çıkarılamasını istiyorum
Nasıl yapabilirim.
Tesekkur ederım.
125
145
130
125
127

Merhaba,
Bunun için makroya gerek var mı bilmiyorum.

1. satırın başlık olduğunu varsayılım
B2:

=EĞERSAY(A:A;A2)

ve formülü A sütunu bitene kadar kopyalayın.

sonra B sütununda Süz yaparak 1 dışındaki verileri süzdürün.
Ve tüm satırları silin.
B sütununu da silebilirsiniz.

 

[KARTAL133]

Merhaba Arkadaşlar

Çif kayırları silmek istiyorum.
Ancak Tutara göre ve fatura numarasına göre silmek istiyorum.
Örneğin Fatura Numaraları aynı olan ancak Tutar kısmı (-) ve (+) ise ikisi birbirin götürmesi gerekiyor.
Konu ile yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Merhaba,

Paylaşım sitelerine dosyanızı yükleyip linkini bizimle paylaşın. Bu şekilde daha net sonuç alabiliriz.

 

[KARTAL133]

Merhaba,

Paylaşım sitelerine dosyanızı yükleyip linkini bizimle paylaşın. Bu şekilde daha net sonuç alabiliriz.

Merhaba Ayhan Bey

Örnek Dosya Aşağıdaki linkte bula bilirsiniz
şimdiden yardımlarınız için teşekkürler

https://dosya.co/qxyznb5qbxh4/Örnek_Doysa.xlsx.html

 

[Korhan Ayhan]

Kaç satırlık bir veride bu işlemi yapacaksınız.

 

[Korhan Ayhan]

Merhaba,

Dosyanız için gerekli kodu hazırladım. Örnek veriniz az olduğu için atladığımız kriter olup-olmadığını bilemiyorum.

Kendi dosyanızda (YEDEKLEYEREK) deneyiniz.

Makro her fatura (Normal-İade) için 5 arama tekrarı yapıyor. Sürenin uzamaması adına bu koşulu ekledim. Bu sorunu aşmak için verileri sıralamak gerekebilir.

Olumsuz yönleri varsa geliştiririz.

Harici Link (Silinebilir) ; https://we.tl/t-SZkNbNZP1q

 

[KARTAL133]

yardımların için çok teşekkürler

 

[KARTAL133]

Bazı değişlik yaptım ama sorun çıktı ayrıca Tarih Aynı olduğu zaman silmiyor

 

[KARTAL133]

Ayhan bey
Kontrol etmeniz rica ederim.
Yeni Dosya Ektedir.
Kusura Bakmayın sizide uğraştırıyorum.

https://dosyayukle.club/9qy

 

[KARTAL133]

Merhaba Ayhan Bey

Kodları değiştirdim. Çok güzel bir çalışma yapılmış emeğinize sağlık