Sayfa adını değişken olarak makroya almak

[jackal310]

Öncelikle soru soran cevap veren bütün herkesten birşeyler öğrenmemi sağlayan bu siteye emek veren herkese teşekkür ederim.
Mağazamda personelimin devam kontrol ve yol parası cetvelini tutuyorum.. Dosyamda hem formüller hemde makro kodlar mevcut.. Yeni personeller eklendiği zaman sayfa adlarını değiştirmek zorunda kalıyorum. Bunun için makro kullandım bu sorunu hallettım..
Ancak bu formu 33 mağazamızın kullanmasını istediğim için kod bilen veya bilmeyen kimsenin Vba bölümüne müdahele etmesini istemiyorum..
Vba bolumunde bulunan aşağıdaki kodu bır turlu halledemedım..
Private Sub CommandButton1_Click()
Set s1 = Sheets ("erdem") =buranın sayfa adı degısınce degısmesı gerek
Set s2 = Sheets ("levent") =buranın sayfa adı degısınce degısmesı gerek
Set s3 = Sheets ("aslı") =buranın sayfa adı degısınce degısmesı gerek
Set s4 = Sheets ("bahar") =buranın sayfa adı degısınce degısmesı gerek

yenı bır kod denedım ama basarılı olamadım. Denedıgım kod;
Private Sub CommandButton1_Click()
Set s1 = Sheets(Range("d7"))
Set s2 = Sheets(Range("d7"))

Ekte dosya mevcut bılgı ve yardımlarınızı rıca edıyorum..

Vba şifre:: 1231

 

[hamitcan]

Set s1 = Sheets(Range("d7")) yerine
Set s1 = Sheets(8) şeklinde; rakamlar vererek kullanmayı deneyin.

 

[jackal310]

Teşekkürler

Sevgılı arkadasım;

Tekrar cok tesekkur ederım.. Sizin arkadaslar sayesınde önümü daha rahat goruyorum..

Cok sagol ve vaktını,zamanını aldıgım içinde özür dilerim...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Ayrıca 30 adet değişkene sayfa adını atamanızada gerek yokki. Hepsinde s1 olarak kullanmanız yeterlidir.

Set s1 = Sheets("" & Range("d7"))

 

[jackal310]

Tesekkur ederım

Sayın Levent;

Verdiğiniz bilgi için teşekkürler.. Her iki bilgide işime yaradı.. Çok sağolun...

Erdem ERKUL