cash_1986
Yeni Üye
- Katılım
- 29 May 2019
- Mesajlar
- 1
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 38
- 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
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