VBA'da formülleri birleştirmek

[ASLAN7410]

Merhaba arkadaşlar hayırlı sabahlar herkesin Cumhuriyet Bayramı kutlu olsun.

Excel sayfamın F2 hücresinde benzinli ve dizel araç sayısını yazmak istiyorum. Aşağıdaki formül sonucunu birleştiremedim.

Yani F2 hücresine

Benzinli araç sayısı:150
Dizel araç sayısı :270

şeklinde yazmak istiyorum.

Yardım edecek arkadaşlara teşekkür ederim.

With Range("F2")
   .Formula="=COUNTIF(R[1]C:R[500]C,""BENZİN"")"
   .Value="Benzinli araç sayısı:" & .Value
End With

With Range("F2")
   .Formula="=COUNTIF(R[1]C:R[500]C,""DİZEL"")"
   .Value="Dizel araç sayısı:" & .Value
End With

 

[Emir Hüseyin Çoban]

. . .

With Range("F2")
   .Formula = "=COUNTIF(R[1]C:R[500]C,""BENZİN"")"
   bir = "Benzinli araç sayısı:" & .Value
   
   .Formula = "=COUNTIF(R[1]C:R[500]C,""DİZEL"")"
   iki = "Dizel araç sayısı:" & .Value
    
    .Value = bir & Chr(10) & iki

End With

. . .

 

[ASLAN7410]

Hüseyin Bey ilginiz için çok teşekkür ediyorum, formül birleştirme mükemmel oldu çok işime yaradı.
Hayırlı çalışmalar.