a8 hücresindeki değer Sayfa 2 deki hücrenin sütun değeri olsun

[Emre_07]

Bir makro yapmaya çalışıyorum yapmayı denedim ama olmadı

mesela sayfa 1 (8,1) hücresinde 5 yazıyor Sayfa 2 de (8,x) x değeri sayfa birdeki (8,1) hücresnin değeri olsun ve sayfa 2 de (8,x) hücresini siyaha boyasın

Dim i As Integer
Dim a As Range
Dim b As Range
i = 1
Do While i > 11
Set a = Cells(i, 1)
Sayfa2.Select
Set b = Cells(i, a.Value)
b.Interior.ColorIndex = 1
i = i + 1
Loop

Bu kodu yazdım ama hiç bişey yapmıyor hata vermiyor

 

[Korhan Ayhan]

Merhaba,

Ne yapmak istediğinizi açık olarak yazarsanız yardımcı olabiliriz. Verdiğini kodda renklendirmeyle ilgili bir bölüm yok.

Do While döngüsünden kaynaklı sorun yaşıyorsunuz. Aşağıdaki gibi deneyin.

Do While i < 11

 

[YUSUF44]

Sayfa2'de çu kodları kullanınca sayfa1'in A8 hücresine göre sayfa2'nin x8 hücresini siyaha boyuyor. Ancak bir öncekini boşaltmıyor. Ona göre değişiklik yapılırsa işinizi görebilir:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = Sayfa1.Cells(8, 1).Value
Sayfa2.Cells(8, i).Interior.ColorIndex = 1
End Sub

 

[Emre_07]

Teşekkür ederim

sizin yazdığınız kod işimi gördü hatta bunu döngü şekline getirdim

Dim i As Integer
Dim ı As Integer
ı = 1
Do While ı < 12
i = Sayfa1.Cells(ı, 1).Value
Sayfa2.Cells(ı, i).Interior.ColorIndex = 1
ı = ı + 1
Loop