F2 HÜcresİndekİ DeĞere GÖre Sayfa OluŞturmak,daĞitmak

[aylax]

Herkese selamlar ,kolay gelsin,
Daha önce yarım kalan bir dosyamı biraz daha kullanışlı yapmak için bir dileğim var.Sayfalara dağıtmak.Bu konu ile ilgili olarak sayın yurttas beyin çalışmalarını biliyorum ve üzerinde deneme yaptım.Fakat bir türlü olmadı.Ekli dosyadaki "personel" ve "döküm" sayfaları var.Bu sayfalardaki F2 hücresindeki değere göre bir butonla yeni sayfa oluştursun.Fakat hepsi için değil tek tek her butona basımda bunu yapsın.
Şimdiden hepinize başarılar diler,yardımcı olabilen arkadaşlara teşekkür ediyorum,esen kalın.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub SOLUSTUR1()
Sheets.Add AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("personel").Range("F2")
End Sub

Sub SOLUSTUR2()
Sheets.Add AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Döküm").Range("F2")
End Sub

 

[aylax]

Çok selamlar ve özür dilerim,sayfadaki tüm biçimleri ve değerleride kopyalattırmam da gerekliydi.Sanırım hata bende bunu söylemeyi unutmuşum Sayın Hiçdurmaz bey,esen kalın.
not:Kodlarıda uyguladım fakat aynı sayfa adını ikinci kez tıkladığımda "hata" veriyor,ve sayfa x gibi yeni çalışma sayfası açıyor.Bu benim için önemli değil gibi fakat sayfadaki değerleride kopyalattırma da yapacağımdan bir karışıklık olmasın istiyorum.Ekli dosyada.

 

[aylax]

Selamlar,ya bu konuyu az biraz okuyupta takip edenler bilmeli olsa gerek,çok zamandır bu sorunumu çözmeye çalışıyorum.En son sayın hiçdurmaz ilgilendi.Şimdi son mesajımdaki dosyada da belirttiğim gibi F2 de hücre adına göre yeni sayfa açabiliyorum fakat verilerde bu sayfalara aktarılabilmeli,eğer biçimleriyle birlikte olursa daha iyi olmassada olur,.
Esen kalın.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub Düğme19_Tıklat()
Dim I As Byte
For I = 2 To Sheets.Count
If Sheets(I).Name = [f2] Then
MsgBox "Bu isimde bir sayfa mevcut", vbInformation
Exit Sub
End If
Next
ActiveSheet.Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("personel").Range("F2")
End Sub
Sub Düğme62_Tıklat()
Dim I As Byte
For I = 2 To Sheets.Count
If Sheets(I).Name = [f2] Then
MsgBox "Bu isimde bir sayfa mevcut", vbInformation
Exit Sub
End If
Next
ActiveSheet.Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Döküm").Range("F2")
End Sub

 

[aylax]

Ayy,çok teşekkür ederim sayın hiçdurmaz ,şöyle bir düzenleme yapabilirmisiniz:aynı adla sayfa varsa ,tekrar üzerine kopya edip etmemeyi sorsun ve onay verirsem son haliyle üzerine kopyalasın.Birde butonlar sayfalara kopya edilmese ne iyi olur,gerçi bu da sorunmu diyeceksiniz ama,ya neyse.
Çok teşekkür ediyorum,çok sağolun,kolay gelsin
Esen kalın.