Farvelægge celler efter forskellige kriterier

Har overvejet et kursus i Excel-VBA hos http://www.it-fjernundervisning.dk/
Er der andre websteder, hvor jeg kan hente inspiration og hjælp til VBA-kode på begynderniveau

Mvh Jan

Kan du bruge noget som dette:

Sub Colorize()
Dim i As Integer

For i = 1 To 4
    Select Case Cells(i, 1).Value
        Case "fri"
            Cells(i, 1).Interior.ColorIndex = 3
        Case "syg"
            Cells(i, 1).Interior.ColorIndex = 4
    End Select
Next i

End Sub

Hej Brynil

1)Hvad betyder For i = 1 To 4???
2)Kan jeg umiddelbart indsætte den kode ved hjælp af Copy???

Jan

Øjeblik, skal lige tilpasse den lidt mere.

' antal rækker der skal gennemløbes (H1 til H50)
For i = 1 to 50
'Hvilken celle/kolonne skal valideres (H, dvs. 8)
    Select Case Cells(i,8).Value
' Opret en Case for hver tekststreng der skal undersøges. Jeg viser hér 2:
        Case "fri"
' Smid en farve i cellen afhængigt af indholdet
            Cells(i,8).Interior.ColorIndex = 3
        Case "syg"
            Cells(i,8).Interior.ColorIndex = 4
' .... flere cases
' Afslut cases med denne..
        Case Else
            Cells(i,8).Interior.ColorIndex = 2
'Afslut Select og fortsæt loop
    End Select
Next i

Det ser rodet ud. Her uden kommentarer:

Sub Colorize()
For i = 1 to 50
    Select Case Cells(i,8).Value
        Case "fri", "Fri"
            Cells(i,8).Interior.ColorIndex = 3
        Case "syg", " "Syg"
            Cells(i,8).Interior.ColorIndex = 4

' indsæt selv flere cases

        Case Else
            Cells(i,8).Interior.ColorIndex = 2
    End Select
Next i
End Sub

Du kan copy paste koden ind i et modul og køre den.

Farvenumre kan du få med denne:

Sub Colors()
Dim i As Integer

For i = 1 To 50
    Cells(i, 1).Value = i
    Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub

Kør den i et andet ark.

Læg mærke til koden uden bemærkninger. Case validerer på det nøjagtige udtryk, derfor skal du tage højde for evt. forskellige stavemåder.

Tak for dit hurtige svar!!!

Det var godt nok noget af en smører. Jeg vil lige prøve mig frem, men jeg kommer til at famle mig i blinde, da det er et helt nyt område for mig...

Kan jeg få den til at kører pr. automatik efter hver celle ændring?????

Jep det virker.
Men kan det laves på de celler der ligger til venstre for kolonne H.???????

Udskift linierne:

  Cells(i,8).Interior.ColorIndex = 3

med

  Range("A" & i & ":H" & i).Interior.ColorIndex = 3

Den farver fra kolonne A til og med H

Men det fungerer jo ikke ud fra dit valg i 'rullelisten' ;)

Jeg kan desværre ikke fange valget fra rullelisten. Men det er der måske andre her på eksperten der kan hjælpe med eller forklare om det kan lade sig gøre.

Så vent og se om der er en af de 'hårde drenge' der reagerer.

Jeg skal lukke ned nu. Go' fornøjelse!

Det som står i Kollone A til H er Person oplysninger. Kollone H er fraværs-udtryk
  A    |  B  |    C        | D  |  E    |      F      |    G      | H  |
Anders | And |Andebyvej 22 | 7800| Andeby | 98 16 52 00 | 13-10-2005| Fri |

Så jeg vil gerne at hele rækken fik den samme farve som celle H.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then

For i = 1 To 50
    Select Case UCase(Cells(i, 8))
        Case "FRI"
            Rows(i).Interior.ColorIndex = 3
        Case "SYG"
            Rows(i).Interior.ColorIndex = 4

        ' indsæt selv flere cases

        Case Else
            Rows(i).Interior.ColorIndex = xlNone
    End Select
Next i
End If
End Sub

skal i arkets modul

Jeg var lidt for hurtig, nu er den rettet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then

  Select Case UCase(Target)
        Case "FRI"
            Rows(Target.Row).Interior.ColorIndex = 3
        Case "SYG"
            Rows(Target.Row).Interior.ColorIndex = 4

        ' indsæt selv flere cases

        Case Else
            Rows(Target.Row).Interior.ColorIndex = xlNone
    End Select

End If
End Sub

Hej Kabbak

Du bliver nødt til at guide mig lidt. Jeg får ingen makronavn frem, når jeg skal afspille Din Farve Makro


Mvh Jan

hvis du har lagt den i arkmodulet, så afspiller den selv når du ændrer på en celle i H kolonnen

Det virjer ikke!!!!
Virker det også via en rulleliste (Datavalidering) det er her alle udtrykkene er placeret.
Jeg har ændret din Case "FRI" til "Ferie" . Er det her problemet er??+

UCase(Target)
betyder at det der står i cellen bliver til store bogstaver, derfor skal alle Case også være med store bogstaver

Ja det virker med rulleliste, den fra datavalidering, er testet

Nu virker det næsten, men det farvelægger hele rækken.
Jeg ønsker kun at farvelægge den del af rækken, som ligger til venstre for kolonne H.
Kan du fikse det??????????????

Lav alle
Rows(Target.Row)

om til

Range("A" & Target.Row & ":G" & Target.Row)

Yes,yes, Lige nøjagtigt.
Tusinde tak for hjælpen.

Kan jeg ikke dele point mere mellem to personer. Jeg vil gerne bidrage lidt point til Brynil og resten til dig Kabbak

En lille bitte ting mere, hvis jeg bruger mørke farver kan jeg så i de Cases vælge en skriftype som er hvid.

du skal så lige vente til brynil svarer, med at give point.

Angående farver, så er hjælpen god i excel.

Inde hvor du ser koden, sæt cursoren midt på ordet ColorIndex, tryk så på F1, så ryger du lige ind og ser de farver og værdier der findes.

Hilsen Kabbak

Okay!

Jeg fandt selv svaret i Hjælp-menuen, lige inden du skrev tilbage

Du skal have mange tak for hjælpen. Du får dine point så snart brynil har svaret.

Jeg vender sikkert tilbage til dig angående noget mere VBA :-))))

Hilsen Jan

ok

Det var jo herligt. Jeg lærte også flere ting!

Tak for hjælpen