otomatik dosya oluşturma

[coktansecmeli]

Merhaba eklediğim örnek dosyalarda olduğu gibi;

Ana dosyada ki C kolonun da ki depo yerine göre filtre uygulayıp, o depo yeri adında ki dosyaya verilerin değer olarak yapıştırılması gerekiyor.

Verilerin yapıştırıldığı dosyaya bir gün öncenin tarihinde yeni sayfa açılıp o sayfaya dosyalar yapıştırılacak.

Örneğin Depo 1'e göre filtre uygulanacak depo 1 adında ki dosyada 03.03.2021 tarihli yeni sayfa açılacak ve bu sayfaya filtrelenen veriler değer olarak yapıştırılacak.

Biçim kopyalanan dosya ile aynı olacak.

Şimdiden yardımcı olan arkadaşlara teşekkür ederim.

otomatik dosya oluşturma - Google Drive

drive.google.com

 

[coktansecmeli]

Başlık yanlış olmuş. Otomatik sayfa ekleme desek daha doğru olur.

 

[coktansecmeli]

Tekrar merhaba,

Gerçekten zor durumdayım konunun aciliyeti bulunmaktadır. Yardımcı olabilecek birisi yok mu?

 

[ruyaaaa]

Merhaba şöyle yaptım
Sub deneme()

Set filtre = Application.InputBox(Prompt:="Filtrelencek veriyi seçin", Type:=8)
ActiveSheet.UsedRange.Select
Selection.AutoFilter Field:=3, Criteria1:=filtre

ActiveSheet.UsedRange.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste

End Sub

 

[coktansecmeli]

Merhaba şöyle yaptım
Sub deneme()

Set filtre = Application.InputBox(Prompt:="Filtrelencek veriyi seçin", Type:=8)
ActiveSheet.UsedRange.Select
Selection.AutoFilter Field:=3, Criteria1:=filtre

ActiveSheet.UsedRange.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste

End Sub

Merhaba,

Desteğiniz için çok teşekkürler ancak filtrenelecek veriyi seçin kısmına depo 1 yazdığımda hata alıyorum.

 

[ruyaaaa]

Merhaba,

Desteğiniz için çok teşekkürler ancak filtrenelecek veriyi seçin kısmına depo 1 yazdığımda hata alıyorum.

Depo1 in olduğu herhangi bir hucreye tıklamanız gerekiyor

 

[coktansecmeli]

Depo1 in olduğu herhangi bir hucreye tıklamanız gerekiyor

Teşekkürler bu şekilde oluyor ama benim istediğim başka bir dosyada yeni bir sayfa oluşturup o sayfaya yapıştırması ve sayfanın isminin de bir önde ki günün tarihi olmalı. mesela makroyu bugün çalıştırdığımda sayfa ismi 03.03.2021 olmalı.

 

[ruyaaaa]

Sub deneme()
Set filtre = Application.InputBox(Prompt:="Filtrelencek veriyi seçin", Type:=8)
ActiveSheet.UsedRange.Select
Selection.AutoFilter Field:=3, Criteria1:=filtre

ActiveSheet.UsedRange.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'buraya kendi dosya yolunuzu girin
ActiveWorkbook.SaveAs ("C:\Users\hmzozts\Desktop\stok " & Format(Date - 1, "DD-MM-YYYY") & ".xlsx")
Debug.Print Date - 1
End Sub

 

[coktansecmeli]

Tesekkurler ancak sadece kolon basliklari geliyor veriler gelmiyor.

 

[ruyaaaa]

Tesekkurler ancak sadece kolon basliklari geliyor veriler gelmiyor.

Bende hepsi geliyor

 

[coktansecmeli]

Merhaba kodu çalıştırdığımda yukarıda ki hatayı almaktayım.

 

[coktansecmeli]

@ruyaaaa hanım kod yazdığınız dosyayı da paylaşır mısınız?

 

[coktansecmeli]

Rüya hanım aynı kodu ekte ki dosya için de uygulayamaz mıyız? G kolonunda ki isme göre filtreleme yapmak istiyorum bu yüzden field'i 7 yapıyorum ama olmuyor.