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 13-11-2017, 10:05   #1
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan Sıra numarası ile Kaydet butonu

Selamun Alkeyküm hocalarım,

Benim sıkıntı şu konuda, Bir Fatura kesme şablonu oluşturdum,

Bu şablada bilgileri girdiğim zaman, Kaydetmek için bir buton ayarladım, bu butona tıkladığım zaman H24 hücresindeki FirmaAdı ve CH50 deki tarihi otomatik olarak algılasın ve Ön kısmıda Faturanın Numarası bana sorup kaydetsin. Örneğin: "084041_FirmaAdı_13.11.2017"

Şimdiden yardımlarınız için teşekkür ederim.
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 10:57   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Bu şekilde deneyin. Masa üstüne kaydeder.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kaydet()

    Dim yol As String, ft_no As String

    yol = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop")
    ft_no = Application.InputBox("Fatura Numarasını Yazın.", "KAYIT")
    
    If ft_no = "" Then
        MsgBox "Kayıt Yapmadım! ....... Fatura No Boş Bırakılmaz"
        Exit Sub
    End If

    ActiveWorkbook.SaveCopyAs Filename:=yol & "\" & ft_no & "_" & _
        [H25] & "_" & Format([CH50], "_dd.mm.yyyy") & ".xlsx"
        
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 12:10   #3
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Çalışma Hatası 429 verdi

Birde Dosya Yolu Şu şekilde yapabilirmiyiz
"/Volumes/Merkez_MAC/MERKEZ/H/01_HALİL KÜÇÜKKINACI/FATURALAR/MAC_FATURALAR" içerisine kayıt etsin
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 12:54   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

yol tanımlamasındaki CreateObject("Wscript.Shell").SpecialFolders.Item( "Desktop") yazan bölümünü silerek kayıt adresini tam olarak yazarak deneyin.

yol = "C:\Volumes\Merkez_MAC\MERKEZ\H\01_HALİL KÜÇÜKKINACI\FATURALAR\MAC_FATURALAR"

Gibi. Adresi siz kontrol edersiniz.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 15:20   #5
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Çok teşekkür ederim oldu hocam,
Ufak bir yeri unutmuşum,
Kayıt ettiğinde sadece bilgileri yazdığım, Sheets("FATURA") kayıt etsin diğer 2 ve 3 üncü sayfaları kaydetmesin.
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 16:38   #6
anemis
Altın Üye
 
Giriş: 10/10/2013
Şehir: Ankara
Mesaj: 129
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Çok gizli değilse çalışmanızı paylaşmanızı rica edeceğim sayın muttabomer Benim gibi bu tür işlere yeni başlamış olanlar için çok faydalı bir örnek olacağına eminim.
anemis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 07:27   #7
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Anemis son bir düzeltme kaldı onuda tamamlayınca neden olmasın,
son düzeltme için cevap bekliyorum, oda tamamlasın başüstüne.
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 07:59   #8
anemis
Altın Üye
 
Giriş: 10/10/2013
Şehir: Ankara
Mesaj: 129
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Alıntı:
muttabomer tarafından gönderildi Mesajı Görüntüle
Anemis son bir düzeltme kaldı onuda tamamlayınca neden olmasın,
son düzeltme için cevap bekliyorum, oda tamamlasın başüstüne.
Estafurullah, konuyu takibe alıyorum. Paylaşımcılığınız için şimdiden teşekkür ederim.
anemis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 08:07   #9
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,013
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
muttabomer tarafından gönderildi Mesajı Görüntüle
Çok teşekkür ederim oldu hocam,
Ufak bir yeri unutmuşum,
Kayıt ettiğinde sadece bilgileri yazdığım, Sheets("FATURA") kayıt etsin diğer 2 ve 3 üncü sayfaları kaydetmesin.
Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kaydet()

    Dim yol As String, ft_no As String

    yol = "C:\Volumes\Merkez_MAC\MERKEZ\H\01_HALI·L KU¨C¸U¨KKINACI\FATURALAR\MAC_FATURALAR"
    ft_no = Application.InputBox("Fatura Numarasını Yazın.", "KAYIT")
    
    If ft_no = "" Then
        MsgBox "Kayıt Yapmadım! ....... Fatura No Boş Bırakılmaz"
        Exit Sub
    End If

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ActiveWorkbook.Sheets("FATURA").Copy
    ActiveWorkbook.SaveAs Filename:=yol & "\" & ft_no & "_" & _
        [H25] & "_" & Format([CH50], "_dd.mm.yyyy") & ".xlsx"
    ActiveWorkbook.Close
    
    Application.ScreenUpdating = True
        
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 08:17   #10
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Teşekkür ederim hocam,

Çalışma Zaman hatası '1004':

Worksheet sınıfının Copy yöntemi başarısız dedi.

ActiveWorkbook.Sheets ("FATURA").Copy de kalde
muttabomer Ç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 05:51


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden