Farklı kaydet yazısının hücre değerini verme

[imdatsaral]

Selam Arkadaşlar

resimdede görüldüğü gibi farklı kaydet yazısını belilediğim bir hücrenin değerini alsın

iyi çalışmalar

imdat saral
izmir

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir satırla farklı kaydedeceğiniz dosyanın adını A1 hücresinden belirleyebilirsiniz.

[vb:1:08ee388694]ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & [a1].Value
[/vb:1:08ee388694]

 

[cako]

ActiveWorkbook.SaveAs (Range("A1").Value)

gibi olacak.

 

[cako]

Pardon galiba aynı anda cevaplamışız. Leventm beyin gönderdiğinde dosya yolu da belirtiliyor. Bir de aynı adla kayıt yapmak istersseniz ve uyarı penceresini de görmek istemiyorsanız alertleri geçici süre deaktif edebilirsiniz.

 

[turkanet]

bu kodu visual basic de nereye yazacağım? bana çok lazım olan bir kod bu.
teşekkürler :hey:

 

[Levent Menteşoğlu]

Bu kodu bir çok biçimde kullanmak mümkün,örneğin direk olarak tek başına bir butona bağlayarak kullanabileceğiniz gibi başka kodların içindede kaydetme amaçlıda kullanabilirsiniz. Aşağıda bir örnek veriyorum,Bu kod çalışma kitabını her kapatışınızda otomatik olarak dosyayı kaydeder. Böylece kaydetmeyi unutsanız bile dosyadaki değişiklikleriniz kaydedilmiş olur. Bu kodu ThisWorkbook sayfasına kopyayın.
[vb:1:a04cda2c24]Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\kitap1.xls"
End Sub
[/vb:1:a04cda2c24]

 

[turkanet]

ya çok özür dilerim ama bende gene olmadı. hatta diğer makro çalışmaz oldu. üstelik dediğiniz yere aynen yapmama rağmen. ben, A2 hücresindeki sayıyla farklı kaydet yapmak istiyorum. dosyayı nereye koyacağı önemli değil çünkü ayrı ayrı klasörlere koyuyorum. nasıl yapabilirim? :dua:

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir module sayfasına yazın ve A2 hücresindeki ismi vereceğiniz dosyanın olduğu sayfadaki bir butona bağlayın.
[vb:1:5e42ce4b9b]Sub kaydet()
ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & [a2].Value
End Sub
[/vb:1:5e42ce4b9b]

Not:Bu kod C sürücüsünün altındaki belgelerim klasörüne kayıt yapar,kayıt yolunu kendinize göre değiştirebilirsiniz.

 

[turkanet]

bu kodu modül sayfasına yazınca otomatik olarak benzer 2 satır daha çıkarıyor. gene olmuyor gene.... ben, şablon isimli sayfanın a2 hücresini kaydetsin istiyorum. tam olarak nasıl yapabileceğimi anlatabilir misiniz? :dua:

 

[Levent Menteşoğlu]

bu kodu modül sayfasına yazınca otomatik olarak benzer 2 satır daha çıkarıyor.

Açıkçası bundan bir şey anlayamadım. Bu kodu aynen kopyalayın. Eğer buton başka bir sayfada ise kodu aşağıdaki gibi değiştirin. Ayrıca Koddaki Belgelerim klasörü yerine kendi klasörünüzün adını yazın. Eğer xp kullanıyorsanız bu şekilde bir yazım hata verecektir. Aşağıdaki gibi deneyin. Burada direk C nin altına kaydedecektir. Ayrıca birde örnek ilave ediyorum.

[vb:1:1ffd56a862]Sub kaydet()
ActiveWorkbook.SaveAs Filename:="C:\" & sheets("şablon").[a2].Value
End Sub
[/vb:1:1ffd56a862]

 

[imdatsaral]

arkadaşlar,

ben istediğim tam olarak şöyle

sayfayı kaydet dediğimde kaydet penceresi açılıyor dosya adı kitap1 olarak yazıyor sadece kitap1 yazısı değişsin istiyorum yani kaydet penceresi açılsın dosya ismi benim istediğim olsun

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Dosya adını A1 hücresinden almaktadır.
[vb:1:17d288213a]Sub farklıkaydet()
ChDir "c:\"
Dosya = Application.GetSaveAsFilename([a1].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub[/vb:1:17d288213a]

 

[turkanet]

Private Sub CommandButton1_Click()
ChDir "c:\belgelerim\FİRMALAR 2004 2005"
Dosya = Application.GetSaveAsFilename([a2].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub


1 - yukardaki şeklinde butona kod yazdım, oldu. ama butonun adını farklı kaydet yapamıyorum. hala sayfada adı commandbutton1 görünüyor. ne yapmalıyım?

2- =EÐER(EBOÞSA(B18);"";(I18*B18/1000)) diye bir formül yazdım. ama başvuru boşken #değer görünüyor. bunu nasıl yok ederim?

 

[turkanet]

merhaba arkadaşlar,

aktif sayfayı a1 deki değer adıyla kaydetmesi, eğer a1 boşsa, a2 deki değerle kaydetmesi için

Sub farkli_kaydet()
ActiveWorkbook.SaveAs (Range("A1").Value)
If (A1) = False Then
ActiveWorkbook.SaveAs (Range("A2").Value)
End If
End Sub

denedim, hata veriyor.
değerli yardımlarınızı rica ederim

 

[emrexcel123]

merhaba arkadaşlar,

aktif sayfayı a1 deki değer adıyla kaydetmesi, eğer a1 boşsa, a2 deki değerle kaydetmesi için

Sub farkli_kaydet()
ActiveWorkbook.SaveAs (Range("A1").Value)
If (A1) = False Then
ActiveWorkbook.SaveAs (Range("A2").Value)
End If
End Sub

denedim, hata veriyor.
değerli yardımlarınızı rica ederim

arkadaşım aktif sayfayı mı farklı kaydetmek istiyorsun ?

 

[turkanet]

çalışma kitabını

 

[sergions]

Merhaba,

Konunun dışında olacak ama, ilk mesajda belirtilen resim nerededir ve nasıl görebilirim?

Benim hesap ayarlarımla veya tarayıcımla ilgili bir sorun olabilir mi?

 

[turkanet]

Merhaba,

Sn.emrexcel123'ün önerisiyle;

Sub farkli_kaydet()
adr = "c:\" & Cells([a65536].End(3).Row, 1)
ActiveWorkbook.SaveAs adr
End Sub

olarak kodladık. ama bu kodlar, a sütunundaki en son dolu hücrenin adıyla kaydediyor. bu kodları a sütunundaki en son dolu hücreyi değil de, ilk dolu hücreyi alacak şekilde nasıl değiştiririz?

değerli cevaplarınızı beklerim

saygılarımla,

 

[turkanet]

arkadaşlar,

değerli yardımlarınızı beklerim

saygılar

 

[emrexcel123]

buyrun

Sub farkli_kaydet()
adr = "c:\" & Cells(Range("a:a").End(xlDown).Row, 1)
ActiveWorkbook.SaveAs adr
End Sub