kaydet butonu ekleme

[asiiiruzgar]

arkadaşlar ekte göndermiş olduğum dosyayı ben hazırladım benim şimdi uğraşıpta yapamadığım bir durum varbir makro ile veya başka bir şey ile ben bu dosyata bir kaydet butonu eklemek istiyorum incelerseniz sevinirim


____________________________
Veren El , Alan Elden Herzaman Üstündür

Hepimizin başı Sağ Olsun Yalancı Yarimdeki Barış 'ın Vefatından dolayı sevenlerine ve ailesine sabır barışada Allah Mekanını Cennet Eylesin

 

[zafer]

Merhaba

Aşağıdaki kodları modüle kopyalayıp. yapacağınız butona bağlayınız.

............... kısmını kendi dizin ismini yazını.

Sub Makro2()
DOSYA = Sheets("HASTANE LİSTESİ").Range("J8")
 
    ActiveWorkbook.SaveAs Filename:="D:\.............\" & DOSYA & ".XLS"
 
End Sub

Hepimizin başı Sağ Olsun Yalancı Yarimdeki Barış 'ın Vefatından dolayı sevenlerine ve ailesine sabır barışada Allah Mekanını Cennet Eylesin

Aynı dileklerimle.Allah rahmet eylesin..

 

[asiiiruzgar]

Çok TeŞekkÜr Ederİm

Çok TeŞekkÜr Ederİm SÜper Oldu ArkadaŞ Sen Varya Harİkasin Yaaaa

Pekİ Sana Bİr Şey Soracam Sen Sayfayi GÖrdÜn Nede Olsun
Ben Hastane Adi SeÇİyorumya Kendİsİ O Hastaneye Aİt Dosyayi Otomatİk Bulup Tutari Yazarak Kaydermİ

EĞer Buda Olursa Varya Ankaradaysa Sana Bİr Yemek SÖzÜm Olsun ArkadaŞ
Allah Razi Olsun
Yukarida Bulunan Hastane Adi Altinda Dosyalar AÇacam Ben Sadece Kaydet DedĞİm An F 3 De Bulunan Hastane Adini KlÖsÖrde Arayacak O Hastane Adina Aİt Dosyaya Gİrİp Tutarini Yazarak Kaydedecek..

 

[zafer]

Merhaba

Teşekkür ederim..


Sayın Haluk Bey'in Kapalı dosyadan veri alma ve yazma konusunu inceleyiniz.Size yardımcı olacaktır.

Kapalı dosyadan veri arama
ADO-DAO-Kapalı Dosya Uygulamaları

Diğer bir şekil ise istenen dosyayı açar.Toplamı istenen hücreye yazar kaydedip kapatır.

 

[asiiiruzgar]

Merhaba

Ben Onu Kontrol Ettİm HİÇ Bİr Şeyde Anlamadim
Örneklerde İlk Xls Dosyasi Zaten Haten Verİyor
Daha Kapsamli Bİr Şekİlde Anlatma İmkaniniz Varma Acaba

 

[asiiiruzgar]

Bİr Yardim

EĞer DedİĞİm Şekİlde Dosyayi Kaydedebİlİrsem Çok İyİ Olacak Yardimci Olursaniz Sevİnİrİm

 

[zafer]

Merhaba


Ekli dosyaları D: diskine kopyayın. Makroyu çalıştırıp deneyin..

 

[asiiiruzgar]

Merhaba

Ekli Dosyayı Ekledim Ama olmadı Sayfa Kendiliğinden Kapanıyor.