renge göre atama yapma

[seyficetin]

arkadaşlar,

kullandığım bir tabloda hücrelerde farklı renkler var:
sarı-yeşil-kırmızı-mavi
bu renklere göre hücrelere rakam ataması yapacağım.

örneğin:
hücre sarı ise yanındaki hücreye 1 yazılacak
hücre yeşil ise yanındaki hücreye 2 yazılacak
hücre kırmızı ise yanındaki hücreye 3 yazılacak
hücre mavi ise yanındaki hücreye 4 yazılacak

daha sonra bu rakamları matemetiksel işlemlerde kullanacağım.

yardım rica ediyorum

 

[muygun]

Merhaba;
Örnek uygulamaya gerek görmediğinize göre sanırım kodların gereğini yaparsınız.

Sub Renk_yazz()
For k = 1 To 1000
If Cells(k, 1).Interior.ColorIndex = 6 Then Cells(k, 2) = "sarı"
If Cells(k, 1).Interior.ColorIndex = 4 Then Cells(k, 2) = "yeşil"
If Cells(k, 1).Interior.ColorIndex = 3 Then Cells(k, 2) = "kırmızı"
If Cells(k, 1).Interior.ColorIndex = 5 Then Cells(k, 2) = "mavi"
Next k
End Sub

Siz sarı , yeşil vs.. yazan yerlere gereken rakamı yerleştirin.

İyi çalışmalar.

 

[turist]

Merhaba;
Örnek uygulamaya gerek görmediğinize göre sanırım kodların gereğini yaparsınız.

Sub Renk_yazz()
For k = 1 To 1000
If Cells(k, 1).Interior.ColorIndex = 6 Then Cells(k, 2) = "sarı"
If Cells(k, 1).Interior.ColorIndex = 4 Then Cells(k, 2) = "yeşil"
If Cells(k, 1).Interior.ColorIndex = 3 Then Cells(k, 2) = "kırmızı"
If Cells(k, 1).Interior.ColorIndex = 5 Then Cells(k, 2) = "mavi"
Next k
End Sub

Siz sarı , yeşil vs.. yazan yerlere gereken rakamı yerleştirin.

İyi çalışmalar.

Sayın muygun,
Önerdiğiniz kodun uygulandığı örnek bir sayfada bütün sütunlar için istenilen sonucu alamadım.(Eklidir)
İncelerseniz, belki çözüm bulunabilir.
Teşekkürler.

 

[turist]

Merhaba;
Örnek uygulamaya gerek görmediğinize göre sanırım kodların gereğini yaparsınız.

Sub Renk_yazz()
For k = 1 To 1000
If Cells(k, 1).Interior.ColorIndex = 6 Then Cells(k, 2) = "sarı"
If Cells(k, 1).Interior.ColorIndex = 4 Then Cells(k, 2) = "yeşil"
If Cells(k, 1).Interior.ColorIndex = 3 Then Cells(k, 2) = "kırmızı"
If Cells(k, 1).Interior.ColorIndex = 5 Then Cells(k, 2) = "mavi"
Next k
End Sub

Siz sarı , yeşil vs.. yazan yerlere gereken rakamı yerleştirin.

İyi çalışmalar.

Sayın, muygun.
Yukarıdaki mesajdan sonra biraz uğraşarak yeni bir kod ile çözümü bulabildim.
Faydalı olursa inceleyiniz.
Saygılar.

 

[muygun]

Merhaba Syn. turist;
Tespitiniz doğru (kodlar A sütununda 1000 satırda işlem yapar)
Son örneğiniz ile siteye kazandırdığınız kodlar Tüm sayfada bu isteği karşılayacaktır.
Teşekkür eder , İyi çalışmalar dilerim.