ayrı sheetlere aktarım

[ozgeci]

merhaba
elımdekı yemeklerle ılgılı bır muavın var
buradakı bılgılerın proje koduna gore ayrı sheetlere aktarılmasını ıstıyorum bana yardımcı olurmusunuz
tesekkurler

 

[ramazan uçar]

aşağıdaki örneği inceleyin umarım işinize yarar

 

[ozgeci]

tesekkur ederım
fakat bu ornekte sadece 1001 ve 1002 proje kodları oluyor dıgerlerınde bır sorun var galıba tekrar bakabılırmısınız

 

[ramazan uçar]

sanırım istediğinizin tamamı alttaki dosyada.daha önce sadece örnek göndermiştim.

 

[ozgeci]

cok tesekkur ederım
tam ıstedıgım gıbı olmus elınıze saglık

 

[ozgeci]

bır sey daha yapamıyorum
nasıl yapılacagını anlatırmısınız
pekı ben dosyaya yenı proje kodları eklenırse ne yapacagım
cunku baska proje kodlarını gormuyor galıba
bunu nasıl halledebılırım
tesekkurler

 

[ramazan uçar]

benim çalışmam çok amatörceydi.eğer bu kodlamaları kullanmaya devam edecekseniz kopyala yapıştır yaparak hedef sayfa ve proje kodunu değiştirmeniz gererkiyor.(vba sayfasında)

 

[ozgeci]

hedef sayfa ve proje kodunu değiştirmeniz gererkiyor.(vba sayfasında)

nedemk ıstedıgınızı anlayamadım nasıl yapmam gerekıyor
bıraz anlatırmısınız

 

[ramazan uçar]

Selection.AutoFilter Field:=8, Criteria1:="1004"
Cells.Select
Selection.Copy
Sheets("Sheet5").Select
Range("A1").Select
ActiveSheet.Paste
Range("B10").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Sheets("Sheet1").Select
Selection.AutoFilter Field:=8
Range("D6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "SECKIN GID.FT.NIZ NO:000000000996447"

dosyaya girdikten sonra araçlar>makro>makrolar>düzenle
yukardaki kodlamada birinci satırdaki "1004" yerine yeni proje kodunu, 4.satırdaki "sheet5" yerinede verilerinizin görünmesini istediğiniz sayfayı yazıp F5 yapıyorsunuz.benim excel hakkında fazla bilgim yok.eminim daha kolay yöntemleri vardır.ama benim bulabildiğim çözüm bu oldu.kolay gelsin.

 

[veyselemre]

Ekteki örneği inceleyin, yalnız dikkat etmeniz gereken nokta komutlar Sheet1 haricindeki sheetleri silerek yeniden sayfalar oluşturur.

 

[ramazan uçar]

elinize sağlık benimkinden çok daha pratik ve kullanışlı olmuş

 

[ozgeci]

arkadaslar cok tesekkur ederım
harıka olmussss