Arkadaşlar Sheet içine bir hücredeki değeri atayabilir miyim?

[casper--18]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer

For x = 1 To 20
Sheets("Sayfa2").Cells(x, 1).Value = Sheets("Sayfa1").Cells(x, 1).Value
Next x

End Sub



Bu komutta arkadaslar Sheets("Sayfa2") değilde Sheets(A1) gibi bir şey istiyorum olur mu?

 

[idogus]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer

For x = 1 To 20
Sheets(Sheets("Sayfa1").Range("A1")).Cells(x, 1).Value = Sheets(Sheets("Sayfa1").Range("B1")).Cells(x, 1).Value
Next x

End Sub