çalışma kitapları arası veri aktarımı

[bkadri]

arkadaşlar sayfalar arası veri aktarımını yaptım ama birtürlü çalışma kitapları arasında veri aktarımı yapamadım. Sorum şu;

Kitap1 sayfa1 deki c2,c3,c4,c5 hücrelerine girilen bilgileri bir buton yardımı ile kitap2 sayfa1 deki b2,c2,d2,e2, sütunlarına aktaracak ve her seferinde bir alttaki satıra yazacak. database gibi olacak..ilginize teşekür ederim.

 

[serkankeser]

Merhaba

aşağıdaki linki inceleyin

http://www.excel.web.tr/showthread.php?t=20244

 

[necip54]

Sayın Serkan Keser, verdiğiniz linkteki örneği inceledim. Aynı kitapta 2 sayfa arasında veri aktarma işlemi 1.sayfasına G kolonuna TOPLAM diye bir kolon ekleme yapmak istersek makrodaki değişikliğin nasıl olması lazım?

Teşekkürler,

 

[bkadri]

yanıt

daha önce de incelemiştim ama orda üç sutana atıryor ben onu bir sutun daha rattırmak istiyorum..

 

[serkankeser]

Merhaba;
Ekle/Ad/Tanımla sekmesinden alanı istediğiniz gibi ayarlayabilirsiniz.
Herkese iyi çalışmalar.

 

[necip54]

Teşekkürler Sayın Serkan bey.

 

[serkankeser]

Rica ederim Necip Bey.
Asıl teşekkürü Excel Web Tr' ye ve bilgilerini bizlerle hiç bir karşılık beklemeden paylaşan değerli site sorumlularına etmemiz gerekiyor sanıyorum.
Teşekkürler Excel Web Tr ailesi.
Herkese hayırlı günler.

 

[bkadri]

altarnatif kod

teşekür ederim. isteğim oldu. Ayrıca elimde başka bir kod daha var buraya ekliyorum ilgilenen arkadaşlar olura duyurulur..İsteğin bir excel sayfasından başka bir çalışma kitabına veri atar..

Sub databaseyeaktar()
Set s1 = Sheets("sayfa1")

Workbooks.Open Filename:="d:\database1.xls"
SON = [A65536].End(3).Select
If ActiveCell.Address = "$A$1" Then
ActiveCell.Offset(1, 0).Select
ActiveCell = 1
Else
ActiveCell.Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = s1.[C2]
ActiveCell.Offset(0, 2).Value = s1.[C3]
ActiveCell.Offset(0, 3).Value = s1.[C4]
ActiveCell.Offset(0, 4).Value = s1.[C5]
ActiveCell.Offset(0, 5).Value = s1.[C6]
[A1].Select
Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[s1].Select

End Sub

 

[caylakmuhendis]

teşekür ederim. isteğim oldu. Ayrıca elimde başka bir kod daha var buraya ekliyorum ilgilenen arkadaşlar olura duyurulur..İsteğin bir excel sayfasından başka bir çalışma kitabına veri atar..

Sub databaseyeaktar()
Set s1 = Sheets("sayfa1")

Workbooks.Open Filename:="d:\database1.xls"
SON = [A65536].End(3).Select
If ActiveCell.Address = "$A$1" Then
ActiveCell.Offset(1, 0).Select
ActiveCell = 1
Else
ActiveCell.Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = s1.[C2]
ActiveCell.Offset(0, 2).Value = s1.[C3]
ActiveCell.Offset(0, 3).Value = s1.[C4]
ActiveCell.Offset(0, 4).Value = s1.[C5]
ActiveCell.Offset(0, 5).Value = s1.[C6]
[A1].Select
Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[s1].Select

End Sub

sevgili bkadri kodu inceledim fakat kendi koduma bir türlü implement edemedim. User1.xlsm isimli çalışma kitabım var ve D:\TimeTracking\Master.xlsm dosya yoluna sahip Master.xlsm çalışma kitabım var. User1 çalışma kitabında A-I sütun aralığını (A ve I dahil) 6. satırdan itibaren Master.xlsm çalışma kitabının B ve J sütunları arasına 2. satırdan itibaren aktarmasını istiyorum. nasıl düzenleyebilirim kodu ?

 

[bkadri]

Valla kardeş 10 yıl olmuş o zaman uğraşıyordum çalışıyordu şimdi birçoğunu ben bile unuttum eski kayıtlarıma bir bakım vaktim olursa sizde buraya örnek bir dosya yükle.

 

[caylakmuhendis]

güncel konular arasında konuyla bu kadar yakından alakalı hiç bir entry bulamadım maalesef. yeni entry açtığımda da ilgilenen çıkmadı, eğer geriye dönüp anımsayabilmeye vaktiniz olursa bilgilendirmenize çok ihtiyacım var, çok sevinirim.

iyi çalışmalar,

 

[Hepgel]

Merhaba Arkadaşlar konu eski ama
Flash belleğimin belli yerlerde 2 adet excel dosyası var 1. rapordur. 2. ise günlük hazırlanacak rakamlardır.
1. excelde düzenlediğimiz rakamlar ikinci exceldeki yerlere,ve sütunlere nasıl aktarılabilir.
Konu hakkında yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

İki dosya arasında veri almak için en basit yöntem iki dosyayı açıp hücrede eşittir işaretini yazıp diğer dosyaya tıklayıp istenilen sayfanın istenilen hücresini seçmektir.

Bu durumda aşağıdaki gibi bir formül oluşur.

='[Kitap1.xlsx]Sayfa1!'A1

Bunun dışında arama fonksiyonları kullanılabilir. Ya da kod ile veri aktarımı yapılabilir.