msg box ve hücre kopyalama

[bitmez13]

makro açılışında
MsgBox "Bugün -" & Date & Chr(10) & _
"Saat -" & Format(Now, "hh:mm") & Chr(10) & _
"Hoşgeldiniz", vbInformation, "excel.web.tr"
şeklinde makro
Bugün-01.01.2015
saat-20:00
hoşgeldiniz şeklinde açılıyor biz buna Günü nasıl ekleyebiliriz (bugün 01.01.2015 CUMA saat 20:00 hoşgeldiniz )şeklinde

2.sorum biraz karışık gibi ama şöyle izah edeyim

sayfa1 deki a2hücresinden z2 hücresine kadar
a3 hücresinden z3 hücresine kadar
a4 hücresinden z4 hücresine kadar olan verileri

makro ile
sayfa 2 deki a2 hücresinden z2 hücresine
a3 hücresinden z3 hücresine
a4 hücresinden z4 hücresine kopyalatabilirmiyim
kısaca sayfa1 deki a2den z2 ye kadar olan hücre degerlerini sayfa 2 deki a2 den z2 ye kadar olan hücrelere kopyalatmak )
her ay için puantaj yapamayı düşündüğüm için gerekli şimdiden teşekkürler

 

[systran]

MsgBox "Bugün -" & [B][COLOR="Red"]Format(Date, "dd/mm/yyyy dddd")[/COLOR][/B] & Chr(10) & _
"Saat -" & Format(Now, "hh:mm") & Chr(10) & _
"Hoşgeldiniz", vbInformation, "excel.web.tr"

 

[Orion1]

Buyurun.

Sub msgbox59()
MsgBox "Bugün " & Format(Date, "dd.mm.yyyy dddd") & " saat " & _
        Format(Now, "hh:mm") & " hoşgeldiniz.", vbOKOnly + vbInformation, "excel.web.tr"
End Sub

Sub kopyala59()
Dim sh As Worksheet, sat As Long, son As Long
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").Select
son = Cells(Rows.Count, "A").End(xlUp).Row
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A1:Z" & son).Copy sh.Range("A" & sat)
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub