Gönderen Konu: Sayfayı farklı kaydetme makrosu  (Okunma sayısı 8962 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Sayfayı farklı kaydetme makrosu
« : 18 Kasım 2010, 22:07:42 »
Merhaba Arkadaşlar,

Giriş Sayfasında, "Mahsup Farklı Kaydet" butonunu tıkladığımda,
Mahsup sayfasını farklı kaydetmeli. Ancak farklı kaydet işleminden sonra çalıştığı dosya üzerinden devam etmeli.
"farklı kaydet işlemi başarıyla gerçekleşti" diye uyarı vermeli.

Sayfayı C:\yedek\ bir sonraki klasör ismini H10 hücresinden almalı ve dosya ismini H9 hücresinden almalı.

Yardım ve fikirlerinizi bekliyorum.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfayı farklı kaydetme makrosu
« Yanıtla #1 : 22 Kasım 2010, 09:13:14 »
Merhaba Hüseyin Bey.

Kod: [Seç]
Sub ExcelceSayfaFarkliKaydet()
isim = ThisWorkbook.ActiveSheet.Range("H9").Value
klasor = ThisWorkbook.ActiveSheet.Range("H10").Value

ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\yedek\" & klasor & "\" & isim & ".xls"
.Close
End With
MsgBox "İşlem tamam.", vbInformation, "Excelce.Net"
End Sub
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı hariciyeci

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Mehmet Konevi
  • Doğum Yılınız: 1980
  • İl / İlçe: Konya/karatay
  • İşletim Sisteminiz: win7
  • Office Versiyonunuz: tr2007
Ynt: Sayfayı farklı kaydetme makrosu
« Yanıtla #2 : 26 Nisan 2013, 12:08:56 »
Merhaba Bülent Bey
Aşağıda verdiğiniz kodda excel dosyasının tamamını aynen kaydetmek istesek, kodları nasıl değiştirmeliyiz?
Yardımcı olursanız memnun olurum.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayfayı farklı kaydetme makrosu
« Yanıtla #3 : 26 Nisan 2013, 16:01:26 »
Merhaba Mehmet Bey,

Komut satırlarından şunu çıkartıp deneyin;
ActiveSheet.Copy
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")