Yardım ClearContents Fonksiyona gidiyor.

cash_1986

Yeni Üye
Katılım
29 May 2019
Mesajlar
1
Puanları
1
Yaş
33
Konum
Antalya
Ad Soyad
Korhan Özkara
Sayfada hücre silerken veya ClearContents kullanırken kullanıcı tanımlı fonksiyonlarımın içindeki aşağıdaki fonksiyona gidiyor ve hata veriyor. yardımcı olabilir misiniz?

Function renk_say(kendim As Range, aralik As Range)
Dim excelce As Range
Dim r_say As Long
Application.Volatile
kendimm = kendim.Interior.ColorIndex
For Each excelce In aralik
If excelce.Interior.ColorIndex = kendim.Interior.ColorIndex Then r_say = r_say + 1
Next excelce
renk_say = r_say
End Function
 
Üst Alt