Hoe kan men de celeigenschappen van een cel kopiëren?

[derockere]

Pas zelf eventueel de lettergrootte (Font.Size) aan.

Dit is gemakkelijk verwoord!
Het zijn enkel de negatieve waarden die VET en GROTER moeten weergegeven worden.
Dat is in feite mijn vraag geweest.

 

[AHulpje]

Dat is dan ook precies wat er gebeurt. Met een voorwaardelijke opmaakregel worden negatieve getallen rood en vet en met behulp van de macro wordt de Font.Size vergroot van 14 naar 18.
Met "Pas zelf eventueel de lettergrootte (Font.Size) aan" bedoelde ik dat je die in de macro kunt wijzigen.
Is mijn vermoeden juist als ik denk dat je de oplossing uit #19 niet hebt getest?

 

[emields]

Waarschijnlijk #18 ook niet, of anders is een reactie geven niet aan TS besteed.

 

[derockere]

Dan moet ik eerst VBA aanleren of een Macro leren aanmaken.
Bedankt voor de suggestie.
Ik ga in de namiddag naar de Bib.
Vermoedelijk heb ik dit niet zo vlug aangeleerd.
Binnen een maand of twee laat ik iets weten!

 

[Senso]

@Hulpje,
Ik heb deze getest maar werkt niet goed. Is die ook voor versie 2007.
Als ik de bestaande getallen verwijder en nieuwe invoer met normale opmaak en voer de macro uit dan moet het toch wijzigen?

 

[edmoor]

Het is een Event macro.
Die moet je niet uitvoeren, dat gaat vanzelf bij het wijzigen van 1 cel. (Target.Count = 1)
Die specifieke cel wordt dan gewijzigd.

Deze kan ook zo geschreven worden:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Target.Font.Size = IIf(Target.Value < 0, 18, 14)
    End If
End Sub

 

[Senso]

Ja, bedankt. Dat moeten we dan opzoeken. Ik zie ook geen bereik. Normaal zeg ik, zet het bereik op die twee kolommen. Maar goed, ik heb er de kracht niet meer voor!

 

[edmoor]

Het bereik staat er in.
Bij Target.Count = 1 is dat de zojuist gewijzigde cel.

 

[emields]

Dan moet ik eerst VBA aanleren of een Macro leren aanmaken.
Bedankt voor de suggestie.
Ik ga in de namiddag naar de Bib.
Vermoedelijk heb ik dit niet zo vlug aangeleerd.
Binnen een maand of twee laat ik iets weten!

in #18 staat geen letter vba.

 

[AHulpje]

@emields
En daarom wordt de lettergrootte dan ook niet aangepast.

 

[emields]

ik veronderstel dat je zonder het in koeien van letters te stellen het verschil ook wel ziet.

 

[AHulpje]

@emields
Ben ik helemaal met je eens, maar misschien is TS kleurenblind?

 

[Obrecht]

Voor alle cellen in het blad bij negatief grote 150%, Vet en rood
bij 0 of positief alles volgens standaard instellingen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        With Target.Font
            If Target.Value < 0 Then
                .Size = .Size * 1.5        '150%
                .Bold = True               'VET
                .Color = RGB(255, 0, 0)    'Rood
            Else
                .Size = 11 ' Bij 0 of positief alles volgens standaard instellingen
                .Bold = False
                .Color = RGB(0, 0, 0)      'zwart
            End If
        End With
    End If
End Sub

 

[emields]

@ Obrecht
Niet gelezen zonder vba? Of ook een bril nodig?

 

[AHulpje]

@Obrecht
En wijzig een negatieve waarde nu eens in een andere negatieve waarde, en dan nog eens en nog eens...
En de Font.Size in het document uit #11 is 12 en niet 11.

@emields
TS heeft nergens gezegd dat het niet met VBA mocht, maar wel dat hij dat wil gaan leren.

 

[Obrecht]

Oh sorry ik had dit wel gezien

Dan moet ik eerst VBA aanleren of een Macro leren aanmaken.
Bedankt voor de suggestie.
Ik ga in de namiddag naar de Bib.
Vermoedelijk heb ik dit niet zo vlug aangeleerd.
Binnen een maand of twee laat ik iets weten!

maar dacht Laat ik een overzichtelijkere Macro maken
Is ook wel verwarrend als je naar het eerste bericht kijkt.
Daar heeft hij het over cellen kopiëren.

Sorry

 

[Obrecht]

@Obrecht
En wijzig een negatieve waarde nu eens in een andere negatieve waarde, en dan nog eens en nog eens...
En de Font.Size in het document uit #11 is 12 en niet 11.

Oeps ja 'Size matters!'

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        With Target.Font
            If Target.Value < 0 Then
                .Size = 18            'Set font size to 16 for negative values
                .Bold = True          'Bold
                .Color = RGB(255, 0, 0) 'Red
            Else
                .Size = 12            'Default size for 0 or positive values
                .Bold = False
                .Color = RGB(0, 0, 0) 'Black
            End If
        End With
    End If
End Sub