Sayfa Açma

[Mdemir63]

Selamlar

Arkadaşlar ekteki dosyamda 01/01/2017 adında bir sayfa var bu sayfadan her taşı ve kopyala dediğimizde günlerin isimlerini vererek (02/01/2017- 03/01/2017 ....gibi) her bir gün için otomatik sayfa açtırmak istiyorum nasıl yapabilirim?

Saygılar

 

[Mdemir63]

selamlar

Arkadaşlar konu ile ilgili bilgisi olan kimse yok mu?

Saygılar

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

 

[Mdemir63]

Selamlar

Hocam çok teşekkür ederim. Bu benim işimi görür.

Saygılar

 

[Mdemir63]

Tekrar merhabalar

Hocam açılan bu sayfalara otomatik hepsine köprü oluşturabilir miyiz?

Saygılar

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[Mdemir63]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

Selamlar
Hocam tam istediğim gibi elinize sağlık. Ama resimdeki gibi olsaydı ayın günleri
o zaman kodlarda nereleri değiştirmemiz gerekir di.

Saygılar

 

[muygun]

Merhaba;
Sanırım sayfanın diğer alanları kullanımda
Sayfa açma işlemini C2 : E12 alan aralığı ile sınırlandırdım. (bu aralıkta veri varsa veri adıyla sayfa açılacak)
Eki tekrar deneyin.
İyi çalışmalar.

 

[vardar07]

Sayfa açma kodunu karşılartırınız.

Sub sayfaları_aç()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("genel")
Application.ScreenUpdating = False
sg.Select
For k = 3 To 5
For i = 2 To sg.Cells(Rows.Count, k).End(3).Row
Sayfa = Trim(Cells(i, k))
If Not SayfaVarMi(Sayfa) Then
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa
sg.Select
End If
Next i
Next k
Application.ScreenUpdating = True
End Sub

 

[Mdemir63]

Selamlar

Sayın Muygun ve Sayın Vardar
ikinize de çok teşekkür ederim.
Ellerinize sağlık Hocam

Saygılar