SAYFALARI AYRI AYRI Klasöre Kaydetme

[işsiz123]

selam

butonlar sayfa2 de
buton1 bastıgımızda sayfa1 a1 hücresi adında C:\ klasörüne kaydetsin
buton2 bastıgımızda sayfa3 a1 hücresi adında C:\ klasörüne kaydetsin

 

[alicimri]

ilk buton için örnek kod aşağıda

Sheets("Sayfa1").Copy
Application.DisplayAlerts = False
Set Dosya = CreateObject("Scripting.FileSystemObject")
yol ="C:\" & Workbooks(1).Sheets("Sayfa1").Range("A2")
 If Not Dosya.FolderExists(yol) Then
        Dosya.CreateFolder (yol)
    End If
ActiveWorkbook.SaveAs yol  &"\" &  Workbooks(1).Sheets("Sayfa1").Range("A1")
ActiveWorkbook.Close
Application.DisplayAlerts = True

 

[caylakmuhendis]

selamlar,

peki 1. excel belgesinin ilk sayfasındaki verileri 2. excel belgesinin ilk sayfasına bir buton aracılığı ile nasıl aktarabilirim? 2. belgenin açık olması şart olmaması koşulu ile.

teşekkürler,
iyi çalışmalar

 

[alicimri]

Dosya yolu ve adını kendinize göre uyarlayın.

    Workbooks.Open Filename:="D:\\Kitap2.xls"
    Workbooks(1).Activate
    Sheets("Sheet1").Copy Before:=Workbooks("Kitap2.xls").Sheets(1)
Workbooks("Kitap2.xls").Save
Workbooks("Kitap2.xls").Close

Not Yeni sayfa olarak aktarıyor. Veri aktarılan dosyayı makro açıp kapatıyor.

 

[işsiz123]

Ali Cimri Verdiğiniz bilgiye teşekkür ederim.
Bide a2 hücresindeki İsimle klasör açsın varsa içine kaydetsin yoksa a2 adında bir klasör açıp kayıt yaptırsın

 

[alicimri]

#2 nolu mesaja klasör oluşturma kodunu ekledim.

 

[caylakmuhendis]

alicimri cevabınız için çok teşekkür ediyorum. Ama sanırım biraz daha nitelikli bir koda ihtiyacım var. Şöyle ki, amacım bir klasör içinde 4 farklı kullanıcıya ait 4 ayrı excel dosyası ile bu excel dosyalarına girilen her bilginin otomatik olarak aktarıldığı bir tane de Master.xlsm isimli excel dosyası tutmak. Kullanıcılar için olan excel dosyası içinde bir tablo ile girilecek değerleri kısıtladım. örneğin çalışma saati sütununa yalnızca saat girilebilecek. Bu tablonun aynısını master için de hazırladım ve istiyorum ki kullanıcılardan herhangi biri kendi tablosunu doldurduğunda girilen bilgiler masterdaki tabloya dinamik olarak sırası ile eklensin. Hiç bir koşulda üzerine yazma yapmasın, veri kaybı olmasın.

 

[alicimri]

Kullanıcılar ayrı bilgisayarda mı çalışıyorlar?
Bu tip önlemler tam anlamı ile dosta kilit babında. Bilgisayar ve vba konusunda bilgisi olan kötü niyetli kişileri engellemez.
Web tabanlı çalışmalar bu konuda daha kullanışlıdır.

 

[caylakmuhendis]

evet, kullanıcılar ayrı bilgisayarlarda çalışacak. tüm bu excel dosyalarını bir klasöre atıp ortak alana eklemeyi düşünüyoruz. aslında web tabanlı olarak wampserverda bir index oluşturdum. excelde tablo ile oluşturduğum şekli dynamic-table ile oluşturdum. sorun şu ki; bu dinamik tablodaki tüm satırları phpMyAdmin ile oluşturduğum database'e tümüyle nasıl aktaracağımı bilemiyorum. Ayrıca Master excel çalışma kitabında sorgu imkanım varken kullanıcının bu sorguyu database'den nasıl yapacağını düşündüm. Çünkü eğer master, bir excel sayfası olursa kullanıcı, sütun başlıklarındaki pivotlar yardımı ile ilgili özelliğe ait istediği değeri seçip sonuç görebilecek fakat bu sorgunun database için mümkün olup olmadığı hakkında bir bilgim yok maalesef. Önerebileceğiniz bir çıkar yol var mıdır?

 

[caylakmuhendis]

Kullanıcılar ayrı bilgisayarda mı çalışıyorlar?
Bu tip önlemler tam anlamı ile dosta kilit babında. Bilgisayar ve vba konusunda bilgisi olan kötü niyetli kişileri engellemez.
Web tabanlı çalışmalar bu konuda daha kullanışlıdır.

evet, kullanıcılar ayrı bilgisayarlarda çalışacak. tüm bu excel dosyalarını bir klasöre atıp ortak alana eklemeyi düşünüyoruz. aslında web tabanlı olarak wampserverda bir index oluşturdum. excelde tablo ile oluşturduğum şekli dynamic-table ile oluşturdum. sorun şu ki; bu dinamik tablodaki tüm satırları phpMyAdmin ile oluşturduğum database'e tümüyle nasıl aktaracağımı bilemiyorum. Ayrıca Master excel çalışma kitabında sorgu imkanım varken kullanıcının bu sorguyu database'den nasıl yapacağını düşündüm. Çünkü eğer master, bir excel sayfası olursa kullanıcı, sütun başlıklarındaki pivotlar yardımı ile ilgili özelliğe ait istediği değeri seçip sonuç görebilecek fakat bu sorgunun database için mümkün olup olmadığı hakkında bir bilgim yok maalesef. Önerebileceğiniz bir çıkar yol var mıdır?

 

[muzos80]

Merhaba aşağıdaki kodu kendime ayarlayarak sayfayı farklı kaydettirdim bir ekleme yapmak istiyorum farklı kaydettiği sayfayı ARŞİV isimli sayfanın K sütununun son satırına linkleme de yaptırabiliyormuyuz tıklandığında sayfa açılsın

Private Sub CommandButton1_Click()


Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\Users\MUSTAFA\Desktop\eeee\" & ThisWorkbook.ActiveSheet.Range("B5") & "." & "xlsx"
.Close
End With
Application.DisplayAlerts = True
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[necati]

Merhaba,

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook
isim = "C:\Users\MUSTAFA\Desktop\eeee\" & .ActiveSheet.Range("B5") & "." & "xlsx"
.SaveAs isim
.Close
Worksheets("ARŞİV").Select
sonsat = Cells(Rows.Count, "K").End(3).Row + 1
Range("K" & sonsat).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=isim, TextToDisplay:=isim
End With
Application.DisplayAlerts = True
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[muzos80]

böyle bir hata alıyorum ARŞİV sayfasına link atma esnasında hatayı veriyor

 

[necati]

Bende bir hata vermiyor. Sayfa ismi aynı mı, isminin sonunda bir boşluk falan olabilir mi acaba?
Tam olarak hangi satırda hata veriyor. Onu da gösterebilir misiniz?

 

[muzos80]

f8 kontrol ettiğimde aşağıdaki kot da hata veriyor sayfa ismi doğru sayfaya giriyor ama kayıt etmiyor yalnız sayfam K7 den başlıyor, K1 den K5 kadar boş olacak ama b6 dan k6 ya kardar birleştirilmiş hücre var k7 den başlaması gerekiyor

Range("K" & sonsat).Select

 

[necati]

Şu kodu deneyiniz.

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook
isim = "C:\Users\MUSTAFA\Desktop\eeee\" & .ActiveSheet.Range("B5") & "." & "xlsx"
.SaveAs isim
.Close
End With
Worksheets("ARŞİV").Select
sonsat = Worksheets("ARŞİV").Range("K" & 65536).End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=isim, TextToDisplay:=isim
Application.DisplayAlerts = True
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[muzos80]

Çalışıyor çok çok teşekkür ederim

 

[necati]

Rica ederim. İyi çalışmalar dilerim.

 

[muzos80]

Merhaba Form sayfasındaki verileri arşiv sayfasına kaydettirmek istiyorum nasıl yapabilirim

 

[muzos80]

kayıt numarasını da 0001 den başlayacak şekilde numara vermesi veya 1 den başlayacak şekildede olabilir resimsiz kayıt edecek sonra forma resimde eklenecek ve belirlenen klasöre form sayfasını kayıt edecek ama kayıt no isimli klasör açıp ve excel ismi de kayıt no olacak yardım edebilirmisiniz