bir dosyadan diğer dosyaya verileri toplu aktarma

[sungerbob34]

merabalar. ben makrolar konusunda çok tecrübesizim. yardımcı olursanız sevinrim.
elimde iki dosya var. bir dosyada veriler düzenli olarak alt alta kaydediliyor.
bu dosyada bi makro olsun istiyorum. ve bu makroyu çalıştırınca verileri diğer excel dosyasına aktarılsın istiyorum. yardımcı olabilirmisiniz.
dosyaların iksi de aynı yerde. bulunuyor. veriler.xlsx dosyası var ve orjinal.xlsx dosyası var. veriler dosyasında a,b,c,d,e,f,g,h,i sütunlarında bulunan verileri. orjinal.xlsx dosyasında (sırasıyla) a,b,f,g,h,I,j,L,m sütunlarına aktaracağım.
copy paste yapamiyorum çünkü gördüğünüz gibi arada farklı kolonlar da var.
veriler dosyasında tüm hücreler yanyana ama diğer ddosyada aralarda başka veriler var onları bozmadan makro ile yapmak istiyorum.
yardımcı olursanız sevinirim.
bu arda belriteyim. veriler dosyasındaki kayıtlar ilk satırdan başlıyor. ama orjinal dosyaya 2. satırdan itibaren yapıştırılması gerekiyor. çünkü orjinal dosyasında başlııklar da mevcut. ayrıca makro ile kopyalama esnasında hücre formatı bozulsun istemiyorum. sadece veriler taşınıp, değer olarak yapıştırılsın isitiyorum. hücre formatı falan bozulmasın istiyorum.
Not. düzenleme yapılarak kopyala yapıştır haline de gtirilebilri ama her seferinde böyel uğraşmak istemiyorum. makroyla yaparsam daha rahat olur sanırım.

Edit: ekte iki örnek dosya ekledim. veriler dosyasındaki mavi renkli alanı orjinal dosyasındaki sarı renkli alana yerleştireceğim.
ama tabi satır sayısı değşken.
yani veriler dosyasında 50 satır da olabil 50 satır da olabilr. veriler dosyasındaki 2 sütun zorunlu alan. yani boş olma ihtimali yok. o alanı baz alablirsiniz. (kaç satır veri olduğunu hesaplarken)

 

[halit3]

merabalar. ben makrolar konusunda çok tecrübesizim. yardımcı olursanız sevinrim.
elimde iki dosya var. bir dosyada veriler düzenli olarak alt alta kaydediliyor.
bu dosyada bi makro olsun istiyorum. ve bu makroyu çalıştırınca verileri diğer excel dosyasına aktarılsın istiyorum. yardımcı olabilirmisiniz.
dosyaların iksi de aynı yerde. bulunuyor. veriler.xlsx dosyası var ve orjinal.xlsx dosyası var. veriler dosyasında a,b,c,d,e,f,g,h,i sütunlarında bulunan verileri. orjinal.xlsx dosyasında (sırasıyla) a,b,f,g,h,I,j,L,m sütunlarına aktaracağım.
copy paste yapamiyorum çünkü gördüğünüz gibi arada farklı kolonlar da var.
veriler dosyasında tüm hücreler yanyana ama diğer ddosyada aralarda başka veriler var onları bozmadan makro ile yapmak istiyorum.
yardımcı olursanız sevinirim.
bu arda belriteyim. veriler dosyasındaki kayıtlar ilk satırdan başlıyor. ama orjinal dosyaya 2. satırdan itibaren yapıştırılması gerekiyor. çünkü orjinal dosyasında başlııklar da mevcut. ayrıca makro ile kopyalama esnasında hücre formatı bozulsun istemiyorum. sadece veriler taşınıp, değer olarak yapıştırılsın isitiyorum. hücre formatı falan bozulmasın istiyorum.
Not. düzenleme yapılarak kopyala yapıştır haline de gtirilebilri ama her seferinde böyel uğraşmak istemiyorum. makroyla yaparsam daha rahat olur sanırım.

Edit: ekte iki örnek dosya ekledim. veriler dosyasındaki mavi renkli alanı orjinal dosyasındaki sarı renkli alana yerleştireceğim.
ama tabi satır sayısı değşken.
yani veriler dosyasında 50 satır da olabil 50 satır da olabilr. veriler dosyasındaki 2 sütun zorunlu alan. yani boş olma ihtimali yok. o alanı baz alablirsiniz. (kaç satır veri olduğunu hesaplarken)

Veriler dosyası bu dosyanın yanında olmalı

 

[sungerbob34]

çok teşşekürler tam istediğim gibi olmuş.

 

[halit3]

çok teşşekürler tam istediğim gibi olmuş.

iyi çalışmalar

 

[sungerbob34]

küçük birşey daha rica etsem ayıp olurmu acaba. verdiğiniz makro çalıştığında öncelikle orjinal dosyada bulunan verileri silse sonra diğer dosyadakileri alsa olurmu.
yani aktar dediiğimde orjinal dosyamda bulunan eski veriler silinecek (1. satır hariç) . ve yenileri veriler.xlsx dosyasından alınacak.
mümkünmü acaba.
hatta kodları buraya yapıştırayım belki hemen üzerinde düzeltebilrsiniz.

Sub aktar()
Application.ScreenUpdating = False
eskidosya = ActiveWorkbook.Name
Klasor = ThisWorkbook.Path & "\"
Dosya = "veriler.xlsx"
Workbooks.Open (Klasor & Dosya)
yenidosya = ActiveWorkbook.Name
On Error Resume Next
Sheets(ActiveSheet.Name).Select
Set ver = Workbooks(Dosya).Sheets(ActiveSheet.Name)
sat = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range("A1:B" & sat).Copy
Windows(eskidosya).Activate
Workbooks(eskidosya).Sheets(ActiveSheet.Name).Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(yenidosya).Activate
Range("C1:G" & sat).Copy
Windows(eskidosya).Activate
Workbooks(eskidosya).Sheets(ActiveSheet.Name).Range("f2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(yenidosya).Activate
Range("H1:I" & sat).Copy
Windows(eskidosya).Activate
Workbooks(eskidosya).Sheets(ActiveSheet.Name).Range("L1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(yenidosya).Activate
ActiveWindow.Close
Range("C2").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub

Not: satırlar silinmeyecek. sadece satırların içeriği boşaltılacak. çünkü satırlardaki hücrelerin biçimlendidrme özellikleri kaybolmayacak.

 

[halit3]

Sub Aktar ()

yukarıdakinden sonra aşağıdaki kodu ekleyiniz

Range("A2:B65000").ClearContents
Range("F2:J65000").ClearContents
Range("L2:M65000").ClearContents

 

[sungerbob34]

sağolun teşekkürler.

 

[sungerbob34]

pardon çok rahatsız ettim affınıza sığınıyorum. ufak bi sorun var galiba. kopyaladıktan sonra ufak bi sorun oluşuuyor. görüntü şu şekilde

sanıyorum ki hücreiyi olduğu gibi kopyalıyor. acaba hücre kopyalamaktansa sadece hücrenin içeriğini kopyalayıp yapıştırsa olmaz mı. hani şu özel yapıştır seçeneğindeki "değerleri yapıştır" seçeneği gibi. mümkünmü acaba.
rakamları rakam olarak görmüyor ve en sona otomatik toplam çııkmıyor. sorun bu. (yeşil işaretlerden anlamışsınızdır)

 

[halit3]

2 nolu mesajdaki dosyayı yeniden güncelledim.

 

[sungerbob34]

meraba.
ekte bi dosya gönderdim. bu dosyadaki verileri diğer dosyadan aktar modülü ile alıyorum ama sorun çıkıyor. deneyeiblirseiniz sizde farkedersiniz.
bu veriler dosyasının formatını değiştiremiyoruz. o yüzden bunu makro ile alırken çözmeye çalışıyorum.
orjinal dosyada gelen verilerin toplamını aldığım bi sütun var. (ekte güncelledim) ama diğer dosyadan gelen veriler toplanmıyor. sanırım metin olarak alıyor.
tekrar ilgiiniz için teşekkkürler.

 

[halit3]

meraba.
ekte bi dosya gönderdim. bu dosyadaki verileri diğer dosyadan aktar modülü ile alıyorum ama sorun çıkıyor. deneyeiblirseiniz sizde farkedersiniz.
bu veriler dosyasının formatını değiştiremiyoruz. o yüzden bunu makro ile alırken çözmeye çalışıyorum.
orjinal dosyada gelen verilerin toplamını aldığım bi sütun var. (ekte güncelledim) ama diğer dosyadan gelen veriler toplanmıyor. sanırım metin olarak alıyor.
tekrar ilgiiniz için teşekkkürler.

ekli dosyaya bir bakınız.