+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Süz Sayfa 2 Ye Aktar Makrosu (/konu-suz-sayfa-2-ye-aktar-makrosu.html)
Sayfalar:
1
2
Süz Sayfa 2 Ye Aktar Makrosu - conquerora - 23/12/2019
Merhaba
Yaptığım makroda kriter hep aynı geliyor.
Makro kaydedici ile yapmıştım.
"123456" yazılı malzeme kodu sürekli ürünü süzüp 2. sayfaya kopyalama yapıyor.
malzeme kodu aynı kalmamalı. manüel girdiğim kod sorgulanmalı.
Sub Makro1()
'
' Makro1 Makro
'
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "123456"
Range("A3").Select
Sheets("Sayfa1").Select
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= _
"123456"
ActiveWindow.SmallScroll Down:=-15
Columns("F:G").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - berduş - 23/12/2019
(23/12/2019, 09:50)conquerora yazdı: ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= _kriter alanı sabit atanmış gibi. belli bir hücredeki değere göre filtrelemek isterseniz o hücrenin adresini yazmayı deneyebilirsiniz
"123456"
Kod:
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= range("a1")Cvp: Süz Sayfa 2 Ye Aktar Makrosu - conquerora - 23/12/2019
merhaba olmadı.
dosya üzerinde düzeltmeniz mümkün mü?
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - berduş - 23/12/2019
dosyanızı eklerseniz çözmeye çalışırız
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - conquerora - 23/12/2019
ekledim
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - berduş - 23/12/2019
şimdi denedim range kullanılınca düzün şekilde süzdü mesela sayfa2.E1 hücresini süzülecek kriter olarak atadım, kodu aşağıdaki şekilde yazıp sayfa1.B sütunundan farklı değerleri sayfa2.E1'e yapıştırıp butona bastığımda süzme ve kopyalamayı düzdün şekilde yaptı
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:=Sheets("Sayfa2").Range("E1")