Hücredeki Verileri Kapalı Dosyaya

[3641]

Sitedeki var olan örnekleri incelememe rağmen doğru çözümü bulamadım yardımcı olursanız sevinirim,

Yapmaya çalıştığım TextBox kullanmadan A. kitabında hücrelerde bulunan değerleri B. Kitabına kaydettirmek .


İlgili arkadaşlara şimdiden teşekkür ederim.

Saygılarımla,

 

[Husgvarna]

Sitedeki var olan örnekleri incelememe rağmen doğru çözümü bulamadım yardımcı olursanız sevinirim,

Yapmaya çalıştığım TextBox kullanmadan A. kitabında hücrelerde bulunan değerleri B. Kitabına kaydettirmek .

"A.xls" dosyanızın "Aktar" butonundaki kodu şöyle değiştirip deneyin.:
("A.xls"; "B.xls" dosyasının yanında, yani aynı klasörde)

Sub aktar_1()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Button 1").Placement = xlFreeFloating
a = Cells(65000, 1).End(xlUp).Row
Sheets("Sayfa1").Rows("2:" & a).Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xls"
Workbooks("B.xls").Sheets("Sayfa1").Select
b = Workbooks("B.xls").Sheets("Sayfa1").Cells(65000, 1).End(xlUp).Row
Workbooks("B.xls").Sheets("Sayfa1").Rows(b + 1 & ":" & b + a).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ActiveWorkbook.Close Save = False
Application.ScreenUpdating = True
MsgBox "Kayıt yapıldı"
End Sub

 

[3641]

Sayın Husgvarna ilgin için teşekkür ederim ama sorunumu yanlış aktardım galiba,

A Kitabındaki bilgiler kitabın içindeki hiyerarşiye sahip olmak kaydı ile değişiklik gösteriyor.

A. kitabındaki verileri her aktar dediğimde b.Kitabındaki en son kaydın altına eklemeli.

Yardımcı olursanız sevinirim.

 

[Husgvarna]

Merhaba.
Yukarıdaki kodlar değişti denermisiniz?

 

[3641]

Sayın Husgvarna,
Tam istediğim sonucu veriyor ilgin ve yardımların için teşekkür ederim.

Saygılarımla,

 

[Husgvarna]

Sayın Husgvarna,
Tam istediğim sonucu veriyor ilgin ve yardımların için teşekkür ederim.

Saygılarımla,

Rica ederim.Kolay gelsin.