İşlemleri Lsite şeklinde kaydet Makrsou

[ErcumentaL]

MErhaba;

Excelde evrak yazdırma işlemi yapıyorum. Yazdır butonuna (CommandButton) basdığımda
Sayfa 1'de b4 DEKİ BİLGİLER Sayfa 2 de a1 HÜCRESİNE
Sayfa 1'de e11 DEKİ BİLGİLER- Sayfa 2 de b1 HÜCRESİNE
Sayfa 1'de I15 DEKİ BİLGİLER- Sayfa 2 de c1 HÜCRESİNE

SAYFA 2 D satırınada Yazdır işlemi yapılan tarih ve saat bilgisi

bilgerin kaydedilmesini, ve sonraki yazdırmamda da bir alt satıra atlayarak devam etmesini istiyorum.

Bu şekilde yaptığım işlemlerin kontrol edilmesi ve arşivlenmesini planlıyorum.
Bir kaç kod araştırdım ama istediğim sonuca ulaşamadım yarıdımcı olabilecek arkadaş varmı acaba ?

http://dosya.web.tr/N2brJN

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırın ve sayfadaki düğmeye bu kod'u bağlayın.

Sub BARAN()
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")

s2.Cells(s2.[A65536].End(3).Row + 1, 1) = s1.Cells(4, 2)
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(11, 5)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(15, 9)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = Now

End Sub

 

[ErcumentaL]

Merhaba.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırın ve sayfadaki düğmeye bu kod'u bağlayın.

Sub BARAN()
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")

s2.Cells(s2.[A65536].End(3).Row + 1, 1) = s1.Cells(4, 2)
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(11, 5)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(15, 9)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = Now

End Sub

Sn. omer.baran
Yardımıznız için teşekkür ederim Elinize Sağlık.
Acaba Kaydetme işlemini Sayfa2 ye değilde Kapalı olan başka bir excel sayfasına kaydı mümkün olurmu ?

 

[Ömer BARAN]

Kapalı dosyaya veri yazma olayıyla hiç ilgilenmedim, forumda arama yapmanızı öneririm.