veriyi otomatik ya da elle kaydetme

[rrrccc]

Arkadaşlar sorum şu şekilde:
A1 İLE B1 deki bilgiyi yazdır ya da kaydet dediğimizde başka bir belgeye kaydetsin ya da 2. sayfaya kaydetsin istiyorum. Bir nevi arşivleme sistemi oluşturmak istiyorum. Herhangi bir yolu var mıdır?
Şimdiden çok teşekkür ederim.

 

[Ömer]

A1 İLE B1 deki bilgiyi yazdır ya da kaydet dediğimizde başka bir belgeye kaydetsin ya da 2. sayfaya kaydetsin istiyorum.

Merhaba,

Buton ile yapmak istiyorsanız aşağıdaki kodları module kopyalayıp butona atayın. Yalnız kodları çalıştırmadan Sayfa2 yi önce temizleyin.

Sub Arsiv()
 
    Dim son As Long, S2 As Worksheet
 
    Set S2 = Sheets("Sayfa2")
    Application.ScreenUpdating = False
 
    son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    If S2.Range("A1") = "" Then son = 1
 
    S2.Range("A" & son) = son
    Range("A1:B1").Copy
    S2.Range("B" & son).PasteSpecial xlPasteValues, xlNone
    Application.CutCopyMode = False
 
    ActiveSheets.PrintOut
    Application.ScreenUpdating = True
 
End Sub

Eğer buton ile değilde yazdırma işleminden sonra yapmak istiyorsanız.

ThisWorbook sayfasına kopyalayın. Yazdırma işleminden sonra istediğiniz olacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
    Dim son As Long, S2 As Worksheet
 
    Set S2 = Sheets("Sayfa2")
    Application.ScreenUpdating = False
 
    son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    If S2.Range("A1") = "" Then son = 1
 
    If ActiveSheet.Name = "Sayfa1" Then
        S2.Range("A" & son) = son
        Range("A1:B1").Copy
        S2.Range("B" & son).PasteSpecial xlPasteValues, xlNone
        Application.CutCopyMode = False
 
        Application.ScreenUpdating = True
    End If
 
End Sub

Not: Aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

 

[rrrccc]

Ömer kardeşim çok teşekkür ederim.
Yazdır butonu ile kaydettim çalışıyor. fakat butonsuz otomatik kodu çalıştıramadım. Vaktin varsa bir kontrol eder misin?

 

[rrrccc]

her defasında makroyu çalıştır demek gerekiyor yoksa kaydetmiyor

 

[Ömer]

Merhaba,

Tam olarak söylemek istediğinizi anlayamadım. Yalnız 2007 dosyalarında makro kullanıyorsanız çalışmanızı farklı kaydet bölümünde makro içerikli çalışma kitabı olarak kaydetmeniz gerekir.

.

 

[rrrccc]

Ömer kardeşim 2. formülü çalıştıramadım.
sayfa 1 deki belgeyi yazdırdığımızda sayfa 2 ye otomatik kaydetmesini istiyorum. İlk formül hatasız çalışıyor ama her seferinde makroyu çalıştırmak zorunda kalıyorum. Excel 2007 kullanıyorum makro kaydederken hata veriyor farklı da kaydettim olmadı
Üstad sana zahmet olmazsa ekdeki belgeye bir uygulayabilir misin?
İlgilendiğin için teşekkür ederim

 

[Ömer]

Bende 2007 olmadığı için uygulayıp 2007 formatında ekleyemiyorum.

Siz kodları dosyanıza uygulayıp ekleyiniz, o şekilde kontrol edelim.

 

[rrrccc]

işin içinden çıkamadım o zamn şöyle sorayım A1 ile b1 de yazılıp kaydettiğim ya da yazdırdığım her veriyi sayfa 2 ye atmasını istiyorum. Makroyu çalıştırdım ama sayfa 2 de sıralamıyor üstüne kaydediyor.
formül söyle:

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A1:B1").Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ActivePrinter = "Ne04: üzerindeki Adobe PDF "
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Ne04: üzerindeki Adobe PDF "",,TRUE,,FALSE)"
End Sub

 

[Ömer]

işin içinden çıkamadım o zamn şöyle sorayım A1 ile b1 de yazılıp kaydettiğim ya da yazdırdığım her veriyi sayfa 2 ye atmasını istiyorum. Makroyu çalıştırdım ama sayfa 2 de sıralamıyor üstüne kaydediyor.

Sorunuzla ilgili gereken kodları #2 numaralı mesajda vermiştim. Dosyayı kodlar ilave edilmiş şekilde eklemesi için başka bir aradaştan rica ederim.

İyi çalışmalar.

 

[İhsan Tank]

Sorunuzla ilgili gereken kodları #2 numaralı mesajda vermiştim. Dosyayı kodlar ilave edilmiş şekilde eklemesi için başka bir aradaştan rica ederim.

İyi çalışmalar.

Merhaba
Ömer hocam bende 2007 mevcut dosyaları düzenledim ekliyorum. Umarım yanlış bir şey yapmamışımdır.

 

[rrrccc]

İlgilenen arkadaşlara çok teşekkür ederim halloldu şu an çalışıyor.

 

[rrrccc]

yav arkadaşlar konuyu çok uzattık özür dilerim. dün ömer arkadaşın verdiği kodları çalıştırdım fakatekteki dosyada da tarif ettiğim üzere; arşivlemek istediğim sayfadan başka bir yerden yazdırırsam boş kayıt yapıyor bakabilir misiniz?(valla acemiyiz inşallah öğreneceğiz)
Teşekkür ederim

 

[Ömer]

Kodları module kopyalayın, daha sonra sayfadaki yazıcı resminin üzerine fare ile sağ klik yapın ve "makro ata" seçeneğini seçip gelen ekrandan "YazKaydet" makrosunu seçip tamam ile işlemi bitirin.

Sub YazKaydet()
 
    Dim son As Long, S7 As Worksheet, S8 As Worksheet
     
    Set S7 = Sheets("Sayfa7")
    Set S8 = Sheets("Sayfa8")
    Application.ScreenUpdating = False
 
    S7.PrintOut
    son = S8.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    If S8.Range("A1") = "" Then son = 1
 
    S8.Range("A" & son) = son
    S7.Range("A1:B1").Copy
    S8.Range("B" & son).PasteSpecial xlPasteValues, xlNone
    Application.CutCopyMode = False
 
    S8.PrintOut
    Application.ScreenUpdating = True
 
End Sub

.

 

[rrrccc]

üstad çok teşekkür ederim.arşivlemede sorun yok fakat kod iki sayfayı da yazdırıyor sadece sayfa 7 yazmazı için hangi bölümü değiştirmeliyiz olmazsa böyle de kullanırım sorun değil ilgilendiğin için teşekkür ederim

 

[rrrccc]

tamam üstat onu da ben hallettim tekrar tekrar çok teşekkür ederim işlem bitti allah kolaylık versin