Sırasıyla Satır ve Sütun Silme işlemleri.

[sensizsoldum]

Merhaba Arkadaşlar,
bi buton sayesinde sırasıyla istenılen satırların sılınmesını ıstıyorum.

A sutundan MH - MD - MB ile başlayanlar hariç satırların silinmesi,
I sutununda 1 olanlar hariç satırların silinmesi,
E sutununda ise. 000-0000 3 yada 4 sıfır ile başlayanlar hariç satırların silinmesini, daha sonra sadece sutun olarak a ve ı sutunları silmek istıyorum.

örnek çalışmam ektedir.
ben renklerle de belirttim arkadaşlar umarım açıklayıcı olmuşumdur.ilgilenecek arkadaşlara şimdiden gönulden tşklerımı sumarım

 

[uzmanamele]

Merhaba
A sütunu için

Sub Makro_A()

    ActiveSheet.Range("$A$1:$I$139").AutoFilter Field:=1, _
    Criteria1:=Array("NB", "ND", "NH"), Operator:=xlFilterValues
Rows("2:300").Select
Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$I$300").AutoFilter Field:=1

End Sub

I sütunu için

Sub Makro_I()

    ActiveSheet.Range("$A$1:$I$139").AutoFilter Field:=9, Criteria1:=Array("2", _
        "3", "="), Operator:=xlFilterValues
Rows("2:300").Select
Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$I$300").AutoFilter Field:=9

End Sub

E sütunu için gerekli kodu yukardakilere benzeterek siz yazınız.

 

[sensizsoldum]

merhaba sayun uzman hocamız. ilginize tşk ederım
sanırsam bunlar ayrı ayrı buton eklemek gerekıyor
bır butona tıklattığımda hepsının olmasını ıstıyordum

 

[uzmanamele]

Merhaba
Tek makro olarak alt alta yazıp tıklamak çok mu zor!?

 

[sensizsoldum]

merhaba
sayın uzman hocam.
bu işemi kımse yorulmasın diye parça parça olarak sunuyorum. çalışmalarım oldukça ağır ve çok zahmet istıyor. kımseye yuk olmak ta istemıyorum. yardımlarınız için tşekkur ederım. verilen emekler gerçektenn çok kıymetlı.

 

[sensizsoldum]

sayın uzman hocam,
aşağıda verdiğim kod, bahsettiğim 3 sutundan istemedıklerımı siliyor ben buna eklentı olarak bu işlemlerden sonra... a ve ı sutunlarını sılmesını istıyorum.
bu konuda yardım olabilirmısınız.



Sub istenmeyenleri_sil()
Dim i As Long
For i = Range("a65536").End(3).Row To 2 Step -1
If (Cells(i, "a").Value <> "MH" And Cells(i, "a").Value <> "MD" And _
Cells(i, "a").Value <> "MB") Or (Cells(i, "ı").Value <> "1") Or _
(VBA.Left(Cells(i, "e").Value, 3) <> "000") Then Rows(i).Delete
Next i
i = Empty
End Sub

 

[sensizsoldum]

Merhabalar,
Sayın uzmanamele arkadaşımızında sayesinde bu konuyu biraz olsun genişlettim. ve ekte örnek çalışmaya yapılacak 2 uygulama daha ihtiyacı vardır.
bu konuya vakıf olacak tüm arkadaşlarımızdan hocalarımızdan ilgi göstermelerinni önemle rica ediyorum.

Silve aktar butonu tıklandığında, as400 sayfasından, MSMATR yani E sutundan rapor sayfasına aktarılırken 3 yada 4 sıfır ( 000 yada 0000 ) ile başlayan satırlar aktarılsın, örneğin 9, 8, 1. yada 6 vs bu gibi başlayan rakamlı olan satırların aktarılmamasından söz ediyorum.
diğer bir sorun ise...
MSCDMG yani C sutunda 18 ve 11 numaralar var aktarılırken bunların karşısında olan MSUBİC yani F sutunda gerek harf ve sayı, gerek boş, gerekse 11 yazmaktadır. aktarıldığında rapor sayfasının d sutuna gelmektedir. ve tümü 11 olarak görünuyor.
as400 sayfasında ki c sutunda 11 yazanların rapor sayfasındaki değerlerini burda 11 getırsın 18 yazanları herhangi bi değişiklık yapmadan aktarması gerkemktedir.
umarım açıklayıcı olmuşumdur.
herkese iyi geceler dilerim

 

[sensizsoldum]

Merhaba, Hayırlı sabahlar,
konuya göz atacak birileri varmı acaba (

 

[sensizsoldum]

Günaydın hayırlı sabahlar,
değerli arkadaşlar. bu kodu istenilen bu düzenleme yapılabilirmı.
lütfen yardım