Kopieren ifv Bold/Italian

Status
Niet open voor verdere reacties.
Dat heb ik nog niet eerder zo gezien en werkt inderdaad leuk :)
Maar zoals ik in #19 al zei luistert dat soort dingen erg nauw.
Ook met deze oplossing is het nog steeds mogelijk om meer cellen in Bold te zetten zonder het event te activeren.

Desalniettemin, leuk gedaan :thumb:
 
edmoor zei:
Ook met deze oplossing is het nog steeds mogelijk om meer cellen in Bold te zetten zonder het event te activeren.
Klik om te vergroten...
Ik begrijp niet precies wat je bedoelt en heb dit draadje verder niet uitgebreid bekeken, maar voor elke cel waarbij bold gewijzigd wordt, wordt het event getriggerd. Dat gebeurt dus ook als meerdere cellen tegelijk gewijzigd worden.
 
Dat in de ranges in deze file steeds maar één keer bold/italic mag staan...
Welke "nummers" bold/italic worden aangeduid, deze gekopieerd worden naar een andere cel...
 

Bijlagen

@rebmog:
Klopt. Het werkt inderdaad goed. En als TS niet met cellen gaat slepen is het prima bruikbaar denk ik.

TS wil dat er maar 1 cel in een Range bold of italic mag zijn.
Met jouw functie werkt dat op zich prima maar als je een bold of italic cel naar een volgende cel sleept, zoals je dat ook met een formule zou doen, wordt dat event niet getriggerd en zijn er wel meerdere bold of italic cellen.
 
Het klopt dat slepen het event niet triggered. Maar door slepen wordt wel het Worksheet_Change- en Worksheet_SelectionChange-event getriggerd. Dan zou je daar gebruik van kunnen maken.
 
Chinees...

Is onderstaande nog mogelijk?
Dit zou vooral handig zijn bij het printen van de weekfile, zien we direct wie wat heeft (SNEL/LAK)

2) Als men iets bold/italic maakt de nummer gewijzigd wordt naar SNEL/LAK?
Als deze terug "normaal gezet wordt, de nummer terug zichtbaar wordt?
Klik om te vergroten...
 
Ik krijg steeds foutmelding op "replace"

Code: 
Sub seldienst2()
    
    Dim c As Object
    
    ActiveWorkbook.Unprotect "paswoord"
    ActiveSheet.Unprotect "paswoord"

    For Each c In ActiveSheet.Range("A17:A35")
        If Range("B" & c.Row) <> "" Then
            If c.Font.Bold Then Range("AA2").Value = Range("B" & c.Row).Value
            If c.Font.Italic Then Range("AA3").Value = Range("B" & c.Row).Value
        End If
            
            ' Probeersel veranderen nummer naar LAK/SNEL 'werkt niet
            If c.Font.Bold Then c.Font.Bold.Value = Replace(Value, "SNEL")
            If c.Font.Italic Then c.Font.Italic.Value = Replace(Value, "LAK")
        End If
        Next c
        
    For Each c In ActiveSheet.Range("A40:A58")
        If Range("B" & c.Row) <> "" Then
            If c.Font.Bold Then Range("AA5").Value = Range("B" & c.Row).Value
            If c.Font.Italic Then Range("AA6").Value = Range("B" & c.Row).Value
        End If
    Next c

End Sub
 
Als je zegt een foutmelding te krijgen is het wel zo handig deze er ook bij te vermelden.
Maar maak er eens dit van:
Replace(c.Value, "SNEL")
 
Mmmmm...

Just liggen proberen, maar niets lijkt te werken...
Ik dacht aan deze;

Code: 
 If c.Font.Bold Then c.Font.Bold.Value = Replace("c.Value", "Value", "SNEL")
            If c.Font.Italic Then c.Font.Italic.Value = Replace("c.Value", "Value", "LAK")
 
Ik zou zeggen, lees die link nog eens goed.
Je geeft nu alleen maar strings op.
"c.value" is iets totaal anders dan c.value
 
Code: 
 c.Font.Italic.Value
kent alleen de waarden TRUE of FALSE. Dus de hele constructie gaat niet werken.
 
Code: 
' Probeersel veranderen nummer naar LAK/SNEL 'werkt niet
            If c.Font.Bold Then c.Font.Bold.Value = Replace(c.Font.Italic.Value, "c.Value", "SNEL")
            If c.Font.Italic Then c.Font.Italic.Value = Replace(c.Font.Italic.Value, "c.Value", "LAK")

Geeft geen fout meer, maar doet niets...
Btw moet ik dit ook in de code zetten onder het kopieren van de naam naar cel AA2?
Code: 
If c.Font.Bold Then Range("AA2").Value = Range("B" & c.Row).Value
 
Je doet het nog steeds niet goed. Kijk eens wat VenA zei in #33.
 
Zal voor morgen zijn..

Zie vandaag door het bos de bomen niet meer....:)

Toch al bedankt voor de moeite!
 
@ Edmoor

Heb nog van alles geprobeerd, kan je nog eens voorzetje geven aub? :D
 
Plaats je Excel document zoals deze nu is.
Uiteraard ontdaan van evt. privacy gevoelige informatie.
 
@ Edmoor

Alvast bedankt voor de moeite
Opzet is al een beetje duidelijk denk ik :-)

Week 7 staan bovenaan rechts kolommen waar de namen moeten komen.

Vraag:

Ik weet dat dit eigenlijk niet gaat: max per range één bold en italic, als er al één staat en men wil nog één toevoegen, dat de al reeds bestaande rood gaat kleuren? Of MsgBox "nummer x is al aangeduid"
Als de namen gekopieerd worden(lees: de nummer in bold/italic gezet wordt) de nummer in SNEL & LAK veranderen, als men deze bold/italic wijzigt naar andere, terug de nummer komt te staan?
De cel waar LAK/SNEL staat, de cel wit is (xlNone), valt dit wat harder op bij het afprinten.

Bij deze is paswoord verwijderd, standaard is pass = paswoord

Het is veel gevraagd, maar hier kom ik echt niet uit...

Mercikes!
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan