Skip to main content

AccessTr.neT


Süz Sayfa 2 Ye Aktar Makrosu

Süz Sayfa 2 Ye Aktar Makrosu

Çözüldü #1
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
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
(23/12/2019, 09:50)conquerora yazdı: ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= _
"123456"
kriter alanı sabit atanmış gibi. belli bir hücredeki değere göre filtrelemek isterseniz o hücrenin adresini yazmayı deneyebilirsiniz
Kod:
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= range("a1")
gibi
Cevapla
#3
merhaba olmadı.

dosya üzerinde düzeltmeniz mümkün mü?
.rar Ürün Ağacı.rar (Dosya Boyutu: 1,38 MB | İndirme Sayısı: 10)
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 23/12/2019, 13:29, Düzenleyen: conquerora.
Cevapla
#4
dosyanızı eklerseniz çözmeye çalışırız
Cevapla
#5
ekledim
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
ş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")
sizin yazdığınız kodda değiştirdiğim tek satır bu.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task