basit bir cizim sorunu

[cengizcetin82]

merhaba
daha önceki konularada baktım ama uzun ve güç kodlar gördüm
bu yüzden tekrar konu açmak istedim.
yapmaya çalıştığım sayfa1 deki butona tıklayınca
sayfa2 daki hücreye ki bu hücreyi periyodik olarak değiştireceğim.(her defasında 2 sürun yana kayması ) kare çizmek.!!
ama daha sayfa2 ye çizgi bile atamıyorum.
neyi nasıl seçmem gerekiyor daha??

Private Sub cizen(aa)
Sheets("Sayfa2").Select
Sayfa2.Activate
Cells(aa, 5).BorderAround Weight:=xlThin
Sheets("Sayfa2").Select
End Sub

Private Sub CommandButton1_Click()
Sheets("Sayfa2").Select
cizen (10)
End Sub

 

[cengizcetin82]

pek anlatamadım sanıyorum.
sayfa 2 nin içeriğini ,sayfa 1 deki veri girişlerine göre değiştrimek istiyorum.
cells kullanmak istiyorum kuracağım dögüde satır sayısı sabit sütün sayısı artıcak.
ama bu halinde ise sadece sayfa 1e çizim yapıyor.
sayfa2 yi seçtiğim halde.!!!
lütfen yardım edin. nasıl yapabilirim bunu???