veri aktarmak için gerekli kod

[microaim]

değerli arkadaşlar;
yapmak istediğim şeyi ekteki dosyada anlatmaya çalıştım.yardımlarınız için şimdiden çok teşekkürler...

 

[SUMIF]

Sub Düğme1_Tıklat()
If ActiveCell.Column = 1 Then
Sheets("sayfa2").Range("c4") = ActiveCell
Sheets("sayfa2").Range("c5") = ActiveCell.Offset(0, 1)
Sheets("sayfa2").Range("c6") = ActiveCell.Offset(0, 2)
Sheets("sayfa2").Range("c7") = ActiveCell.Offset(0, 3)
Sheets("sayfa2").Range("c8") = ActiveCell.Offset(0, 4)
Sheets("sayfa2").Range("c9") = ActiveCell.Offset(0, 5)
Else
MsgBox "lütfen abone numarası seçiniz"
End If

yada

Sub Düğme1_Tıklat()
If ActiveCell.Column = 1 And ActiveCell > Empty Then
ActiveSheet.Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
Selection.Copy
Sheets("Sayfa2").Select
Range("c4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Else
MsgBox "lütfen abone numarası seçiniz"
End If
End Sub

 

[microaim]

hocam çok teşekkür ederim.Allah razı olsun