Makro Koşula dayalı Süzme

[erseljti]

'---------------------------------------------------------------
Sub CNF_KSB()

Dim Sm As Worksheet, Sd As Worksheet, son As Long, i As Integer

Set Sm = Sheets("Menü")
Set Sd = Sheets("Data")

Application.ScreenUpdating = False

Sheets("Liste").Select

son = Sd.Cells(Rows.Count, "A").End(xlUp).Row
Cells.Clear

Sd.Range("A2:AVY" & son).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sm.Range("A1:I2"), CopyToRange:=Range("A1")

Range("G:J").Delete
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 10 Step -45
Range(Cells(1, i - 43), Cells(Rows.Count, i)).Delete
Next i


End Sub

Sub CNF_LKSB()

Dim Sm As Worksheet, Sd As Worksheet, son As Long, i As Integer

Set Sm = Sheets("Menü")
Set Sd = Sheets("Data")

Application.ScreenUpdating = False

Sheets("Liste").Select

son = Sd.Cells(Rows.Count, "A").End(xlUp).Row
Cells.Clear

Sd.Range("A2:AVY" & son).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sm.Range("A1:I2"), CopyToRange:=Range("A1")

Range("G:J").Delete
For i = Cells(1, Columns.Count).End(xlToLeft).Column + 1 To 10 Step -45
Range(Cells(1, i - 43), Cells(Rows.Count, i)).Delete
Next i
Range("G:G").Delete

End Sub

Sub CAMEL_BLACK()

Dim Sm As Worksheet, Sd As Worksheet, son As Long, i As Integer

Set Sm = Sheets("Menü")
Set Sd = Sheets("Data")

Application.ScreenUpdating = False

Sheets("Liste").Select

son = Sd.Cells(Rows.Count, "A").End(xlUp).Row
Cells.Clear

Sd.Range("A2:AVY" & son).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sm.Range("A1:I2"), CopyToRange:=Range("A1")

Range("G:J").Delete
For i = Cells(1, Columns.Count).End(xlToLeft).Column + 2 To 10 Step -45
Range(Cells(1, i - 43), Cells(Rows.Count, i)).Delete
Next i
Range("G:I").Delete

End Sub



Yazılan bu formül'de ilk Makro CNF sorunsuz çalışmakta
CNF LKB başlıklı makroda "Data"Sheetinde alıp "Liste"sheetine sonuç yazdırırken belirttiğim koşullara rağmen ilk önce CNF ürününü yazıyor,ve Makro hata veriyor.
CAMEL BLACK Makrosunda da aynı şekilde ilk CNF ve CNFLKSB veriyor.EKli dosyada detayı bulabilirisiniz.

 

[erseljti]

Yaaa lütfen biriniz el atın sıkıntıma

 

[erseljti]

Anlaşılan kimse bana bu konuda yardımcı olmayacak..

 

[Korhan Ayhan]

Merhaba,

Dosyanızda yapmak istediğiniz işlemi detaylıca açıklarmısınız.

Makronuzun hata vermesi normal. "i" döngüsünde step 45 yapmışsınız. Fakat döngüde "i" son olarak 10 değerini alıyor ve aşağıdaki ifade de 10-43 değeri hataya sebep oluyor.

Range(Cells(1, i - 43)

 

[erseljti]

Merhaba,

Dosyanızda yapmak istediğiniz işlemi detaylıca açıklarmısınız.

Makronuzun hata vermesi normal. "i" döngüsünde step 45 yapmışsınız. Fakat döngüde "i" son olarak 10 değerini alıyor ve aşağıdaki ifade de 10-43 değeri hataya sebep oluyor.

Range(Cells(1, i - 43)

Hocam makro yazma konusunda çok başarılı olduğum söylenemez.Yapmak istediğimi İlk mailimde Ekli dosyada Menü Sheetinde detaylıca açıkladım.Acil yardıma ihtiyacım var.Lütfen yardımlarınızı esirgemeyiniz. benden...
Teşekkürler

 

[erseljti]

Hocam halen yardımlarınızı beklemekteyim...

 

[erseljti]

Sorunumu halen çözemedim