Kleur in MgsBox

[wieter]

Met onderstaande code wordt o.a. een MgsBox opgeroepen.

Sub rowextra_Click()
With ActiveCell
        If .Row > 7 Then
            If MsgBox("Are you sure you want to delete this row?" & "   " & Cells(.Row, 1), vbYesNo) = vbYes Then .EntireRow.Delete
        End If
    End With

Call InsertRowsAndFillFormulas
Range("A8").Select
End Sub

Hoe vul ik de code aan, zodat

Cells(.Row,1)

rood weergeggeven wordt in de MgsBox?

 

[wieter]

Wat ik wens te doen is volgens Google niet mogelijk.
Dus hier eindigt mijn vraag.

 

[zapatr]

Als je in plaats van een messagebox een userform gebruikt, dan kan het wel.
1. De inhoud van cells(.row,1), die afhankelijk is van de rij waarin er een cel geselecteerd is, is dat een lange tekst? Het is toch de inhoud van cells(.row, 1) die je wil weergeven op de messagebox?
2. Het tonen van die messagebox, is dat alleen om te bepalen of er een rij verwijderd moet worden? M.a.w.: is, het verwijderen van een rij buiten beschouwing gelaten, het vervolg van de macro (het oproepen van een andere macro) hetzelfde ongeacht of er op "Ja" of "nee" wordt geklikt?

 

[wieter]

Zapatr, fijn dat je reageerde.
Heel wat vragen, ik denk dat ik beter het hele bestand even meestuur.
Het gaat over de knop in blad "proplan!"

Iemand die actief is in Afganistan, riep mijn hulp in voor zijn bestand.
Het is nu zo goed als klaar.
Het kleuren van de tekst in de MgsBox, is maar extra.
Misschien weet je een oplossing?

Bekijk bijlage 193693

 

[zapatr]

Dat is een project waar jij veel tijd aan hebt gespendeerd, zie ik.
Wat jouw vraag betreft, zie de bijlage.

 

[wieter]

Knappe oplossing Zapatr, bedankt.

ps Mijn toevoegingen aan het bestand waren eerder beperkt.
Het merendeel van dit toch wel uitgebreide bestand, was het werk van de vraagsteller.

 

[zapatr]

Ik wilde die aanpassing (kleur) eigenlijk in de initialiseerprocedure van de userform plaatsen.
Maar daar wilde de code om een of andere reden zijn werk niet doen.

 

[wieter]

Je hebt blijkbaar nog heel wat zoekwerk gepresteerd!
Nogmaals hartelijk bedankt Zapatr

 

[zapatr]

Nee, zoekwerk was niet nodig; maar ik had toch wel wat tijd nodig.
Maar het was natuurkij maar een luttel schoonheidsdetail, dat aan de werking van het geheel niets verandert. Niet te vergelijken met wat jij gedaan hebt. Degene voor wie dat bestand bestemd is, zal wel blij zijn met jouw inspanningen.