Formule gevraagd

[jos.vander.meij]

Foutmelding na nieuwe formule

Beste Wigi,

Helaas krijg ik nu een foutmelding. In de bijlage zie je welke, hopelijk geeft dat je duidelijkheid. Geef me gelijk je rekeningnummer. Als de formule lukt maak ik vanavond nog geld aan je over...

Groet, Jos

 

[Wigi]

Jos

selecteer je eerst de gegevens? Alles gebeurt gewoon wanneer je een cel wijzigt. Ten minste als die cel zich bevindt in het bereik C183:CJ232. Post anders eens een bestandje. Als je niet graag hebt dat er belangrijke gegevens in staan (en terecht natuurlijk), delete die dan. Zorg dat je enkel een bestandje bijhangt met dit bereik erin. Dan kijk ik er vandaag nog naar. De oplossing is niet meer veraf, geloof me.

 

[Wigi]

Over dat andere moet ik eens goed nadenken, maar je belangrijkste vraag is hiermee opgelost volgens mij:

Private Sub Worksheet_Change(ByVal Target As Range)
    With Range("CK183:CK232")
        If Not Intersect(Target, .Offset(, -1)) Is Nothing Then
            .Font.ColorIndex = 2
            .Font.Bold = False
            .Range("A1").Offset(WorksheetFunction.Count(Range("I16").Resize(.Count)) - 1).Font.ColorIndex = 1
            .Range("A1").Offset(WorksheetFunction.Count(Range("I16").Resize(.Count)) - 1).Font.Bold = True
        End If
    End With
End Sub

Het zelf getest.

Financiële gegevens staan op mijn site: volg de link in mijn handtekening, en ga links in de navigatie naar "Excel". Dan beetje naar beneden scrollen. Alvast bedankt.

Bestandje mag je deleten nu. Ik heb het gedownd.

Wigi

 

[jos.vander.meij]

We zijn er bijna.

Beste Wim,

test svp nog even zelf: type in I21 in je gedownde bestandje 1500. Klik vervolgens op de link naar het overzicht. Ik zie dan alleen het bedrag 1500 ingevuld, daarachter niks. Ga ik op die 1500 staan en druk dan op F2 en enter, dan wel, maar het mooie van Excel is dat je deze handeling juist niet zou moeten uitvoeren. Moet ik hiervoor een instelling veranderen of kan het anders?

Enne... ahv mailtje, excuses voor mijn ongeduldige aard dan maar... Nee hoor ik ben inmiddels wel overtuigd van je kwaliteiten. :thumb:

Groet, Jos

 

[Wigi]

Goh, jij kan een mens toch wel bezig houden

Probeer dit eens uit:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aantal As Long
    With Range("I16:I65")
        If Not Intersect(Target, .Offset(0, 0)) Is Nothing Then
            aantal = .Range("A1").Offset(.Rows.Count).End(xlUp).Row - .Range("A1").Row
            Range("CK183").Resize(aantal).Font.ColorIndex = 2
            Range("CK183").Resize(aantal).Font.Bold = False
            Range("CK183").Offset(aantal).Font.ColorIndex = 1
            Range("CK183").Offset(aantal).Font.Bold = True
        End If
    End With
End Sub

Wigi

 

[jos.vander.meij]

Hij werkt nu echt...

Best Wim,

De formule werkt nu perfect. Ik heb m.i. een leuke donatie aan je gedaan. Rest mij nog 1 vraag om deze geslaagde formule aan te passen zodat deze ook voor CT183 werkt (zie gedownde bestandje).

Prettige avond en dank voor je support!

Groet, Jos

 

[Wigi]

De formule werkt nu perfect. Ik heb m.i. een leuke donatie aan je gedaan. Rest mij nog 1 vraag om deze geslaagde formule aan te passen zodat deze ook voor CT183 werkt (zie gedownde bestandje).

Dan dank ik jou van harte. Waarschijnlijk gebruik ik het om een VBA boek mee te kopen. Wordt iig terug geïnvesteerd in de "hobby".

Ik zie dat ik het bestandje verwijderd heb. Mail het maar naar mij, je kent het adres.

Wigi

 

[Wigi]

Rest mij nog 1 vraag om deze geslaagde formule aan te passen zodat deze ook voor CT183 werkt

Dit is ondertussen afgehandeld via e-mail. Praktisch dezelfde werkwijze werd gevolgd als eerdere antwoorden in deze topic. Wou dat toch even melden.