bir diziden diğer sayfaya numara sırasına göre x koydurm

[gallax]

Arkadaşlar, Bir sayfada tanımladığım Ã?1 isimli 27 satırlık dizinin içine yazılan bir değeri başka bir sayfada sıra nosuna göre uygun yere x işaretini nasıl yazdırabilirim...


dngülerle rahat yapılabiliri gibi geliyor ama yeni başladım bir türlü oluşturamıyorum.. yardımcı olursanız sevinirim.. dosyayı da ekliyorum

şimdiden teşk.

 

[veyselemre]

[vb:1:e602fe29b4]Sub aktar()
Sheets("VERİ GİRİÞİ").Select
For sut = 2 To 31
For sat = 2 To 29
If Cells(sat, sut) <> "" Then Sheets("öÐR. lİST").Cells(Cells(1, sut) + 4, Cells(sat, sut) + 3) = "x"
Next sat
Next sut
End Sub[/vb:1:e602fe29b4]

 

[gallax]

Teşekkür ederim

Sayın veyselemre Bey,

beni büük bir yükten kurtardınız elleriniz dert görmesin,sağolasınız