Hücre Toplama Kod Hatası

[BBBBuRaKKKK]

Merhabalar arkadaşlar. Böyle bir kodum var ama "=COUNT(RC[-16]:RC[-1])" bu kısmın manuel olmasını istemiyorum. Nasıl bir çözüm üretebiliriz acaba ?

ilkhucre = InputBox("Lütfen ilk hücre adresini girin.", "İlk hücre")
    sonhucre = InputBox("Lütfen son hücre adresini girin.", "Son hücre")
    Range(ilkhucre).Select
    Range(ilkhucre).FormulaR1C1 = "=COUNT(RC[-16]:RC[-1])"
    Range(ilkhucre).AutoFill Destination:=Range(ilkhucre & ":" & sonhucre), Type:=xlFillDefault
    Range(ilkhucre & ":" & sonhucre).Select

 

[Muzaffer Ali]

Merhaba.

Tam olarak ne yapmak istediğinizi yazarsanız ve örnek bir dosya ile desteklerseniz daha hızlı cevap alırsınız.

 

[BBBBuRaKKKK]

Merhaba Muzaffer Bey dosya ektedir.

- 10 adet sütun var burada, kaç hücre dolu ise hücre sayısını sağ tarafa yazıyor ve 10 hücrede dolu ise sarıya boyuyor.
- Eğer biri eksik ise boyama yapmıyor.
- kodu çalıştırdığımda yanlış çalışıyor yardımcı olur musunuz ?

-

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin.

Sub Test()
    Dim Bak As Long
    For Bak = 5 To Cells(Rows.Count, "A").End(xlUp).Row
        If WorksheetFunction.Count(Range("A" & Bak & ":J" & Bak)) > 0 Then _
        Cells(Bak, "K") = WorksheetFunction.Count(Range("A" & Bak & ":J" & Bak))
    Next
End Sub

 

[BBBBuRaKKKK]

Bu halde InputBox koyduğumuzda hata veriyor. Nerde hata yapıyorum ?

Sub Test()
    Dim Bak As Long
    
    ilkhucre = InputBox("Lütfen ilk hücre adresini girin.", "İlk hücre")
    sonhucre = InputBox("Lütfen son hücre adresini girin.", "Son hücre")
    hucre = InputBox("Lütfen yazmak istediğiniz hücreyi girin.", "Yazdırılacak Hücre")
    
    For Bak = 5 To Cells(Rows.Count, "ilkhucre").End(xlUp).Row
        If WorksheetFunction.Count(Range("ilkhucre" & Bak & ":sonhucre" & Bak)) > 0 Then _
        Cells(Bak, "hucre") = WorksheetFunction.Count(Range("ilkhucre" & Bak & ":sonhucre" & Bak))
        Next
End Sub

 

[Muzaffer Ali]

Tam olarak ne yapmak istediğiniz anlatmıyorsunuz.
Yazdıklarınıza bakarak tahmin etmeye çalışıyorum.
Doğru tahmin edemediğim için yardımcı olamıyorum.
Daha doğru tahminlerde bulunan biri size yardımcı olsun.
Kolay gelsin.

 

[BBBBuRaKKKK]

InputBox ile ilk hücre ve son hücreyi girip kaç adet hücre var yazmasını istiyorum , desteğiniz için teşekkür ederim