boşsa sil

[turkanet]

arkadaşlar, az önceki acil işimin devamıdır;
2 farklı makroya ihtiyacım var;

1-eğer, 1-d sütunundaki değer "ahmet" veya "mehmet" veya "veli" değilse, o satırı sil

2-eğer, a3:a3000 arasındaki bir satırın hem f hem de h hücresi boşsa, o satırı sil

bu iki makro için acil ve değerli yardımlarınızı beklerim....

saygılarımla

 

[turkanet]

arkadaşlar,

değerli yardımlarınıza acilen ihtiyacım var. bu makroları uygulayacağım belgeler binlerce satır ve toplam 11 belge

 

[hamitcan]

Sorunuzu anladığım kadarıyla bir örnek yaptım ama fazla deneyemedim.

Sub sil()
For t = 3000 To 1 Step -1
If Cells(t, 2) <> "ahmet" And Cells(t, 2) <> "mehmet" And Cells(t, 2) <> "veli" And Cells(t, 6) = "" And Cells(t, 8) = "" Then
Rows(t).Delete shift:=xlDown
End If
Next
End Sub

 

[turkanet]

Sn.Hamitcan, de&#287;erli yard&#305;m&#305;n&#305;z i&#231;in minnettar&#305;m ama olmad&#305;.

isterseniz, makrolar&#305; ayr&#305; ayr&#305; yapal&#305;m.

e&#287;er, B s&#252;tunundaki de&#287;er "ahmet" veya "mehmet" veya "veli" de&#287;ilse, o sat&#305;r&#305; sil

bu makroyu nas&#305;l olu&#351;turuz?

 

[hamitcan]

&#304;lk mesaj&#305;n&#305;zda d s&#252;tunu demi&#351;siniz, son g&#246;nderdi&#287;iniz mesajda ise b s&#252;tunu olmas&#305;n&#305; istiyorsunuz. Hangisi ge&#231;erli?

 

[turkanet]

sn. hamitcan,
B sütunu geçerlidir

 

[hamitcan]

Yukar&#305;daki kodu B s&#252;tununa g&#246;re g&#252;ncelledim. Di&#287;er k&#305;s&#305;mda ben hata yapm&#305;&#351;&#305;m. f ve h olarak d&#252;zelttim.

 

[turkanet]

SN.hamitcan, yine olmadı

kodları kendi belgenizde denediniz mi?

hata nerede anlamadım

 

[Kemal Demir]

Sub sil()
For t = 3000 To 1 Step -1
If Cells(t, 2) = "ahmet" Or Cells(t, 2) ="mehmet" Or Cells(t, 2) ="veli" And Cells(t, 6) = " " And Cells(t, 8) = " " Then
Rows(t).Delete
End If
Next
End Sub

Birde B&#246;yle Deneyiniz.

Sn.Hamitcan'&#305;n aff&#305;na s&#305;g&#305;narak bende yazmak istedim.

 

[turkanet]

sn.kemaldemir,

verdiğiniz makro çalışıyor ama ahmet, mehmet ve veli olan satırları siliyor.
ben bu isimler olmayan satırları silmesini istiyorum.

 

[turkanet]

değerli arkadaşlar,

cevaplarınıza acilen ihtiyacım var...

saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Verilerinizi i&#231;eren &#246;rnek bir dosya eklerseniz cevap alman&#305;zda o kadar kolayla&#351;acakt&#305;r.

 

[hamitcan]

Sn.Hamitcan'ın affına sıgınarak bende yazmak istedim.

Sayın kemaldemir, nezaketiniz için teşekkürler. Ama lütfen hiçbir zaman bu şekilde düşünmeyin. Bir hata gördüyseniz, müdahele ederseniz sevinirim, çünkü yanlış bilgi aktarmak kadar kötü bir şey olamaz herhalde.

Yalnız, ben de öncelikle, sizin gibi "or" operatörünü kullandım fakat doğru sonuç vermedi. Fakat "and" operatörünü kullandığım da düzgün çalışdı. Sorun nerde çözemedim.

 

[turkanet]

örnek dosya

arkadaşlar, konunun ilk halinden farklı olarak şu anda ihtiyacım olan kodlar, sadece;

b sütunundaki hücredeki değer ahmet yada mehmet değilse, o satırı silecek.

örnek dosya ektedir.

hala acil yardımlarınıza ihtiyacım var.

saygılarımla

 

[hamitcan]

Say&#305;n endorphinn,
Kodu ben denedim verdi&#287;iniz &#246;rnek &#252;zerinde. Ve do&#287;ru &#231;al&#305;&#351;d&#305;.

 

[turkanet]

EVET BENDE DE DOĞRU ÇALIŞTI. TEŞEKKÜRLER

peki,
ahmet,mehmet gibi 35 adet durum var ve ben tüm durumlar için kod satırını uzattım ama bir yerde saynı satıra yazma sınırı hatası verdi. bu durumda ne yapabilirim?

 

[hamitcan]

O zaman k&#252;&#231;&#252;k bir dosya ekleyin. Dosyada tam olarak neyi istedi&#287;inizi belirtin, eminim ki sorunuza daha &#231;abuk ve daha do&#287;ru cevap bulabileceksiniz.

 

[turkanet]

1.ekteki dosyadaki kod satırına, 2. ekteki kodu eklemek istiyorum ama satır uzunluğu az geliyor

 

[excellium]

ŞÖÖLE BİŞİLER DENEYİN

and Cells(t, 2) <> "MANILA" _
And Cells(t, 2) <> "KOBE" _
And Cells(t, 2) <> "NAGOYA" _
And Cells(t, 2) <> "TOKYO" _
And Cells(t, 2) <> "YOKOHAMA" _
And Cells(t, 2) <> "OSAKA" _
And Cells(t, 2) <> "MOJI" _
And Cells(t, 2) <> "BUSAN"

 

[Kemal Demir]

Sub sil()
For t = 3000 To 1 Step -1
If Cells(t, 2) = "ahmet" Or Cells(t, 2) ="mehmet" Or Cells(t, 2) ="veli" or Cells(t, 6) = " " or Cells(t, 8) = " " Then
Else
Rows(t).Delete
End If
Next
End Sub

.

Kodda De&#287;i&#351;iklik yapt&#305;m.Kodda Problem G&#246;remedim.Ozaman kend&#305; ad&#305;ma atlad&#305;g&#305;m bir&#351;ey var.