Formule in VBA (Aantal als)

[don42]

Hoi Oplossers,

Ik heb een code die regels kleurt bij selectie van cellen
nu wil ik graag dat niet de hele regel kleurt maar alleen het gedeelte links van de geselecteerde cel
dat heb ik half weten op te lossen daar in mijn werkblad in cel A61 de formule te zetten met = aantal(A1:a:60)
de uitkomst daarvan zet ik weer in mijn vba code als Range ("A61")
dit werkt prima, mij vraag is echter kan je de formule om die cellen te tellen ook meteen in de vba code zetten

Private Sub CheckBox1_Change()
 If CheckBox1 = False Then
  Range("a1:bh77").Interior.ColorIndex = xlNone
    ActiveSheet.Protect
       Exit Sub
 End If
 If CheckBox1 = False Then ActiveSheet.Unprotect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If CheckBox1 = False Then Exit Sub
        ActiveSheet.Unprotect
        If Not Intersect(Target, Range("A1:bh77")) Is Nothing And Selection.Count = 1 Then
            Range("A1:bh77").Interior.ColorIndex = xlNone
            kol = Target.Column - 60: If kol < 60 Then kol = 1
            Range(Cells(Target.Row, kol), Cells(Target.Row, kol + (Range("a61") - kol))).Interior.ColorIndex = 35    ' Geel
            Target.Interior.ColorIndex = 6    ' Rood
            Range("1:1").Interior.ColorIndex = xlNone
Cells(3, Target.Column).Interior.ColorIndex = 6
        End If
End Sub

De celverwijzing A61 staat in regel 16 : =aantal(A1:A60)
Hoop dat het duidelijk is wat ik bedoel

BVD
Don

 

[VenA]

Gezien het aantal keer dat jouw vraag bekeken is, is deze totaal niet duidelijk. Plaats een voorbeeld in excel met waaruit het duidelijk wordt wat je wil. Als je code plaatst doe dit dan tussen codetags en niet als HTML code.

 

[don42]

Mijn vraag is het volgende heb in een rij een aantal waardes staan, via = aantal tel ik op hoeveel cellen een waarde hebben dat getal komt in mijn sheet in cel A61
dan verwijs ik in de code weer naar die cel

Private Sub CheckBox1_Change()
 If CheckBox1 = False Then
  Range("a1:bh77").Interior.ColorIndex = xlNone
    ActiveSheet.Protect
       Exit Sub
 End If
 If CheckBox1 = False Then ActiveSheet.Unprotect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If CheckBox1 = False Then Exit Sub
        ActiveSheet.Unprotect
        If Not Intersect(Target, Range("A1:bh77")) Is Nothing And Selection.Count = 1 Then
            Range("A1:bh77").Interior.ColorIndex = xlNone
            kol = Target.Column - 60: If kol < 60 Then kol = 1
            Range(Cells(Target.Row, kol), Cells(Target.Row, kol + (Range("A61") - kol))).Interior.ColorIndex = 35    ' Geel
            Target.Interior.ColorIndex = 6    ' Rood
            Range("1:1").Interior.ColorIndex = xlNone
Cells(3, Target.Column).Interior.ColorIndex = 6
        End If
End Sub

ik vroeg mij af of er ook een formule was om de aantal waardes in de rij rechtstreeks in een code te verwerken

don

 

[HSV]

range("a61") = worksheetfunction.count(range("a1:a60"))

 

[Roncancio]

Wellicht bedoel je dit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:bh77")) Is Nothing And Selection.Count = 1 Then
    Range("A:BH").Interior.ColorIndex = xlNone
    If Target.Column > 1 Then Range("A" & Target.Row).Resize(1, Target.Column - 1).Interior.Color = vbRed
End If
End Sub

Bij het selecteren van een cel in het bereik A1 t/m BH77 worden de kleuren in het bereik verwijderd en krijgt de geselecteerde cel (vanaf de A-kolom) tot aan de selecteerde cel een rode kleur.

Bijv.:
Cel D9 wordt geselecteerd.
Het bereik A9 t/m C9 wordt rood gemaakt.

Met vriendelijke groet,


Roncancio

 

[don42]

Ja dit is hem
dit is wat ik graag had en nog veel mooier als gehoopt heel erg bedankt
Don