Koşula göre bilgi yazma

[elvis]

Koşullu biçimlendime yöntemi ile aynı verileri sarıya boyadım. Sizlerden istediğim; sarı renkli olan hücreleri for next döngüsü yöntemi kullanarak 1 yazmasını sağlamak. Şöyle ki iki sütun var; a ve b sütunu . a sütununda rakamlar var . koşullu biçimlendirme a sütununa tanımlanmış. b sütununa ise koşullu biçimlendirme sonucuna göre sarı renkli hücrelerin karşılarına gelen hücreler (yani b sütununa karşılık gelen hücreler) bir (1) değerini alması. Bunu aşağıdaki kodu çalıştırarak yapmaya çalıştım ancak başaramadım.

Dim i As Integer
For i = 1 To 10
If Cells(i, 0).Interior.ColorIndex = 36 Then
Cells(i, 1).Value = 1
End If
Next


Acil yardımlarınızı bekliyorum. herkese iyi çalışmalar

 

[Ayhan Ercan]

Merhaba

Aşağıdaki gibi deneyiniz...

If Cells(i, 1).Interior.ColorIndex = 36 Then
Cells(i, 2).Value = 1

 

[elvis]

Dediğiniz şekilde denedim ancak yine olmadı

 

[Ayhan Ercan]

Örnek bir dosya ekleyebilirmisiniz?

 

[elvis]

Üstad! örnek dosyayı dün ekleyemedim. İnternetimiz gitti. Şimdi ekliyorum. Gereken bilgileri yazdım. Yardımlarınız için şimdiden teşekkürler...

 

[elvis]

Arkadaşlar yardımlarınızı bekliyorum. Yardım edecek yok mu?

 

[elvis]

Arkadaşlar sorunu hallettim. Teşekkürler. Yukarıdaki kod nasıl olduysa birden çalıştı. Excelden kaynaklı bir hata oluştu sanırım. İlginiz için teşekkürler