Veri Aktar Macrosu

[1Al2Ver]

Değerli üye arkadaşlarım, iyi akşamlar,

Ek'li dosyamda veri aktarma gerektiren bir çalışmam var, arzulanan işlem ;

Günlük isimli dosyadan ; 16 sayfaya veri aktarılacak,

Aylık isimli dosya ; 16 sayfadan toplam veri alacak,

Teşekkür ederim, saygılarımla.

 

[Levent Menteşoğlu]

Günük sayfasındaki butona aşağıdaki kodu,

Sub veriaktar()
On Error Resume Next
For sut = 3 To 18
Set s1 = Sheets("" & Cells(3, sut))
sutun = WorksheetFunction.Match([b1], s1.Rows(2), 0)
Range(Cells(4, sut), Cells(23, sut)).Copy s1.Cells(4, sutun)
Next
End Sub

Aylık sayfasındaki butonada aşağıdaki kodu bağlayın.

Sub verial()
On Error Resume Next
For sut = 3 To 18
Set s1 = Sheets("" & Cells(3, sut))
Range(Cells(4, sut), Cells(23, sut)).Copy s1.[ah4]
Next
End Sub

 

[1Al2Ver]

Aylık sayfasındaki butonada aşağıdaki kodu bağlayın.

Sub verial()
On Error Resume Next
For sut = 3 To 18
Set s1 = Sheets("" & Cells(3, sut))
Range(Cells(4, sut), Cells(23, sut)).Copy s1.[ah4]
Next
End Sub

[/QUOTE]

Sayın Levent Menteşoğlu, merhaba,

Öncelikle cevap için teşekkür etmek istiyorum, sağolun, varolun,

Aktarma kodunda sorun yok,

"verial" kodunu Aylık sayfasına kayıt ettim, ancak Öğle:Salatbar4 sayfalarındaki AH4'teki toplama yapan formül siliniyor, dolayısı ile verialmak mümkün olamıyor,

İlginiz için şimdiden teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Hayırlı sabahlar, proje yarım kaldı, tamamlamak mümkün mü acaba, emeği geçenlere teşekkür ederim, saygılarımla.

 

[baranseren]

Sayın 1Al2Ver ;

Dediğiniz gibi kodları inceledim fakat beklentiniz ile yapmak istediğiniz uymuyor yani kopyalama yaparken bi hücre üzerine yapıştır derseniz formüller zaten silinecektir. bu durumda iki alternatif var o alanın formül değerini ayrıca kopyalayacak ve yapıştıracaksınız ki bu durumda da kopyaladığınız önceki veriyi yapıştırdığınız veri de ilgili hücrede olması gereken dışarı taşacaktır.

 

[1Al2Ver]

Sayın 1Al2Ver ;

Dediğiniz gibi kodları inceledim fakat beklentiniz ile yapmak istediğiniz uymuyor yani kopyalama yaparken bi hücre üzerine yapıştır derseniz formüller zaten silinecektir. bu durumda iki alternatif var o alanın formül değerini ayrıca kopyalayacak ve yapıştıracaksınız ki bu durumda da kopyaladığınız önceki veriyi yapıştırdığınız veri de ilgili hücrede olması gereken dışarı taşacaktır.

Sayın baranseren, ilginiz için teşekkür ederim, veri aktar butonu sınırlı sütunları aktarırken, veri al butonu öğle, akşam ... gibi sayfalardaki AH4, AH5, AH6 .. gibi satırları Aylık sayfası C4'ten itibaren ilgili sayfalardaki hücrelere kod ile sıralayabilse (yani bir nevi ters işlem) güzel ve çabuk olurdu,
malumunuz yapıştırılan hücre ile çağrılan hücreler ve içerdiği değerler farklı aslında ama kodda sanki bir eksik var, ilginize tekrar teşekkür ederim, saygılarımla.

 

[1Al2Ver]

İyi geceler, yarım kalan proje için bir çözüm üretmek mümkün mü acaba, emeği geçenlere teşekkür ederim, saygılarımla.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub verial()
Application.ScreenUpdating = False
For sut = 3 To 18
Set s1 = Sheets("" & Cells(3, sut))
s1.Range("ah4:ah23").Copy
Cells(4, sut).PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Sub

 

[1Al2Ver]

Aşağıdaki kodu deneyin.

Sub verial()
Application.ScreenUpdating = False
For sut = 3 To 18
Set s1 = Sheets("" & Cells(3, sut))
s1.Range("ah4:ah23").Copy
Cells(4, sut).PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Sub

Sayın Levent Menteşoğlu, elinize sağlık, işlem tamamdır, sevgi ve saygılarımla teşekkür ederim.