Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: erselsahin - 16 Şubat 2012, 10:33:38

Başlık: Makro Koşula dayalı Süzme
Gönderen: erselsahin - 16 Şubat 2012, 10:33:38

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

Sub CAMEL_WHITE()

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 + 3 To 10 Step -45
Range(Cells(1, i - 43), Cells(Rows.Count, i)).Delete
Next i
Range("G:H").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.

Başlık: Ynt: Makro Koşula dayalı Süzme
Gönderen: Bülent Öztürk - 16 Şubat 2012, 22:02:11

Ersel Bey,

Yukarıdaki kodları gözardı ederek, yapmak istediğinizi tam olarak açıklar mısınız lütfen?
Ona göre çözüm yolu arayalım...

Başlık: Ynt: Makro Koşula dayalı Süzme
Gönderen: erselsahin - 16 Şubat 2012, 23:26:27

Bülent Bey Ekli dosyada sıkıntımı anlatım.
Ekli dosya ilk mesajımda Teşekkürler