Satır silme

[Huseyinkis]

Merhaba


Ekte bulunan bölümde b2:K2 satırları arasında kalan hücrelere gireceğim değerleri (bu değerler 3 tanede olabilerir 10 tanede) aşağıda bulunan satırlarda (b20:Z20 veya B65400:Z65400 olabilir) 2 satırda bulunan kodlardan kaçtane yazdıysam 3 tane yazdıysam üç tanesinin aynı satırda bulunan satırları 10 tanesini yazdıysam 10 tanesi aynı satırda bulunan satırların silinmesi gerekiyor .

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

 

[cako]

Bir inceleyin.

 

[Huseyinkis]

sayın cako


dosyayı indirdim fakat içerisinde herhangi bir makro yazılmamış sanırım benim yüklediğim dosyayı tekrar yüklemişsiniz

 

[cako]

pardon.... editledim

 

[Huseyinkis]

sayın cako dosyayı indirdim dosya sadece tek bir satıra bakıyor b2:k2 arasına yazdığım değerlerden herhangi birisi varsa bile satırı siliyor..

benim istediğim oraya 3 adet veri girdiysem satırda 3 tanesinide bulursa silecek
yani ben yukarıya A1 A22 A200 yazdıysam

satırda A1 A22 B1 B22 vs. varsa silmeyecek yukarıda belirtilenlerin hepsi aynı satırda mevcutsa silme işlemi yapacak..

birde bu sadece en üstteki satıra bakıyor diğer satırları silmiyor...


:dua:

 

[cako]

Kodları bu şekilde düzelt.
[vb:1:50f7c5e4a0]Private Sub CommandButton1_Click()
y = 0
x = 0
For a = 2 To 11
If Not IsEmpty(Cells(2, a)) Then y = y + 1
Next a

For i = 12 To Range("B65400").End(xlUp).Row
x = 0
For a = 2 To 11
If Not IsEmpty(Cells(2, a)) Then
For b = 2 To 26
If Cells(2, a) = Cells(i, b) Then
x = x + 1
If x = y Then
Range(Cells(i, 1), Cells(i, 26)).Delete
GoTo atla
End If
End If
Next b
End If
Next a
atla:
Next i
End Sub
[/vb:1:50f7c5e4a0]

 

[Huseyinkis]

teşekkürler bu oldu fakat bu seferde aynı satırları bulup silmesi için bir kere tıklamak yetmiyor aynı numaraların olduğu satırları bazen es geçip altaki satırları siliyor bir kaç kere tıklayınca ancak hepsi siliniyor..

A5 B7 A100 S11 D11 Y99 satırlara bunları yazıp deneseniz sanırım sizde göreceksiniz...



:dua:


eğer bunuda yaparsanız sevinirim..


çok teşekkürler..


:dua: :dua:

 

[cako]

silm işleminen sonra i=i-1 satırını ekleyin.
Sanırım hata burada
...........
Range(Cells(i, 1), Cells(i, 26)).Delete
i=i-1
.........

 

[Huseyinkis]

sayın cako

Yardımlarınız için çok teşekkür ederim..

:dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: