Renksay makrosunda değişiklik

[1Al2Ver]

Merhaba,

Mesajda çıkan sonuçların Sayfa1'de ilgili hücrelere yazılmasını arzuluyorum,

Teşekkür ederim.

Sub renksay()
Dim mavi As Long, sari As Long, yesil As Long, kirmizi As Long
Dim hcr As Range
For Each hcr In Range("C2:H100")
    Select Case hcr.Interior.Color
        Case vbBlue: mavi = mavi + 1 [COLOR="SeaGreen"]'M2 ye[/COLOR]
        Case vbYellow: sari = sari + 1 [COLOR="seagreen"]'J2 ye[/COLOR]
        Case vbGreen: yesil = yesil + 1 [COLOR="seagreen"]'K2 ye[/COLOR]
        Case vbRed: kirmizi = kirmizi + 1 [COLOR="seagreen"]'L2 ye[/COLOR]
    End Select
Next hcr
MsgBox "Mavi :" & vbTab & mavi & vbLf & _
"Sarı :" & vbTab & sari & vbLf & "Yeşil :" & vbTab & yesil & _
vbLf & "Kırmızı :" & vbTab & kirmizi, vbOKOnly + vbInformation, "RENKSAY"
End Sub

Mavi ; M2
Sarı ; J2
Yeşil ;K2
Kırmızı ; L2

 

[Ömer BARAN]

Merhaba.

-- MsgBox ile sonuç istemiyorsanız MsgBox satırları yerine,
-- sonucu hem MsgBox ile görüntülemek hem de hücrelere yazdırmak istiyorsanız
MsgBox ile başlayan satırdan hemen önce

aşağıdaki kod satırını ekleyin.
.

[M2]=mavi: [J2]=sari: [K2]=yesil: [L2]=kirmizi

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Çok teşekkür ederim,

Saygılarımla.

 

[Tevfik_Kursun]

Teşekkürler