zamana bağlı copy-paste

[zaxaza]

bu örneği süreyle değil de düğmeye tıklatıldığında alta atan bir makro yapabilir miyiz?yardımcı olabileceklere şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Birinci sayfada en son eklenmiş olan "zaman5" isimli dosyadaki "Başlat" butonuna bağlı kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:0793b87bde]Sub ekle()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("liste")
sat = WorksheetFunction.CountA(s2.[a3:a65536])
s2.Cells(sat + 3, 1) = Format(Date, "dd mmmm yy")
s2.Cells(sat + 3, 2) = Format(Now, "hh:mm")
For a = 1 To 5
s2.Cells(sat + 3, a + 2) = s1.Cells(1, a).Value
Next
End Sub[/vb:1:0793b87bde]

 

[zaxaza]

teşekkürler sn. leventm, istediğim gibi oldu. iyi çalışmalar...

 

[fildekoz]

Satırları boşluksuz yazdırma

mERHABA aRKADAŞLAR.
Ekteki dosya hakkında yardımcı olabilir msiniz.. sutundaki satırları boşluksuz olarak diğer bir sutuna yazdıracak.
simdiden tsk ederim.