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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Süz Sayfa 2 Ye Aktar Makrosu - Yazar: conquerora - 23/12/2019, 09:50
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: berduş - 23/12/2019, 11:55
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: conquerora - 23/12/2019, 13:21
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: berduş - 23/12/2019, 13:23
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: conquerora - 23/12/2019, 13:29
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: berduş - 23/12/2019, 16:01
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: berduş - 23/12/2019, 16:12
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: berduş - 25/12/2019, 14:24
Cvp: Süz Sayfa 2 Ye Aktar Makrosu - Yazar: conquerora - 25/12/2019, 18:46
Task