hücredeki bilgi adıyla sayfa açma

[gunaygergin]

sevgili arkadaşlar ekte gönderdiğim dosyada;

1-sayfa üzerindeki C1 hücresindeki değerile eşleşen bir sayfa yoksa girilen
bütün bilgileri C1 değerinde yeni sayfa açıp oraya kaydedecek

2-C1 değerinde sayfa varsa oradaki bilgileri çağırıp üzerinde değişiklik
yapacak.

3-bir de sayfaları görebileceğim bir listeyi;

nasıl yapabilirim biraz uzun soru ama lütfen yardım edin

 

[gunaygergin]

???????????

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
On Error GoTo 10
Cells.Copy
Sheets("" & [c1]).Select
Cells.PasteSpecial
Application.CutCopyMode = False
Exit Sub
10 ad = [c1]
Cells.Copy
Sheets.Add
ActiveSheet.Name = ad
Cells.PasteSpecial
Application.CutCopyMode = False
End Sub

Sayfa sekmelerinin solundaki ok işaretleri üzerine sağ-klik yaparsanız sayfaların listesini görebilirsiniz.

 

[gunaygergin]

Çok Teşekkür ederim.

 

[gunaygergin]

Hücredeki bilgiye dosya açmak

Affınıza sığınarak Bir şey daha sormak istiyorum.

Aynı durumda ben "GİRİŞ" sayfasından Kaydet butonuna bastığımda
Sayfayı yeni bir dosyaya kopyalayıp Yeni dosyanın adını da Sayfanın ya da C1 deki bilgi ile değiştirerek kaydetsin.
Bu arada "GİRİŞ" Sayfasındaki bilgileri (Sabitler ve formüller hariç) silecek.

olabilir mi acaba.?

 

[gunaygergin]

Dosya açmak

Aşağıdaki problemi biraz daha açayım.

Giriş sayfasındaki verileri ayrı bir dosyaya;
C1 hücresindeki bilgi adıyla aynen (formüller, VB kodları Makroları ile birlikte) kaydedecek (bir nevi farklı kaydet gibi olacak ama dosya adı C1 deki veri olacak)

 

[gunaygergin]

???????????

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kaydet()
Set s1 = Sheets("GİRİŞ")
s1.Copy
If s1.[c1] <> "" Then ActiveWorkbook.SaveAs "C:\" & s1.[c1] & ".xls"
End Sub