• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kleuren meenemen naar andere velden

Status
Niet open voor verdere reacties.
M

Mvroosen

Nieuwe gebruiker
Lid geworden
14 nov 2006
Berichten
1
Hallo,

Ik heb een heel simpele vraag, maar kan het antwoord niet op internet vinden :o

Het probleem is:

Ik vul veld A1 een gtal in, en kleur deze bijv. rood
Als ik in veld A2 invul =A1 dan zal het getal uit A1 overgenomen worden, meer NIET de kleur. Weet iemand hoe ik de kleur ook meekrijg (kopieren werkt wel, maar dat wil ik dus niet)

Alle commentaar is welkom!!!!
 
Oke ik ben hier eventjes mee aan het stooien geweest, en ik heb denk ik een oplossing heb.

Kan iemand die eventjes mee testen.

1 > In de bijlage zit een bestandje genaamd ExcelFormating.
2 >Zet dit bestandje in C:\
3 > Start Excel en zet in een Cel (maakt niet uit welke) een getal/tekst en een opmaak(kleur en lettertype)
4 > Start de VB editor en zet in een Module de volgende code
Code: 
Function sLike(cell As Range, Optional default_value As Variant)
    sLike = cell.Range("A1")
    Dim argu As String
    If ActiveCell.Address <> cell.Address Then
        argu = ActiveCell.Address & " " & cell.Address
        Shell "c:\" & "ExcelFormating.exe " & argu
    End If
End Function

Ga nu terug naar je excel werksheet, en zet daar in een andere cell de formule =sLike(x)
x staat voor de cell die je gebruikt hebt in punt 3
Druk op enter.

Als het goed is hoor je een beep, en is je cell dezeflde format als de cell van punt 3

Ik hoor graag of het werkt of niet P.S. Windows XP met frameworks 1.1 of hoger is


BESTAND VERWIJDERD I.V.M INFINITE LOOP (ONEINDIGE LUS).Ik zal als ik meer tijd heb hier eens goed naar gaan kijken
nodig)
 
Laatst bewerkt:
Waarom niet met voorwaardelijke opmaak?
Kies opmaak/voorwaardelijke opmaak
kies dan voor formule is en vul in dan in: =ALS(A2=A1;1)
en maak de opmaak dezelfde kleur als je moeder cel.
Werkt dus alleen maar met opmaak eigen cel welke je gelijk maakt aan de moeder cel, zonder koppeling aan elkaar.
Weet niet precies waarom je dit wilt doen?

Zou misschien nog wel met vba veranderd kunnen worden.
mmmmmmm, komen we misschien een deze dagen nog wel op teur.

Groet,
Ferenc
 
Spidie,

Bij werkt je code :thumb:
Heb alleen nog een backslash er tussen gezet.
Shell "c:\" & "ExcelFormating.exe " & argu
Klik om te vergroten...

Netjes, je code snap ik wel redelijk, alleen je exe file gaat mijn pet te boven.

Groet,
Ferenc

ps.
Win XP
Excel 2003
Framework 2.0
 
Hoi Demeter,

Tnx voor de aanpassing.

De exe doet niets anders dan het copieeren van de broncell opmaak en deze plakken in de doelcell.:)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan