yazdirma alanini her severde yedeklemek

[dennisf06]

merhaba,

sayfa1 de A2 ile D6 arasinin ciktisini buton yardimiyla aliyorum. her cikti aldiktan sonra bu bilgileri sayfa 2 de yedekleyebilirmiyim. asagidaki kodu cikti almak icin kullaniyorum.tesekkürler.

Sub YAZ()
[D13] = Time
Sheets("Sayfa1").Range("A26").PrintOut

End Sub


http://s2.dosya.tc/server3/phvofo/Ornek-1.rar.html

 

[Necdet]

Merhaba,

2. sayfadaki örneğiniz pek anlaşılmıyor. A2 : D6 hücrelerinin tamamının dolu olması durumunda durum ne olacak?

 

[dennisf06]

merhaba Necdet hocam,

A26 arasinda bos olan diger hücreler aslinda sabit. söyle bir örnek vereyim. üretim günü : 04.12, üretilen mamül : masa ....gibi. yani harflerle belirtmis oldugum kisimlar degisken. her seferinde tarih ve masa yi degistiriyorum. umarim aciklayici olmustur.

 

[dennisf06]

merhaba,

örnek dosyayi biraz detaylandirdim. umaim aciklayici olur.

http://s3.dosya.tc/server9/vv13w9/Ornek-1.rar.html

 

[YUSUF44]

Kodu aşağıdaki gibi deneyin:

Sub YAZ()
[D6] = Time
Sheets("Sayfa1").Range("A2:D6").PrintOut
yeni = Sheets("Sayfa2").Cells(Rows.Count, "B").End(3).Row + 1
Sheets("Sayfa2").Cells(yeni, "A") = yeni - 1
Sheets("Sayfa2").Cells(yeni, "B") = [A2]
Sheets("Sayfa2").Cells(yeni, "C") = [B3]
Sheets("Sayfa2").Cells(yeni, "D") = [B4]
Sheets("Sayfa2").Cells(yeni, "E") = [B5]
Sheets("Sayfa2").Cells(yeni, "F") = [B6]
Sheets("Sayfa2").Cells(yeni, "G") = [D6]
Sheets("Sayfa2").Cells(yeni, "D").NumberFormat = "dd/mm/yyyy"
Sheets("Sayfa2").Cells(yeni, "E").NumberFormat = "dd/mm/yyyy"
Sheets("Sayfa2").Cells(yeni, "F").NumberFormat = "hh:dd"
Sheets("Sayfa2").Cells(yeni, "G").NumberFormat = "hh:dd"
End Sub

 

[dennisf06]

yusuf hocam tesekkürler. her sey tam istedigim gibi ancak saatleri sayfa 2 aktarinca yuvarliyor. yani 09:05 sayfa 2 de 09:00 olarak, 12:47 sayfa2 ye 12:00 olarak aktariliyor. sayfa 2 de hücre bicimini saat olarak degistirdim yine olmadi.

 

[dennisf06]

merhaba,

"hh:dd" yi "hh:mm" olarak degistirdim, sorun yok. cok tesekkür ederim emeklerinize saglicakla kalin.