Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-02-2015, 13:51   #1
serdarexe
 
serdarexe kullanıcısının avatarı
 
Giriş: 20/09/2011
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
Office 2007 - Türkçe
Post Farklı kaydetmek

Merhaba arkadaşlar,
S isimli excel dosyam var sizlerden ricam,
C:\Users\Personel\Desktop\Günlük raporlar içine kayıt olacak ve D2 hücresindeki isim excel dosyamın ismi olacak, kayıt başarılı olursa msgbox ile bilgi versin istiyorum rica etsem lütfen yardımcı olur musunuz.

Ayrıca dosya ekleyemedim, ekleyecek yeri bulamadım

Bu mesaj en son " 05-02-2015 " tarihinde saat 13:55 itibariyle serdarexe tarafından düzenlenmiştir.... Neden: Eksik bilgi
serdarexe Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2015, 23:44   #2
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,806
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveWorkbook.SaveAs Filename:="C:\Users\Personel\Desktop\Günlük raporlar\" & Cells(2, 4).Value & ".xls"
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-02-2015, 08:27   #3
serdarexe
 
serdarexe kullanıcısının avatarı
 
Giriş: 20/09/2011
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
Office 2007 - Türkçe
Varsayılan

Murat bey ilginiz için teşekkür ederim, kodu yazdığımda aynı şekilde kayıt etmiyor sanki görsellik bozulmuş gibi oluyor ve kayıt yerine dosya açıyor ben sadece aynı şekilde excel çalışma sayfası olarak kayıt etmek istiyorum : (
serdarexe Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-02-2015, 10:17   #4
Excelmy
Destek Ekibi
 
Excelmy kullanıcısının avatarı
 
Giriş: 10/04/2008
Şehir: Antalya
Mesaj: 639
Excel Vers. ve Dili:
2010 - TÜRKÇE
Varsayılan

Alıntı:
serdarexe tarafından gönderildi Mesajı Görüntüle
ben sadece aynı şekilde excel çalışma sayfası olarak kayıt etmek istiyorum
Kodlarınız,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub fsv()
Dim deger, Kaynak
deger = ActiveSheet.Range("D2").Value
Kaynak = "C:\Users\Personel\Desktop\Günlük raporlar"
On Error Resume Next
If Dir(Kaynak) Then MkDir (Kaynak)
ActiveSheet.Copy
ActiveSheet.DrawingObjects.Delete
Call vbclr
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Kaynak & "\" & deger & ".xls", FileFormat:=xlWorkbookNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
ActiveWorkbook.Close False
End Sub
Sub vbclr()
Dim component, modul
For Each component In ActiveWorkbook.VBProject.VBComponents
    If component.Type <> 100 Then
        ActiveWorkbook.VBProject.VBComponents.Remove component
    Else
        Set modul = component.CodeModule
        modul.DeleteLines 1, modul.CountOfLines
    End If
Next
End Sub
__________________
Kuman
Excelmy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-02-2015, 10:37   #5
serdarexe
 
serdarexe kullanıcısının avatarı
 
Giriş: 20/09/2011
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
Office 2007 - Türkçe
Varsayılan

Kısa yol makro yaptım ve kodları komple yapıştırdım, Sonuç MÜKEMMEL, Allah razı olsun sizden çok teşekkür ederim.

Farklı kayıt etme işlemi bittikten sonra Msgbox ile bilgi vermek mümkünmüdür. kayıt başarılı ise bilgi versin başarısız ise bilgi versin bu konuda da yardım eder misiniz.

Kodlarla ilgili bir sorum olacak, "farklıkaydet" diye bir makro açtım. 2. kod kısmı yani "Sub vbclr() den sonrası ne işe yarıyor. Ben komple kopyalayıp yapıştırdım makronun kendisi "vbclr"adlı bir makro daha açmış ve kodlar var. Ama yinede mükemmel çalışıyor.

Bu mesaj en son " 06-02-2015 " tarihinde saat 10:44 itibariyle serdarexe tarafından düzenlenmiştir....
serdarexe Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-02-2015, 13:20   #6
Excelmy
Destek Ekibi
 
Excelmy kullanıcısının avatarı
 
Giriş: 10/04/2008
Şehir: Antalya
Mesaj: 639
Excel Vers. ve Dili:
2010 - TÜRKÇE
Varsayılan

Alıntı:
serdarexe tarafından gönderildi Mesajı Görüntüle
Farklı kayıt etme işlemi bittikten sonra Msgbox ile bilgi vermek mümkünmüdür. kayıt başarılı ise bilgi versin başarısız ise bilgi versin bu konuda da yardım eder misiniz.
fsv kodları sonuna ekleyiniz,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If CreateObject("Scripting.FileSystemObject").FileExists("" & Kaynak & "\" & deger & ".xls") Then
MsgBox "KLASOR : " & Kaynak & "" & vbLf & "DOSYA ADI : " & deger & "" & vbLf & "Kayıt Yapıldı", , ""
Else
MsgBox "Kayıt Yapılmadı", , ""
End If
Alıntı:
serdarexe tarafından gönderildi Mesajı Görüntüle
Kodlarla ilgili bir sorum olacak, "Sub vbclr() den sonrası ne işe yarıyor.
Sadece sayfayı kaydetmek istediğiniz için vba kodlarını kaldırıyoruz
__________________
Kuman
Excelmy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-02-2015, 13:45   #7
serdarexe
 
serdarexe kullanıcısının avatarı
 
Giriş: 20/09/2011
Şehir: Mersin
Mesaj: 23
Excel Vers. ve Dili:
Office 2007 - Türkçe
Varsayılan

Çok teşekkür ederim elleriniz dert görmesin, Tek kelime ile süpersiniz.
serdarexe Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 08:01   #8
cigilipap
 
Giriş: 18/05/2017
Şehir: Ankara
Mesaj: 1
Excel Vers. ve Dili:
Türkçe 2016
Varsayılan

Merhabalar

Kodlar çok işime yaradı.
Ancak şöyle bir sorunum var ben kopya oluşturduğum yerde makroların kalmasını istiyorum. Bu durumda dosya uzantım xlsm olmalı değilmi?

Birde oluşan kopyada veri doğrulama ile yapılan liste seçeneklerim kayboluyor.

Kısacası benim ihtiyacım olan makro belirlediğim dosya yoluna belirlediğim hücre ismi ile dosyanın birebir kopyasının oluşturulması

Şimdiden teşekkür ederim.
cigilipap Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:28


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden