aktif kitaptan başka klasöre sayfa ekleme

[aydın3838]

iyi akşamlar

benim çalışmamda şöyle bir sorun var

örnekte gönderdiğim çalışma kitabında isimlere ayrı ayrı sayfa açıyorum

ama benim istediğimse bu açılan sayfaların örnekdeki müşteriler kılasörüne açılması ve veri girmek işlem basit basit derken
birkaç örneğe baktım fakat benimkine uyarlamada zorluk çıkıyor

yardımcı olacaklara şimdiden teşekkürler
uyarlama yapamadığım kod aşağıdadır
örnek dosyada da açıklaması vardır





'Kaydet Butonu

Dim sayf As Worksheet
syf = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
If syf = "" Then Exit Sub

For Each sayf In Worksheets
If syf = UCase(Replace(Replace(sayf.Name, "ı", "I"), "i", "İ")) Then
MsgBox syf & " Bu Kodda Bir Müşteri Kartınız var kayıt yapılmadı..!!", vbCritical, "DİKKAT"
Exit Sub

End If
Next

sıra = ActiveWorkbook.Sheets.Count
Sheets("MÜŞTERİ KARTI").Select
Sheets("MÜŞTERİ KARTI").Copy After:=Sheets(sıra)
'Sheets("MÜŞTERİ KARTI").Copy Before:=Sheets(1)
Sheets("MÜŞTERİ KARTI (2)").Select
Sheets("MÜŞTERİ KARTI (2)").Name = syf
On Error Resume Next
'ilerleme çubuğunu çalıştır
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i / 10000 * 260
Next
'ilerleme çubuğunu gizle
ProgressBar1.Visible = False
MsgBox syf & " Kod Numaralı Müşteri Kartı Açıldı..!!", vbOKOnly + vbInformation, "SAYFA"

Worksheets(syf).Cells(3, 2).Value = TextBox1.Value 'KOD
Worksheets(syf).Cells(4, 2).Value = TextBox2.Value 'TARİH
Worksheets(syf).Cells(5, 2).Value = TextBox3.Value 'MÜŞTERİ İSMİ
Worksheets(syf).Cells(6, 2).Value = TextBox4.Value 'ADRES
Worksheets(syf).Cells(8, 2).Value = TextBox5.Value 'NAKİT SATIŞ
Worksheets(syf).Cells(9, 2).Value = TextBox6.Value 'TAKSİTLİ SATIŞ
Worksheets(syf).Cells(10, 2).Value = TextBox7.Value 'PEŞİNAT
Worksheets(syf).Cells(11, 2).Value = TextBox8.Value 'TAKSİT TARİHİ
Worksheets(syf).Cells(12, 2).Value = TextBox9.Value 'TAKSİT SAYISI
Worksheets(syf).Cells(13, 2).Value = TextBox10.Value 'NOTLAR
TextBox1.Text = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A65000")) + 0
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
Unload UserForm3
Sheets("ANA").Select
UserForm1.Show
End Sub

 

[aydın3838]

sayın dede çözer bu işi ama

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodla sayfayı dosya olarak kaydedebilirsiniz.

Sub sayfayikaydet()
On Error Resume Next
Sheets("sayfa1").Copy
Sheets("sayfa1").SaveAs Filename:="c:\MÜŞTERİLER\1.xls"
ActiveWorkbook.Close True
End Sub

 

[aydın3838]

sayın levent bey ilginize teşekkür ederim

sizin yolamış olduğunuz kod bendede var siteden bir kaç örnek dosya indirdim ve

benim projeye uyarlama yapamadım demiştim

mümkünse örnek dosyaya bakarmısınız rica etsem

 

[aydın3838]

aktif olan kitaba yeni sayfa ekleniyor verdiğiniz kodu benim koda uyarlayamadım sayın levent bey zaten bende benzser kodlar var örnek dosyaya bakılırsa hemen anlaşılır

 

[ziya]

Sn aydın3838
Siteden Sn ömerceri'nin benim için benzeri bir çalışmasını lüzumsuz yerlerini kırparak ekliyorum. Sizin istediğinizden farkı. Sayfayı ekler eklemez aynı klasörde bir de kitap oluşturması.
Sanıyorum size yol gösterecektir.
Selamlar,

 

[aydın3838]

sayın ziya bey

bu dosyadaki formda hata var galiba form açılmıyor

excelin formatındamı bir problem var acaba

 

[halit3]

aşağıdaki linkdeki dosyaya bakarmısınız.

http://www.excel.web.tr/f133/klasor-ve-dosya-olusturma-secenekleri-t68040.html

 

[ziya]

bu dosyadaki formda hata var galiba form açılmıyor

excelin formatındamı bir problem var acaba

Doğrudur olabilir. Hiç denemeden ekledim. Daha önce dediğim gibi userformdaki fazla sayfaları sildim, yalnız size gereken kodları bıraktım, o şekilde gönderdim. İlla ki çalışmasını görmek istiyorsanız -ki istiyorsunuz olarak algıladım- yeniden düzenler gönderirim.
Ayrıca halit3'ün verdiği linkte aradıklarınızı bulacaksınız.
Selamlar,

 

[aydın3838]

teşekkürler ziya kardeşim

ellerine sağlık

hiç bir emek karşılıksız kalmaz

 

[ziya]

Merhaba,
Dosyada bir değişiklik yapmama gerek kalmadı. Sizin yapmak istediğinize örnek olan ksımı çalışıyor. Dosyada açıklama yaptım. Dosya ekte.
Selamlar,

 

[aydın3838]

sayın ziya bey tekrar teşekkürler ilgilendiğiniz için

ama ben yine yapamadım örnek güzel teşekkürler fakat

sorun şu benim kodlar mükemmel çalışıyor ama sayfalar çoğaldıkça excel ağırlaşıyor ve hatalar çıkıyor

bende buna karşılık her yeni eklenen sayfayı müşteriler adında bir klasör oluşturdum

bu yeni eklenmiş sayfayı bu klasöre göndermesi ben bunu başaramadım

sorunda şu

işlemleri yaptığım ana kitap diyelim buna sayfayı ekledik
bunu kopyalamadan kes yapıştır olayı olabilir
sayfayı taşıma olabilir bildiğiniz başka alternatiflerde olabilir

vede benim çözemediğim aynı isimde sayfa varmı kodu bu kodda sorunum var

yanı kısaca ana kitapta sayfa 1,sayfa 2,ana,müşteri kartı,taksit kartı dışında sayfa kalmayacak

ve tahsilat zamanı gelince bu sayfalardan istenileni çağırıp veri girmem gerekiyor

ben bunu yapamadım

mümkünse örnekte açıklamalı yaparsanız bende öğrenmiş olurum

tabii bunları söylerken zamanınız varsa yoksa aramaya devam edicem yılmak yok

ben ne öğrendiysem bu siteden sizin gibi işi bilenlerden öğrendim

saygılar

 

[ziya]

Merhaba,
Sanıyorum istediğiniz gibi oldu.

ben ne öğrendiysem bu siteden sizin gibi işi bilenlerden öğrendim

İnanın ben de bilmeyenlerdenim. Kodlar daha öne de söylediğim bu siteden alınmıştır.
Selamlar,