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 14-11-2017, 09:16   #11
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,006
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Boş bir excel dosyasında kodları dener misiniz. Yinede hata alıyor musunuz ?

Dosyanızı eklemeniz mümkün mü?

www.dosya.tc

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-11-2017, 09:48   #12
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

http://s8.dosya.tc/server5/2qy3zb/ENVER.zip.html

Ömer hocam yukarıdaki linkten indirebilirsiniz. Yardımlarınız için çok teşekkür ederim.
Bu konuyuda çözersem birde aklımda şey var Sayın kısmını Dolaylı olarak formülledim, onu makro ile ayarlayabilirmiyiz.
Birde göreceğiniz üzere Firma bilgilerini düşeyara ile ayarladım ama onlarıda makro ile yapsak. tıklandığında formül yerine
bilgiler yazsa çok iyi olur du.
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 10:30   #13
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,006
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Dosya uzantısını xlsm olarak değiştirdiğiniz için hata almışsınız.

Bu şekilde deneyin.

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

    Dim yol As String, ft_no As String

    yol = "/Volumes/Merkez_MAC/MERKEZ/H/01_HALÜL K†‚†KKINACI/FATURALAR/MAC_FATURA/"
    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 & "_" & _
        [H24] & "_" & Format([CH50], "_dd.mm.yyyy") & ".xlsm", FileFormat:=52
    ActiveWorkbook.Close
    
    Application.ScreenUpdating = True
End Sub
2. sorunuz için:

Fatura sayfası kod bölümüne kopyalayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim c As Range
    
    If Intersect(Target, [H24]) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    With Sheets("TÜM FİRMALAR")
        Set c = .[A:A].Find(Target, , xlFormulas, xlWhole)
        If Not c Is Nothing Then
            Range("H28") = .Cells(c.Row, "B")
            Range("H38") = .Cells(c.Row, "C")
            Range("M50") = .Cells(c.Row, "D")
            Range("AQ50") = .Cells(c.Row, "E")
        End If
    End With
    
    Application.ScreenUpdating = True
 
End Sub
Sayfa şifreli olduğu için "sayın" kısmına bakamadım.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-11-2017, 10:46   #14
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Ömer hocam dediğiniz gibi ekledim, yine aynı hatayı veriyor.
ben Mac Os kullandığım için uzantısı xlsm
Makroyu çalıştırınca fatura numarasını yazıyorum,
ActiveWorkbook.Sheets("FATURA").Copy gelince hatayı veriyor.

Sayfanın şifresi 1 hocam
muttabomer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 11:00   #15
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,006
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

FileFormat:=52

52 değerini 53 yaparak dener misiniz.

------------------------------------------------------------

H24 deki doğrulama için formül:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=KAYDIR('TÜM FİRMALAR'!$A$7;;
 ;BAĞ_DEĞ_DOLU_SAY('TÜM FİRMALAR'!$A$7:$A$65000))
.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 15-11-2017, 07:31   #16
muttabomer
 
Giriş: 02/02/2008
Şehir: GAZİANTEP
Mesaj: 19
Excel Vers. ve Dili:
TÜRKÇE
Varsayılan

Ömer hocam yine olmadı,

Neyse bu şekilde devam edeyim size de zahmet verdim.
Hakkınızı Helal Edin!...
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 14:06


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden