Sayfayı aynı şekilde yeni sayfaya aktarma

[nur_u_allah]

arkadaşlar yapmak istediğimi ekte anlattım yardımcı olursanız sevınır sadece veri aktarmasını ayarlarsam yeter gerisinin hepsi hazır saygılarımla

 

[dEdE]

Merhaba,
Aşağıdaki linkte bulunan kodları inceleyiniz.

http://www.excel.web.tr/f48/sayfalar-birlestirmek-t63245.html

 

[nur_u_allah]

ilgin için teşekkür ederim ama ben anasayfadkı verileri degğiştirdikce veri oluştur tuşuna basıncva devamlı hangi tarihi girdiysem o tarihten sayfa acıp işleyecek

 

[dEdE]

ilgin için teşekkür ederim ama ben anasayfadkı verileri degğiştirdikce veri oluştur tuşuna basıncva devamlı hangi tarihi girdiysem o tarihten sayfa acıp işleyecek

Anladım. Ekli dosyayı inceleyiniz.

 

[nur_u_allah]

kodda hata var dıyor hocam

resimini ekledim
veri girişi dedim sayfada ben devamlı işlem yapacağım c6 hücresindeki tarihli sayfayı oluştur dedıgımde aktaracak yanı acılan sayfalar o ısmı alıcak

hocam hatayı düzelttim bide nasıl bı ayar yapmam lazım kı sadece veri olan yeri alsınbutonlar aktarılmasın

bide 4 tane sayfa oluşturdunmu bi öncekine geçiyor bu şekilde değilde veri girişi sayfasan geri dönmesi sağlana bilirmi

 

[BG]

arkadaşlar yapmak istediğimi ekte anlattım yardımcı olursanız sevınır sadece veri aktarmasını ayarlarsam yeter gerisinin hepsi hazır saygılarımla

Dosyayı açtğınızda Sağ üstte "KOPYALA" menüsünü göreceksiniz, formu açtığınızda "Veri Girişi" Sayfasında bulunan C6 hücresindeki değer textbox da kopyalanacak Sayfa olarak gösterilmektedir, "OLUŞTUR" butonuna tıkladığınızda sayfanın kopyası alınacaktır, aynı isimle birden fazla oluşturulması engellenmiştir, "Veri girişi" sayfasındaki c6 hücresinde bulunan tarih değiştiği sürece sayfa olluşturmanız mümkündür.Dosya ektedir

 

[dEdE]

Merhaba,
CommandButton1 in kodunu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
    Columns("B:C").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = [C6].Value
ActiveSheet.Range("B1").Select
ActiveSheet.Paste
ActiveSheet.Range("D6").Select
    Sheets(" VERİ gİRİŞİ").Select
    Range("C6").Select
    Application.CutCopyMode = False
End Sub

 

[nur_u_allah]

Dosyayı açtğınızda Sağ üstte "KOPYALA" menüsünü göreceksiniz, formu açtığınızda "Veri Girişi" Sayfasında bulunan C6 hücresindeki değer textbox da kopyalanacak Sayfa olarak gösterilmektedir, "OLUŞTUR" butonuna tıkladığınızda sayfanın kopyası alınacaktır, aynı isimle birden fazla oluşturulması engellenmiştir, "Veri girişi" sayfasındaki c6 hücresinde bulunan tarih değiştiği sürece sayfa olluşturmanız mümkündür.Dosya ektedir

Hocam buda güzel olmuş sayfa oluşturduktan sonra veri sayfasına otomatik dönmesi sağlana bilirmi

 

[nur_u_allah]

Dosyanın en son hali şekilde ekledim eklediğim geri butonunun oluşturulan sayfada otomatıkmen cıkması ıcın ne yapmam lazım ana sayfada gorunmesını ıstemıyorum yenı oluşturdugum sayfalarda otomatikmen cıkması ıstıyorum
Çalışma sayfası korma şifresi:12345 tir

 

[BG]

Dosyanın en son hali şekilde ekledim eklediğim geri butonunun oluşturulan sayfada otomatıkmen cıkması ıcın ne yapmam lazım ana sayfada gorunmesını ıstemıyorum yenı oluşturdugum sayfalarda otomatikmen cıkması ıstıyorum
Çalışma sayfası korma şifresi:12345 tir

Sanıyorum "Geri dönüş" butonunu kopya sayfa oluşturulduktan sonra tekrar ana sayfaya dönmek için tasarladınız, eğer amacınız kopya sayfa oluşturulduktan sonra tekrar ana sayfaya dönmek ise bu butona gerek kalmadan da işlemi halledebilirsiniz, ek olarak sayffa oluşturulduktan sonra form kendini kapatmaktadır, dosyanız ektedir

 

[nur_u_allah]

hocam tamadır saolasın şimdi tam oldu

 

[BG]

Sayın nur_u_allah

hocam tamadır saolasın şimdi tam oldu

rica ederim, iyi çalışmalar dilerim.