sayfa1 den sayfa 2 ye veri aktarımı

[airborne]

sayfa1 de bulunan isimlerin karşısındaki kesinti miktarlarını sayfa2 ye aktarmak istiyorum. aktar butonuna bastığımda önce hangi aya aktaracağımı sorsun. daha sonrada sayfa2 deki isimlerin karşısına sayfa1 deki kesinti miktarlarını aktarsın istiyorum ama bir türlü yapamadım. yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ad3872c707]Sub aktar()
On Error Resume Next
Set s1 = Sheets("sayfa2")
ayadi = InputBox("AY ADINI YAZINIZ")
If ayadi = "" Then Exit Sub
sut = WorksheetFunction.Match(ayadi, s1.[c1:n1], 0) + 2
For a = 2 To [b65536].End(3).Row
sat = WorksheetFunction.Match(Cells(a, "b"), s1.[b2:b65536], 0) + 1
s1.Cells(sat, sut) = Cells(a, "c")
Next
End Sub
[/vb:1:ad3872c707]

 

[damra2005]

Yanyana üç ssütunu aktarmak için ne gibi değiyşiklik yapmalıyım. leventm hocam