Kleur automatisch aan werkorder toekennen.

[MartijnLiempde]

Goedemiddag mensen,

Ik heb een document met werkorders erin, onder die werkorders zit een hyperlink naar een werkorder toe. deze staan in een andere map.

ooit komt het voor dat ik er een foto of opmerking in de werkorder wil plaatsen.

het mooiste zou zijn als dan bijvoorbeeld de Cell van de hyperlink een kleurtje krijgt.

Kan iemand me helpen?

Je zou een held zijn.

Martijn

voorbeeld:
Bekijk bijlage Voorbeeld19-12.xlsb

 

[edmoor]

Fijn dat je een voorbeeld document plaatst, maar er staat geen enkel voorbeeld in van een cel met een hyperlink en op welk blad dat dan is.

 

[MartijnLiempde]

oeps, verwijderd bij het voorbeeld maken:shocked:

maar de hyperlink zit normaal onder de datum in de sheet werkorders.

 

[edmoor]

Dus in kolom B vanaf rij2?

 

[MartijnLiempde]

correct.

 

[edmoor]

Zet dit eens achter het blad werkorder:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then
        Dim Kleur As Long
        [COLOR="#008000"]'Kleur = IIf(Left(Target.Formula, 10) = "=HYPERLINK", 65535, xlNone)[/COLOR]
        Kleur = IIf(Target.Hyperlinks.Count, 65535, xlNone)
        Range("B" & Target.Row & ":G" & Target.Row).Interior.Color = Kleur
    End If
End Sub

Welke van de 2 controles je nodig hebt is afhankelijk van hoe de hyperlink aan de cel wordt toegevoegd.

 

[MartijnLiempde]

zal het er eens in zetten.

Alvast bedankt voor je hulp

 

[MartijnLiempde]

krijg nu de foutmelding "het adres van deze site is niet geldig, controleer het adres en probeer het opnieuw.

dat heb ik gedaan en dat adres bestaat gewoon.

 

[edmoor]

Er zijn, zoals ik al opmerkte meerdere manieren om een Hyperlink toe te voegen. Vertel dus ook hoe je dat doet. Je wilt geen Hyperlink naar een site maar naar een plaats in je document.

 

[MartijnLiempde]

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "\\SBS2011\RedirectedFolders\pepijn\My Documents\Pepijn\Werkorders\Werkorder" & Range("B3").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
With Sheets("werkorders")
lastrow = Sheets("werkorders").Range("A:I").Find("*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Cells(lastrow + 1, "A") = Sheets("Leeg Werkorder").Range("B3")
.Cells(lastrow + 1, "A").Hyperlinks.Add .Cells(lastrow + 1, "A"), "\\SBS2011\RedirectedFolders\pepijn\My Documents\Pepijn\Werkorders\Werkorder" & Range("B3").Value & ".xlsx"
.Cells(lastrow + 1, "B") = Sheets("Leeg Werkorder").Range("B2")
.Cells(lastrow + 1, "C") = Sheets("Leeg Werkorder").Range("B5")
.Cells(lastrow + 1, "D") = Sheets("Leeg Werkorder").Range("B7")
.Cells(lastrow + 1, "E") = Sheets("Leeg Werkorder").Range("B6")
.Cells(lastrow + 1, "F") = Sheets("Leeg Werkorder").Range("E4")
.Cells(lastrow + 1, "H") = Sheets("Leeg Werkorder").Range("B10")
.Cells(lastrow + 1, "G") = Sheets("Leeg Werkorder").Range("B9")
.Cells(lastrow + 1, "I") = Sheets("Leeg Werkorder").Range("A11")
MsgBox "Werkorder succesvol verwerkt!", vbInformation, "Goed gedaan"
Range("B3").Value = Range("B3").Value + 1
Range("B4:C4").ClearContents
Range("B5:C8").ClearContents
Range("B9:C10").ClearContents
Range("D4:q32").ClearContents
Range("A13:C15").ClearContents
Range("A15:B33").ClearContents
End With

With Sheets("planning")
lastrow = Sheets("planning").Range("A:I").Find("*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Cells(lastrow + 1, "A") = Sheets("Leeg Werkorder").Range("B10")
.Cells(lastrow + 1, "B") = Sheets("Leeg Werkorder").Range("B5")
.Cells(lastrow + 1, "C") = Sheets("Leeg Werkorder").Range("B9")
.Cells(lastrow + 1, "D") = Sheets("Leeg Werkorder").Range("B7")
.Cells(lastrow + 1, "E") = Sheets("Leeg Werkorder").Range("A13")
.Cells(lastrow + 1, "F") = Sheets("Leeg Werkorder").Range("A11")

End With


End Sub


in de `12e regel schrijf ik de hyperlink naar zijn plek toe.

 

[edmoor]

Dan kan je er daar ook direct de kleur aan toekennen en heb je wat ik plaatste helemaal niet nodig.

NB.:
Die code kan ook heel wat netter en overzichtelijker.

 

[MartijnLiempde]

volgens mij wel want anders geeft die bij elke werkorder een kleurtje aan de regel terwijl ik alleen een kleurtje wil als er een opmerking bij gezet word

 

[MartijnLiempde]

Ik ben nog een beginner met excel maar dat zul je zelf al wel ondervonden hebben

 

[edmoor]

Dan heb ik je niet goed begrepen. Je wilt dus dat die cellen worden gekleurd als er een opmerking aan de cel wordt toegevoegd?

 

[MartijnLiempde]

ik typ een werkorder uit in Leeg werkorder
ik druk op opslaan en printen
dan zet excel dat bestand in de lijst werkorders en hij schrijft een bestand weg met dat werkorder daarin.
als ik daar in een opmerking zet zou ik het fijn vinden dat die regel opkleurt in de lijst werkorders zodat ik zie wat er mee aan de hand is.

 

[edmoor]

En dat gebeurt dan neem ik aan handmatig in dat document zelf?

 

[MartijnLiempde]

ja met een knop wou ik dat gaan doen

 

[edmoor]

Dan kan je het kleuren van de cellen gewoon in de code van de knop opnemen.

 

[MartijnLiempde]

Dat dacht ik dus zelf ook alleen ik ben nog niet zo ver dat ik zelf kan bedenken hoe die code/regel er uit moet komen te zien.

 

[edmoor]

Daar heb je inmiddels al voorbeelden van gekregen, zoals in #6.