• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

mutabakat formuna ekstre ekleme

spacebar

spacebar

Altın Üye
Katılım
2 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
office 2019 Türkçe
arkadaşlar merhaba.
ekte belirttiğim belgede bir mutabakat formu var. sorunsuz kullanıyorum. formu formüllerle hazırlıyor makro ile mail atıyor. ancak buna bir de ekstre ilave etmek istiyorum. belgede ekstre sayfasında o cariye ait bilgileri seçerek ister excel ister pdf olarak gönderilmesini istiyorum. yani form sayfasında pdf olarak mail gönder butonuna tıkladığımda hem formu hem de cari hesap ekstresini göndermesini istiyorum. yardımlarınız için şimdiden teşekkürler...
 

Ekli dosyalar

arkadaşlar günaydın. bir fikri olan varmı :)
 
üstad merhaba. mutabakat formunu hazırlamada ve göndermede bir sorun yok. netsisle çalışıyoruz. buna göre toplu bir şekilde alınabilen ekstremiz var. ancak bu ekstrede bir cari hareketi 5 satırda olabiliyor 500 satırda olabiliyor. bunu makroyla bölebilip pdf veya excele çevirmek ve mümkünse form ile birlikte aynı maile ancak ayrı bir belge olarak göndermek istiyorum.
 
Program, hem ortak dosya, hem de firmaya özel dosya olarak bir önceki mesajımdaki linte güncellendi.
 
spacebar' Alıntı:
üstad merhaba. mutabakat formunu hazırlamada ve göndermede bir sorun yok. netsisle çalışıyoruz. buna göre toplu bir şekilde alınabilen ekstremiz var. ancak bu ekstrede bir cari hareketi 5 satırda olabiliyor 500 satırda olabiliyor. bunu makroyla bölebilip pdf veya excele çevirmek ve mümkünse form ile birlikte aynı maile ancak ayrı bir belge olarak göndermek istiyorum.
Genişletmek için tıkla ...

Verdiğim linkteki dosyayı deneyin.
Farklı şeyler denemek iyidir. Sadece bir çözüme odaklanmayın : )
 
sizin çalışmanızda güzel. sizin çalıştığınız programa göre çok verimli. ama benim sorunum mutabakat formunu göndermek değil. ekstre göndermek. ekstreyi nasıl bölebilirim. bunun için yardıma ihtiyacım var. sizin çalışmanızda ekran görüntüsünde dosya yükle diye bir buton var. ama indirdiğim arşivde bu seçenek gelmiyor. diyelim ki geldi. benim eksre sayfasında cari hareketlerimi nasıl böleceğim. burada yapılmak istenen ekstre sayfasında cariye göre parçalara ayırarak pdf veya xls olarak bölmesi ve eğer mümkünse bunu tek bir mailde fakat ayrı belgeler olarak mail göndermesi.
 
Linkteki sorun giderildi.

Dosyanızı dosya.tc ye yükler mi siniz?
 
sayın asri, dosyanızı indirdim. dosya güncellenmiş. yükle butonu gelmiş. ama bu benim bir işime yaramıyor. çünkü benim ekstrem toplu bir şekilde bunu bölmek istiyorum.öncelikle bunu yapmam gerekiyor. ben sanırım konuyu yanlış açtım. veya yanlış anlaşıldı. sorun şudur: ekstreyi cariye göre ayrı ayrı pdf veya xls olarak bölebilmek. bundan sonrasını ya kendi çalışmamla yada sizin çalışmanızla devam etmek.
 
Dosyanızı dosya.tc ye yükler mi siniz?
 
Aşağıdaki şekilde deneyiniz.

Her cari kod değişiminde aradaki alanı pdf olarak kaydedecektir.
Kayıt yeri programın çalıştığı klasördür.

Kod: 
Sub pdf_yap()
  Sheets("EKSTRE").Select
  sonsatir = Cells(Rows.Count, "E").End(3).Row
  Call yazici_ayari
  
  ilkbuldu = False
  For i = 1 To sonsatir
    carikod = Cells(i, 1).Value
   
    If carikod = "Cari Kod" And Not ilkbuldu Then
      basla = i
      cariadi = Cells(i, 3).Value
      ilkbuldu = True
      GoTo son
    End If
    
    If (carikod = "Cari Kod" And ilkbuldu) Or i = sonsatir Then
      If i = sonsatir Then bitir = i Else bitir = i - 1
      Yol = ActiveWorkbook.Path & "\" & cariadi & ".pdf"
      kolon = "A" & basla & ":H" & bitir
      Range(kolon).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=Yol, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
      
      If i <> sonsatir Then i = i - 1
      ilkbuldu = False
    End If
son:
  Next i
  

End Sub

Sub yazici_ayari()
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""

    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
End Sub
 
Son düzenleme:
sayın asri, kodu uyguladım. ancak run time error 438 hatası veriyor. nerede hata yapıyorum.
 
resim yükleyemedim. ama şu satırda debug hatası veriyor:
Application.PrintCommunication = False

ilginize teşekkür ederim.
 
spacebar' Alıntı:
resim yükleyemedim. ama şu satırda debug hatası veriyor:
Application.PrintCommunication = False

ilginize teşekkür ederim.
Genişletmek için tıkla ...

O satırı silin. Yazıcı ayarı bölümündeki ona benzer hata verdiği satırları silin.
 
Üstad çok teşekkür ederim. sadece son cariyi pdf e çevirmiyor ama çok sorun değil. süper olmuş. emeğine sağlık. tekrar teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst