hücre rengi?

[berat01]

Merhaba,

su tarz bir program yazmak istiyorum;

For Each hucre in Range("A10;A10000")
hucre.Select
if(Secili hucre renksiz ise)
break
End If

if(Secili hucre renkli ise)
Selection.Interior.ColorIndex = xlNone
End If
next hucre

Yani A10dan A10000 e kadar hucreler renkli oldugu sürece o hücreleri renksiz yapmali. Ilk renksiz hücre ile karsilastigi zaman ise durmali. Ancak "secili hücre renkli ise" ve "secili hücre renksiz ise"yi VB de nasil yazabilirim?
Tesekkürler

 

[Orion1]

Bumu

Range("A10:A10000").Interior.ColorIndex = xlNone

 

[berat01]

Evet buymus aynisini yazmam gerektigini hic düsünmemistim daha karisik bir sey bekliyordum
cok tesekkürler yine de

 

[Orion1]

Evet buymus aynisini yazmam gerektigini hic düsünmemistim daha karisik bir sey bekliyordum
cok tesekkürler yine de

Rica ederim.
İyi çalışmalar.

 

[mesuutt]

arkadaslar ben hücrelere renk atamak istiyorum macroda nasıl yapılıyor bu olay ?

 

[Orion1]

Range("A1").Interior.ColorIndex = 3

 

[mesuutt]

saol kardeş peki renk verdiğimde hücrelerin kenarlıkları kayboluyo onu nasıl yapıcaz
Evren Gizlen site yöneticisisin heraldeki kusura bakma yeni konu actım kımse gormez forumda ön sıralarda olmadıgı için diye o konuyu silin isterseniz..

 

[Orion1]

saol kardeş peki renk verdiğimde hücrelerin kenarlıkları kayboluyo onu nasıl yapıcaz
Evren Gizlen site yöneticisisin heraldeki kusura bakma yeni konu actım kımse gormez forumda ön sıralarda olmadıgı için diye o konuyu silin isterseniz..

Hücreye kenarlık çizmek diye bir başlık açınız.

 

[mesuutt]

işinizi biliyonuz hee