makro ile sayfa yazdırma

[fildekoz]

MErhaba Değerli arkadaşlar ;

Ekteki dosya hakkında yardımlarınızı rica ediyorum. dosyanın içeriğinde açıklama mevcuttur.

simdiden tsk ederim.

 

[fildekoz]

konu ile ilgili yardımcı olacak arkadaş yok mu ?

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub aktar()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    sonsat_1 = s1.Range("a65536").End(3).Row
    sonsat_2 = s2.Range("a65536").End(3).Row

For i = 2 To sonsat_1
s1.Range("a" & i & ":" & "n" & i).Copy s2.Range("a" & sonsat_2 + 1)
sonsat_2 = sonsat_2 + 1
Next
MsgBox "bittim..."
End Sub

 

[fildekoz]

çook tşk ederim.
emeğine sağlık.
kod istediğim işi yapıyor. bir şey daha sormak istiyorum. ağ üzerinden birden fazla pc aynı dosyaya ekleme yaptırabilir mi ?? ekleme sayfa 2 ye değil de ortak kullanılan bir dosyaya yapılabilir mi? ağ üzerindeki bir pc makroyu çalıştırdığında aynı formattaki verileri ortak bir dosyaya nasıl yazıdrabiliriz ?? buna da yardımcı olabilirseniz çok makbule geçecek.
simdiden tsk ederim.

 

[fildekoz]

merhaba

bu kod işinizi görür mü?

Sub aktar()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    sonsat_1 = s1.Range("a65536").End(3).Row
    sonsat_2 = s2.Range("a65536").End(3).Row

For i = 2 To sonsat_1
s1.Range("a" & i & ":" & "n" & i).Copy s2.Range("a" & sonsat_2 + 1)
sonsat_2 = sonsat_2 + 1
Next
MsgBox "bittim..."
End Sub

bu kod sayfanın tümündeki veriyi diğer sayfaya ekliyor. ama bana lazım olan a2 hücresi ile n26 hücresi arasındaki dolu kayıtlar.. bunu nasıl yapabiliriz ? yardımcı olursanız cok sevınırım.

 

[12SubaT]

hocam verdiğiniz kodu benim dosyaya uyarlama imkanımız varmı acaba?Sorumu yazmıştım aşağıdaki linkte.değişiklik yaparsak benim işimide görecek gibi.yardımcı olabilir misiniz acaba?
http://www.excel.web.tr/f14/dioer-sayfalardan-veri-ekme-t93469.html#post510556

 

[fildekoz]

bu kod sayfanın tümündeki veriyi diğer sayfaya ekliyor. ama bana lazım olan a2 hücresi ile n26 hücresi arasındaki dolu kayıtlar.. bunu nasıl yapabiliriz ? yardımcı olursanız cok sevınırım.

Merhaba;

belirttiğim aralık için kodu düzenledim. bir sıkıntım kaldı. kayıt edilen satırları aynı sayfada değil de başka bir excel dosyasının sayfasına eklemek istiyorum. sanırım shell ile yapılacak da nasıl yapılacak yardımcı olabilir msiniz ??