Masaüstü klasör

muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
Arkadaşlar, sayın hocalarım, küçük bir örnek yaptığım klasör benim bilgisayarda çalışsa, başka bilgisayara alınca ayarlama yapmam gerekiyor.
Günde yüzlerce rapor alıyoruz.
Belki size çok basit gelecek ama
Yaklaşık 20 bilgisayar var
Bu klasörü masaüstüne atınca çalışmasını nasıl sağlarım?
Şimdiden teşekkür ederim.
Saygılarımla.
 

Ekli dosyalar

T

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,667
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Merhaba,
Module 4 teki
"C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR" ve benzerlerini
ThisWorkbook.Path & "\RAPORLAR\ALINAN RAPORLAR" şekline çevirirseniz sorununuz biter diye düşünüyorum.
Deneyiniz ...
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
Tevfik_Kursun' Alıntı:
Merhaba,
Module 4 teki
"C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR" ve benzerlerini
ThisWorkbook.Path & "\RAPORLAR\ALINAN RAPORLAR" şekline çevirirseniz sorununuz biter diye düşünüyorum.
Deneyiniz ...
Genişletmek için tıkla ...
Sub Makro1()
ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR"
Workbooks.Open Filename:= _
"C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR\test.xlsx"
ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR\test.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWindow.Close
End Sub

Hocam ilginize teşekkür ederim.
Hocam yerine koyamadım. ChDir olayı bozuyor hep.
 
T

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,667
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Örneğinizin ne yaptığını anlamadım. bunu da belirterek, işleyen basit bir örnek koyarsanız daha kolay incelenebilir.
 
B

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
62
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
Merhaba, Benim Gini Kullanıcılar C: Klasörünü standart kullanmayabiliyor bu nedenle excelin çalıştığı klasörü hedef alman işini kolaylaştırabilir

Apache config: 
Sub Makro1()
    Dim Adres As String
    Dim Adres2 As String
    Dim DosyaAdi As String
    Dim DosyaAdi2 As String

'Masaüstü Şartını İstiyosanız 2. Kod Kısmını Siliebilirsiniz
'    ExcellAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\ALINAN RAPORLAR\test.xlsx"
'    PDFAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\PDF RAPORLAR\test.pdf"

ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx"
PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf"

    Workbooks.Open Filename:=ExcellAdresi
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        PDFAdresi, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    ActiveWindow.Close
End Sub
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
bosislermuduru' Alıntı:
Merhaba, Benim Gini Kullanıcılar C: Klasörünü standart kullanmayabiliyor bu nedenle excelin çalıştığı klasörü hedef alman işini kolaylaştırabilir

Apache config: 
Sub Makro1()
    Dim Adres As String
    Dim Adres2 As String
    Dim DosyaAdi As String
    Dim DosyaAdi2 As String

'Masaüstü Şartını İstiyosanız 2. Kod Kısmını Siliebilirsiniz
'    ExcellAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\ALINAN RAPORLAR\test.xlsx"
'    PDFAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\PDF RAPORLAR\test.pdf"

ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx"
PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf"

    Workbooks.Open Filename:=ExcellAdresi
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        PDFAdresi, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    ActiveWindow.Close
End Sub
Genişletmek için tıkla ...
Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
bosislermuduru' Alıntı:
Merhaba, Benim Gini Kullanıcılar C: Klasörünü standart kullanmayabiliyor bu nedenle excelin çalıştığı klasörü hedef alman işini kolaylaştırabilir

Hocam benim kullandığım kod şu şekildeydi. Gördüğünüz gibi çoğunlukla biçimlendirme. Yani kurumun istediği şekil. Şöyle ki;

Sub XXXXXX()

ChDir "C:\Users\murat\OneDrive\Masaüstü\XXXXXXX\RAPORLAR"
Workbooks.Open Filename:="C:\Users\murat\OneDrive\Masaüstü\Interpress\RAPORLAR\XXXXXX TV.xls"
Sheets("TV").Select
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("G:K").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
Selection.RowHeight = 17
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
Selection.RowHeight = 25
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B10").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:C").Select
Selection.ColumnWidth = 17
Columns("D:D").Select
Selection.ColumnWidth = 25
Columns("E:E").Select
Selection.ColumnWidth = 40
Columns("F:F").Select
Selection.ColumnWidth = 17
Columns("F:F").Select
With Selection
.HorizontalAlignment = xlFill
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1:F1").Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("C11").Select
Columns("A:A").EntireColumn.AutoFit
Range("D11").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.511811023622047)
.RightMargin = Application.InchesToPoints(0.511811023622047)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.551181102362205)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.511811023622047)
.RightMargin = Application.InchesToPoints(0.511811023622047)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.551181102362205)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 0
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ChDir "C:\Users\murat\OneDrive\Masaüstü\XXXXXXXXXX\YAPILAN\RAPORLAR"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\murat\OneDrive\Masaüstü\Interpress\YAPILAN\RAPORLAR\XXXXXXXXXX.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Visible = False
'ActiveWorkbook.Save
ActiveWorkbook.Close False

End Sub

Burada biçimlendirme kısmın alacak olursak;


Kod: 
Sheets("TV").Select
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:K").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.RowHeight = 17
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("1:1").Select
    Selection.RowHeight = 25
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B10").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:C").Select
    Selection.ColumnWidth = 17
    Columns("D:D").Select
    Selection.ColumnWidth = 25
    Columns("E:E").Select
    Selection.ColumnWidth = 40
    Columns("F:F").Select
    Selection.ColumnWidth = 17
    Columns("F:F").Select
    With Selection
        .HorizontalAlignment = xlFill
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1:F1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("C11").Select
    Columns("A:A").EntireColumn.AutoFit
    Range("D11").Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.511811023622047)
        .RightMargin = Application.InchesToPoints(0.511811023622047)
        .TopMargin = Application.InchesToPoints(0.551181102362205)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.511811023622047)
        .RightMargin = Application.InchesToPoints(0.511811023622047)
        .TopMargin = Application.InchesToPoints(0.551181102362205)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
Bu bölümü sizin yazdığınız kodum hangi bölümüne yani hangi satıra yapıştıracağım. Garanti olsun sorayım dedim. Size zahmet.
Genişletmek için tıkla ...
 
B

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
62
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
Önceki kodda exceli açıp pdf olarak kaydediyorduk,
şimdi araya biçimlendirme ekleyeceğiz o halde
1.adım exceli açalım
2.Adım Biçimlendir
3.Adım Pdf Kaydet Vs

Workbooks.Open Filename:=ExcellAdresi '1.Adım


Sheets("TV").Select
.......
Application.PrintCommunication = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ '3.Adım
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
bosislermuduru' Alıntı:
Önceki kodda exceli açıp pdf olarak kaydediyorduk,
şimdi araya biçimlendirme ekleyeceğiz o halde
1.adım exceli açalım
2.Adım Biçimlendir
3.Adım Pdf Kaydet Vs

Workbooks.Open Filename:=ExcellAdresi '1.Adım


Sheets("TV").Select
.......
Application.PrintCommunication = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ '3.Adım
Genişletmek için tıkla ...

Kod: 
Sub Makro1()

    Dim Adres As String

    Dim Adres2 As String

    Dim DosyaAdi As String

    Dim DosyaAdi2 As String



'Masaüstü Şartını İstiyosanız 2. Kod Kısmını Siliebilirsiniz

'    ExcellAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\ALINAN RAPORLAR\test.xlsx"

'    PDFAdresi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPORLAR\PDF RAPORLAR\test.pdf"



ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx"

PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf"



    Workbooks.Open Filename:=ExcellAdresi

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

Sheets("TV").Select

    Rows("1:2").Select

    Selection.Delete Shift:=xlUp

.

.

.

FirstPage.LeftFooter.Text = ""

FirstPage.CenterFooter.Text = ""

FirstPage.RightFooter.Text = ""

End With

Application.PrintCommunication = True

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

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        PDFAdresi, Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=False

    ActiveWindow.Close

End Sub
Doğru mu hocam?
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
Hocam "dene gör bir zahmet" diyeceksiniz ama :)
Ben gece çalışıyorum. 23.00'da işe başlayacağım, CTRL + H ile değiştireceğim.
Riske atamam. Sonra yüzlerce raporu elle yapmayayım :)
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
bosislermuduru' Alıntı:
Önceki kodda exceli açıp pdf olarak kaydediyorduk,
şimdi araya biçimlendirme ekleyeceğiz o halde
1.adım exceli açalım
2.Adım Biçimlendir
3.Adım Pdf Kaydet Vs

Workbooks.Open Filename:=ExcellAdresi '1.Adım


Sheets("TV").Select
.......
Application.PrintCommunication = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ '3.Adım
Genişletmek için tıkla ...
Hocam burada hata verdi.

hata.png
 
B

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
62
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
textboxa sayfa adını yazmak kolay olur diye düşünmüştüm ancak isterseniz değişkende tanımlayabilirsiniz
ancak Sayfa Adını TV şeklinde değil "TV" Şeklinde yazmalısınız
hata veren yerdeki end with satırı fazla o satırı da silince kod çalışır
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,104
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
bosislermuduru' Alıntı:
textboxa sayfa adını yazmak kolay olur diye düşünmüştüm ancak isterseniz değişkende tanımlayabilirsiniz
ancak Sayfa Adını TV şeklinde değil "TV" Şeklinde yazmalısınız
hata veren yerdeki end with satırı fazla o satırı da silince kod çalışır
Genişletmek için tıkla ...
Hocam sizi de yordum. Sizin sayenizde, son dokunuşu da ben yaptım.
End With kaldırınca olmuyor. Neden bilmiyorum.
Ben de altına bir komut daha yazdım. Çalıştı
Altına
Range("A1").Select
Yazdım, o kadar.

Hocam emeğinize sağlık. Çok ama çok teşekkür ederim. Var olun. Biçimlendirme kısmı her raporda aynı zaten. Kopyala yapıştır ile tüm makroları 10 dakikada değiştirdim.
Tekrar teşekkür ederim.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst