Hücredeki Değeri 1 arttırarak yazdırma

[haldigos]

Selamlar,

J1 hücresinde bir değerim var. Bu değer başka formüllere bağlı.

Makro ile bu değer 1 arttırarak ( 1 -> 2 ye gibi ) yazdırma işlemini yapmasını istiyorum.

Basit gibi göründüğünden dolayı bulduğum makroları birleştirirek yapmak istedim fakat olmadı.

Yardımlarınızı rica eder, iyi günler dilerim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    [J1] = [J1] + 1
End Sub

 

[haldigos]

Merhaba,

Deneyiniz.

Sub deneme()
    [J1] = [J1] + 1
End Sub

Selamlar,
Cevabınız için teşekkür ederim fakat verdiğiniz kod ile tam olarak işimi çözemedim hocam.
Asıl yapmak istediğim, ekte bulunan matbu evrakı, listede bulunan tüm personeller için tek seferde ( pdf formatını oluşturabilecek veya yazdırabilecek) bir makro oluşturmak.
2 farklı makroyu birleştirirken muhtemelen hatalar yaptım. Yardımlarınızı rica ederim.

 

[muysun35]

Selamlar,
Cevabınız için teşekkür ederim fakat verdiğiniz kod ile tam olarak işimi çözemedim hocam.
Asıl yapmak istediğim, ekte bulunan matbu evrakı, listede bulunan tüm personeller için tek seferde ( pdf formatını oluşturabilecek veya yazdırabilecek) bir makro oluşturmak.
2 farklı makroyu birleştirirken muhtemelen hatalar yaptım. Yardımlarınızı rica ederim.

for döngüsü kullanarak yapılabilir.. Dosyayı barındırma sitelerinden birine yükleyebilirseniz ben de yardımcı olmaya calısayım

 

[haldigos]

for döngüsü kullanarak yapılabilir.. Dosyayı barındırma sitelerinden birine yükleyebilirseniz ben de yardımcı olmaya calısayım

Teşekkürler hocam.

İndir excelweb

Dosyayı indir excelweb

dosya.co

 

[Ömer]

Deneyiniz. Pdf leri excel çalışmanızın olduğu klasöre kayıt yapar.

Sub Pdf_Kaydet()

    Dim Sv As Worksheet, i As Long, yol As String
   
    Set Sv = Sheets("veri")
    yol = ThisWorkbook.Path

    Application.ScreenUpdating = False
    Sheets("SON").Select
    ActiveSheet.PageSetup.PrintArea = "A1:B13"
   
    ChDir ThisWorkbook.Path
    For i = 2 To Sv.Cells(Rows.Count, "B").End(xlUp).Row
        Range("B8") = Sv.Cells(i, "B")
        Range("B9") = Sv.Cells(i, "C")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            yol & "\" & [B8] & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False
    Next i
   
    MsgBox "Kayıt Bitti.", vbInformation

End Sub

 

[haldigos]

Deneyiniz. Pdf leri excel çalışmanızın olduğu klasöre kayıt yapar.

Sub Pdf_Kaydet()

    Dim Sv As Worksheet, i As Long, yol As String
  
    Set Sv = Sheets("veri")
    yol = ThisWorkbook.Path

    Application.ScreenUpdating = False
    Sheets("SON").Select
    ActiveSheet.PageSetup.PrintArea = "A1:B13"
  
    ChDir ThisWorkbook.Path
    For i = 2 To Sv.Cells(Rows.Count, "B").End(xlUp).Row
        Range("B8") = Sv.Cells(i, "B")
        Range("B9") = Sv.Cells(i, "C")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            yol & "\" & [B8] & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False
    Next i
  
    MsgBox "Kayıt Bitti.", vbInformation

End Sub

Hocam excel içinde ekteki gibi sayfalar oluşturdu. Excel sürümüm 2010, bununla bir ilgisi olabilir mi ?

 

[Ömer]

Nedenini anlamadım.
Makro kaydeti çalıştırıp, excel sayfasını pdf formatında kaydedin. Makro yu durdurup kodları paylaşır mısınız.

 

[haldigos]

Nedenini anlamadım.
Makro kaydeti çalıştırıp, excel sayfasını pdf formatında kaydedin. Makro yu durdurup kodları paylaşır mısınız.

Hocam şuanda herhangi bir exceli açtığımda, ilgili excelde olan listedeki tüm satır kadar ayrı excel sayfası açılıyor, makroyu silip, açılışta makroları da çalıştırma dedim fakat olmadı. Kapatabildikten sonra dediğiniz kodları paylaşacağım.

 

[haldigos]

Nedenini anlamadım.
Makro kaydeti çalıştırıp, excel sayfasını pdf formatında kaydedin. Makro yu durdurup kodları paylaşır mısınız.

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+q
'
    ChDir "C:\Users\ckoc\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ckoc\Desktop\deneme.pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Windows("12345678910.pdf").Activate
End Sub

 

[muysun35]

ekteki dosyayı deneyin..

excelweb.xlsm - 24 KB

 

[muysun35]

Nedenini anlamadım.
Makro kaydeti çalıştırıp, excel sayfasını pdf formatında kaydedin. Makro yu durdurup kodları paylaşır mısınız.

@Ömer Hocam veri sayfasındaki değerler tekrar eden değerler olduğu için (pdf adı B sütunundaki değerleri baz alarak oluşturuyor dosya isimlerini ve değerlerin hepsi aynı) bir pdf dosyası oluşturuyor, üzerine 140 kere daha güncelleme yapıyor ama pdf dosyası aynı dosya. veri sayfasındaki verileri değiştirdim, sorunsuz çalışıyor su anda.. Sizin kodlar sıkıntısız

 

[haldigos]

@Ömer Hocam veri sayfasındaki değerler tekrar eden değerler olduğu için (pdf adı B sütunundaki değerleri baz alarak oluşturuyor dosya isimlerini ve değerlerin hepsi aynı) bir pdf dosyası oluşturuyor, üzerine 140 kere daha güncelleme yapıyor ama pdf dosyası aynı dosya. veri sayfasındaki verileri değiştirdim, sorunsuz çalışıyor su anda.. Sizin kodlar sıkıntısız

Sıkıntının benim uygulamamda olduğu belliydi zaten.
Şuan herhangi bir exceli açtığımda 140 sayfa açıyor peşi sıra.
Henüz bir çözüm bulamadım.

Edit : AppData/Roaming excelin ilgili klasörüne atmış dosylaları, onları silince düzeldi.

 

[muysun35]

Sıkıntının benim uygulamamda olduğu belliydi zaten.
Şuan herhangi bir exceli açtığımda 140 sayfa açıyor peşi sıra.
Henüz bir çözüm bulamadım.

Edit : AppData/Roaming excelin ilgili klasörüne atmış dosylaları, onları silince düzeldi.
Ekli dosyayı görüntüle 222892

siz benim gönderdiğim son dosyayı mı (#11 NOLU MESAJ ) denediniz???

 

[haldigos]

siz benim gönderdiğim son dosyayı mı (#11 NOLU MESAJ ) denediniz???

Şimdi orjinal verilerin olduğu excelde de denedim ve kodlar çalıştı hocam. Teşekkür ederim, sadece pdf dosyarını AppData içinde excel klasörüne atmış, sizin excelde denediğimde kendi klasöründe oluşturuyordu pdfleri.

Emeklerinize sağlık @Ömer ve @muysun35. Çok teşekkür ederim.