sayfa kopyalama

[SOYOLA]

ekte örneğini verdiğim satış fişi var
İstediğim ise bu fişi bir tuşla başka bir sayfaya aktarayım yerine sıfır sayfa gelsin onuda siparişi yazdıktan sonra başka sayfaya aktarayım.Böylelikle aldığım siparişlerin bir dosyası oluşsun kimden ne sipariş aldığım gözüksün mümkünmüdür.

 

[Muhammet Okumuş]

Merhaba,
Bir tane şablon sayfası oluşturunuz.

Sub Kopya()
ad = InputBox("Sayfa adı giriniz", "Bilgi")
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ad
ActiveSheet.DrawingObjects.Delete
End Sub

 

[SOYOLA]

makro hata veriyor hocam

 

[Muhammet Okumuş]

Hocam dosyayı inceleyiniz. Ben sadece alım seçeneği için Combobox kullandım. Eğer tanımlı bilgiler varsa Combobox kullanınız.

 

[SOYOLA]

sayfa kopyala

hocam elinize sağlık istediğim gibi olmuş
sadece şablon sayfasını kaydettikten sonra şablon sayfasına yazdığım siparişleri silebilirmi

 

[Muhammet Okumuş]

Şablon sayfasını siliniz. Sayfa oluşturduktan sonra oluşan sayfaya veri girişi yapınız.