ActiveCell Yardım

[mertex]

Sayfa 1 deki activecell deki veriyi butona tıkladığımda Sayfa 2 deki active cell içersine nasıl yazdırabilirim...

 

[peleryn]

Merhabalar;

Sayfa1 in kod bölümüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="aktif", RefersTo:=Target
End Sub

Sayfa2'deki butona da:

Private Sub CommandButton1_Click()
ActiveCell.Value = Sheets("Sayfa1").Range("aktif")
End Sub

kodlarını yazarak deneyin..