Veri aktarma

[maras57]

Ekte st1 a sütununda bulunan verilerden sadece "j" ile başlayan ürün kodlarını başka bir çalışma kitabında a sütununa boşluk vermeden veya yok gibi ifadeler olmadan nasıl aktarırım.şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

Merhaba, aşağıdaki kodları deneyiniz.

Sub j_ile_baslayanlar()
    Range("A1").AutoFilter Field:=1, Criteria1:="=j*", Operator:=xlAnd
    Columns("A:A").Select
    Selection.Copy
    Sheets("Sayfa2").Columns("A:A").PasteSpecial Paste:=xlPasteValues
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    MsgBox " işlem tamam, sayfa2 yi kontrol ediniz"
End Sub

 

[maras57]

Run Time error "1004"

ÜSTADIM EMEĞİNİZE SAĞLIKÇalışma kitabını syfa1 kaynak sayfasını syfa2 olarak açtım.Makroyu çalıştırdığımda Run Time error "1004" ifadesi çıkıyor.Bu işi herhengibir formülle yapma imkanı yok mu?

 

[Emir Hüseyin Çoban]

Ekte st1 a sütununda bulunan verilerden sadece "j" ile başlayan ürün kodlarını başka bir çalışma kitabında a sütununa boşluk vermeden veya yok gibi ifadeler olmadan nasıl aktarırım.şimdiden teşekkürler.

Merhaba, 2. mesajımdaki kodlar aynı çalışma içersinde aktarma yapar, yanlış anlamışım kusura bakmayın.
Dosya uzantınız makro destelemez, ben .xls ye çevirdim.

Kodları isteğinize göre revize ettim, inceleyiniz.

Sub j_ile_baslayanlar_2()
    Range("A1").AutoFilter Field:=1, Criteria1:="=j*", Operator:=xlAnd
    Columns("A:A").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Windows("ST1_01.xls").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub