• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücredeki Verileri Kapalı Dosyaya

  • Konbuyu başlatan Konbuyu başlatan 3641
  • Başlangıç tarihi Başlangıç tarihi

3641

Altın Üye
Katılım
22 Mayıs 2006
Mesajlar
134
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,
 

Ekli dosyalar

  • ADO.rar
    ADO.rar
    13.8 KB · Görüntüleme: 16
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)
Kod:
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
 
Son düzenleme:
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.
 
Sayın Husgvarna,
Tam istediğim sonucu veriyor ilgin ve yardımların için teşekkür ederim.

Saygılarımla,
 
Geri
Üst