sayfa1 deki veriyi kapalı bir excel dosyasına yazdırmak kod var bakarmısınız

[dreamymost]

arkadaşlar (Veri.xls ) içindeki Anasayfa 'da tablo var A3 ile I3 arasındaki bilgileri

aynı klasörde olan oku.xls nin içinde sayfa 1 yan yana kaydetmek istiyorum..


Sub save()
Sheets("Anasayfa").Select
Range("A3:I3").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open "c:\oku.xls"
Sheets("sayfa1").Select
Range("a1:a9").Select
ActiveSheet.Paste
ActiveWindow.Close
Range("a26").Select
Application.CutCopyMode = False
End Sub



Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True


arkadaşlar kodları buldum bunları bi ama ekleyemedim çalıştıramadım yardımcı olurmusunuz bir örnek xls yapıp eklermisiniz ?

 

[İhsan Tank]

arkadaşlar (Veri.xls ) içindeki Anasayfa 'da tablo var A3 ile I3 arasındaki bilgileri

aynı klasörde olan oku.xls nin içinde sayfa 1 yan yana kaydetmek istiyorum..


Sub save()
Sheets("Anasayfa").Select
Range("A3:I3").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open "c:\oku.xls"
Sheets("sayfa1").Select
Range("a1:a9").Select
ActiveSheet.Paste
ActiveWindow.Close
Range("a26").Select
Application.CutCopyMode = False
End Sub



Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True


arkadaşlar kodları buldum bunları bi ama ekleyemedim çalıştıramadım yardımcı olurmusunuz bir örnek xls yapıp eklermisiniz ?

merhaba
sizin kodunuz çalışıyor ufak bir değişiklikle istediğiniz Sonuca Ulaştım

Sub save()
Sheets("Anasayfa").Select
Range("[COLOR="Red"]A3:I13[/COLOR]").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open "[COLOR="red"]D:\ihsan\oku.xls[/COLOR]"
Sheets("sayfa1").Select
Range("[COLOR="red"]A1:I11[/COLOR]").Select
ActiveSheet.Paste
ActiveWindow.Close
MsgBox "oku.xls Dosyasına Kayıt Yapılmıştır", , "www.excel.web.tr"
End Sub

kırmızı olan yerleri kendinize göre uyarlayınız.
örnek dosya ekte

 

[dreamymost]

çok teşekkürler hocam

 

[İhsan Tank]

çok teşekkürler hocam

rica ederim
iyi çalışmalar :mutlu:

 

[dreamymost]

Hocam bu verdiğiniz örneği biraz daha geliştirip A3 ile A13 ve I3 ile I13 arasındaki bütün bilgileri nasıl kaydedebiliriz ? nasıl bi kod eklemesi yapıcaz ?

 

[İhsan Tank]

Hocam bu verdiğiniz örneği biraz daha geliştirip A3 ile A13 ve I3 ile I13 arasındaki bütün bilgileri nasıl kaydedebiliriz ? nasıl bi kod eklemesi yapıcaz ?

mesajımı güncelledim lütfen tıklayın

 

[dreamymost]

tşkler hocam

 

[İhsan Tank]

tşkler hocam

rica ederim
iyi çalışmalar :mutlu: