Olabilirse excelde yazdır,aktar ve kaydet makrosu

[Korhan Ayhan]

Sn. turist,

Aşağıdaki kodu kullanabilirsiniz.

Sub KAYDET()
    Set CWS = CreateObject("WScript.Shell")
    Yol = CWS.SpecialFolders("Desktop") & "\GGY\"
    ThisWorkbook.Save
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    MkDir Yol
    On Error GoTo 0
    Sheets("Sayfa1").Copy
    ActiveWorkbook.SaveAs Yol & Format(Now, "ddmmyyyy_hhmmss") & ".xls"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[henbl]

Korhan bey yardımınız için öncelikle teşekkür edrim.
Ben sizin kadar bu işlerden anlamdığım için sizden o derecede yardım istedim.bide menüler ingilizce olunca sıkıntı oluyor.


Ayrıca yazdır makrosundaki aktarmada gün sayısını aktarmıyor

 

[henbl]

Birde kaydet makrosunda kaydederken basına tarih atıyor ama ondan sonra gelişigüzel bi sayı yazıyor.dosya içindeki sicili yazması gerekiyor.tesekkür ederim

 

[turist]

Sn. turist,

Aşağıdaki kodu kullanabilirsiniz.

Sub KAYDET()
    Set CWS = CreateObject("WScript.Shell")
    Yol = CWS.SpecialFolders("Desktop") & "\GGY\"
    ThisWorkbook.Save
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    MkDir Yol
    On Error GoTo 0
    Sheets("Sayfa1").Copy
    ActiveWorkbook.SaveAs Yol & Format(Now, "ddmmyyyy_hhmmss") & ".xls"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam, çok teşekkür ederim.
Sheets("Sayfa1").Copy kodunun yerine nasıl bir kod koymalıyım ki
Sadece Sayfa1 deki A1: M30 seçili alanını kopyalayalım.
Emeğiniz için sağolun.

 

[Korhan Ayhan]

Sn. henbl,

Dosyanızda mavi renkli alanlarda neresi gün sayısını gösteriyor. Belirtirseniz yardımcı olurum. Ayrıca son önerdiğim kod Sn.turist'in sorusuna cevap amaçlıydı. Sizin sorunuzun cevabı 17 mesajdadır.

 

[Korhan Ayhan]

Sn. turist,

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Set CWS = CreateObject("WScript.Shell")
    Yol = CWS.SpecialFolders("Desktop") & "\GGY\"
    ThisWorkbook.Save
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    MkDir Yol
    On Error GoTo 0
    Sheets("Sayfa1").Range("A1:M30").Copy
    Workbooks.Add (1)
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Yol & Format(Now, "ddmmyyyy_hhmmss") & ".xls"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turist]

Sn. henbl,

Dosyanızda mavi renkli alanlarda neresi gün sayısını gösteriyor. Belirtirseniz yardımcı olurum. Ayrıca son önerdiğim kod Sn.turist'in sorusuna cevap amaçlıydı. Sizin sorunuzun cevabı 17 mesajdadır.

Korhan Bey, ben de Sn. hnbl 'e yardımcı olmaya çalışıyorum.
Sizin sayenizde dosyayı bir noktaya getirdik.
Yalnız yukarda belirttiğim gibi dosyanın bellir bir alanını kopyalamak için KOD konusunda yardım ederseniz, sanırım işlem bitecek.
Dosyayı tamamladıktan sonra buraya eklerim. Arkadaşımız'a yardım olsun.

Emeğiniz için çok teşekkür ederim. Biz de bu örnek çalışmalar sayesinde ve sizlerin yardımıyla birşeyler öğrenmeye gayret ediyoruz. Sağolunuz.

 

[henbl]

Sn. turistinde söylediği gibi bana yardımcı olmaya çalışıyor. eklediğim dosyada günler bölümünü sarı renk ile belirttim.o günlerin toplamı korhan bey.

 

[Korhan Ayhan]

Sn.turist 26 nolu mesajı inceleyin.

Sn. henbl sarı renkli hücreyi ben göremiyorum. Hangi mesajdaki dosyadan bahsediyorsunuz.

 

[henbl]

sarı hücreli dosya ekte sn korhan bey

 

[turist]

Korhan Bey, son kod değişikliği çalışmadı, fakat önceki kodlarla oluşturduğum dosya eklidir.( gün sayısı kısmını da hallettim)
Siz de kontrol edip onaylarsanız belki Henbl arkadaşımız kullanabilir.
Yardımlarınız için çok teşekkür ederim.

 

[henbl]

ikinizede çok tesekkür ederim.dosya mükemmel oldu

 

[turist]

ikinizede çok tesekkür ederim.dosya mükemmel oldu

Korhan Bey'in sayesinde , yardımcı olabildiyse memnun oluruz.
Kolay gelsin....

 

[henbl]

korhan bey bu konularda sağolsun yardımcı oluyor ama sizide konuda emeğiniz çok fazla.ikinizede tesekkür ederim