ikinci excel dosyasından birinci excel dosyasına veri aktarımı

[ikgero]

Arkadaşlar Merhaba,

Foruma yeni katıldım ve de bu excel konusunda acemi olduğumdan dolayı konuyu doğru yere açamamış olabilirim, kusuruma bakmayın.

Firmadaki personelin aylık akaryakıt tüketim giderlerinin raporlarını (plaka ve tüketim tutarı) excel ortamında indiriyorum. Daha sonra kendi düzenlediğim başka bir excel dosyasına bu verileri tek tek giriyorum ve çok fazla zaman kaybediyorum (benim hazırladığım excel dosyasında plaka ve tutarın yanına kullanıcı adı ekli). Her ay bu işlemi tekrarlıyorum. Size sorum; indirdiğim rapordan tüketim giderlerini kendi hazırladığım excele plakalara göre aktarabilir miyim (muhtemelen evet) ve bunu nasıl yapabilirim. İlginiz için şimdiden teşekkür ederim.

Özgür..

 

[mbldn]

Arkadaşlar Merhaba,

Foruma yeni katıldım ve de bu excel konusunda acemi olduğumdan dolayı konuyu doğru yere açamamış olabilirim, kusuruma bakmayın.

Firmadaki personelin aylık akaryakıt tüketim giderlerinin raporlarını (plaka ve tüketim tutarı) excel ortamında indiriyorum. Daha sonra kendi düzenlediğim başka bir excel dosyasına bu verileri tek tek giriyorum ve çok fazla zaman kaybediyorum (benim hazırladığım excel dosyasında plaka ve tutarın yanına kullanıcı adı ekli). Her ay bu işlemi tekrarlıyorum. Size sorum; indirdiğim rapordan tüketim giderlerini kendi hazırladığım excele plakalara göre aktarabilir miyim (muhtemelen evet) ve bunu nasıl yapabilirim. İlginiz için şimdiden teşekkür ederim.

Özgür..

merhaba;
gerçek olmayan verilerle küçük bir örnek çalışma ekleyin
sanıyorum halledilebilir bir durum

 

[ikgero]

Merhaba,

İlginize teşekkür ederim. İki dosya ekledim, rapor yazandan (rapor dosyasında daha fazla veri var ama ben diğer kısımları kırpıyorum sadece plaka ve tutar kalıyor) asıl dosya yazana plakaya göre ilgili ayın (her ay tek bir önceki ayın raporunu alabildiğimden plakanın yanında herhangi bir kutucuğa aktarabilirsem gerisini manuel de yapabilirim) tutar kısmını aktarmak istiyorum.



Tekrar teşekkür ederim.

Özgür..

 

[ikgero]

Yok mu yardım edebilecek kimsee..:frown:

 

[ikgero]

yardım edebilecek kimse????

 

[nsertoglu]

Asıl yazacağınız dosyada bir makro ekleyin ve içine aşağıdaki kodu yerleştirerek F8 tuşuna basa basa adım adım çalışmasını izleyin (umarım doğru anlamışımdır):

Sub Plk_bakiye()
Workbooks("asıldosya1").Activate
Sheets("Sheet1").Select
Cells(Rows.Count, "e").Select
srA = Selection.End(xlUp)
ayno = InputBox("İşlenecek Ayın Numarasını verin", "Ay Numarası", 1)
If ayno = 0 Then End

Workbooks("rapordosyası").Activate
Sheets("Sheet1").Select
Cells(Rows.Count, "a").Select
Sr = Selection.End(xlUp).Row
Cells(2, 1).Select
For r = 2 To Sr
Workbooks("rapordosyası").Activate ' dosya isimlerini siz verin
Sheets("Sheet1").Select ' sayfa isimlerini siz verin
' İşlenecek Ay içinde 06 ABC 06 plakası için TEK kayıt olmalı
plk = Cells(r, "A")
Bky = Cells(r, "B")
Workbooks("asıldosya1").Activate ' dosya isimlerini siz verin
Sheets("Sheet1").Select ' sayfa isimlerini siz verin
Cells(Rows.Count, "e").Select
srA = Selection.End(xlUp)
For rA = 2 To srA
If Cells(rA, "E") = plk Then
Cells(rA, "E").Select ' aylar F kolonundan itibaren başlıyorsa
Cells(rA, 5 + ayno).Select ' yazılacak ay kolonuna gel
Cells(rA, 5 + ayno) = Bky
rA = Rows.Count + 1
End If
Next rA
Next r
End Sub