bakerman
-
Items
378 -
Registratiedatum
-
Laatst bezocht
Reputatie-activiteit
-
bakerman ontving reputatiepunten van jantjeschelling in uren:minuten invoer
Eentje om te testen.
jantjeschelling.xlsm
-
bakerman ontving reputatiepunten van ruud in Hyperlinks
@ kw
muchas gracias.
Wil je de bestaande hyperlinks herstellen naar hun origineel voorkomen dan volstaat deze.
Sub Format_Hyperlinks() For Each cl In Range(Range("M5"), Range("M" & Rows.Count).End(xlUp)) If cl.Hyperlinks.Count Then cl.Style = "Hyperlink" Next End Sub @ruud
-
bakerman ontving reputatiepunten van Shirley2019 in Cel kleuren door gegevens in andere cel
Dit kan je oplossen met Voorwaardelijke Opmaak.
In de veronderstelling dat geldigheid in kolom A staat en controle in kolom C.
=EN(ISGETAL(C2);A2 = "eenmalig") Kies je kleur en het bereik waarvoor de regel geldt en klaar.
-
bakerman ontving reputatiepunten van RKE3 in Opzoeken of een cel bepaalde tekenreeksen bevat
Formula in C2 en naar beneden doortrekken.
=ALS.FOUT(ZOEKEN(2^15;VIND.SPEC($E$2:$E3;$B2);$F2:$F3);"!!!")
-
bakerman ontving reputatiepunten van walterschurk007 in Automatische tijd en datum
In de bladmodule van Blad1.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = vbNullString Then Exit Sub If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B6:B16")) Is Nothing Then Target.Offset(, 3) = Format(Date, "dd/mm/yyyy") Target.Offset(, 4) = Format(Time, "hh:mm") End If End Sub