find ongelijk

[geep1980]

ik wil 2 cellen in verschillende kolommen kleuren als in de 2e cell de waarde kleiner of gelijk is aan bijvoorbeeld 80

Ik heb het volgende maar kan niet opgeven kleiner of gelijk aan

Dim R As Range, FindAddress As String
Dim I As Integer

'Set initial value of the variable.
I = 9



find_what = "80" Dit moet dus worden kleiner of gelijk aan
'Search for all the occurrences of the item.
With Range("A1:N27")
Set R = .Find(what:=find_what _
, SearchOrder:=xlByColumns)


'If a match is found.
If Not R Is Nothing Then

'Store the address of the cell where the first match is found in a variable.
FindAddress = R.Address

Do
'Color the cell where a match is found orange.
R.Interior.ColorIndex = 46
R.Offset(0, -1).Interior.ColorIndex = 46

'increase value of the variable with 1.
I = I + 1
'Search the next cell with a matching value.
Set R = .FindNext(R)

'Loop as long matches are found, and the address of the cell where a match is found,
'is <> as the address of the cell where the first match is found (FindAddress).
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With

'Clear memory.
Set R = Nothing


wat doe ik verkeerd??

 

[zapatr]

ik wil 2 cellen in verschillende kolommen kleuren als in de 2e cell de waarde kleiner of gelijk is aan bijvoorbeeld 80

Hoe is het verbande precies tussen die 2 cellen in de ene- en andere kolom ?
Moeten beide cellen gekleurd worden als de waarde in de tweede cel kleiner dan of gelijk is aan 80?
Is dat de enige voorwaarde?
Gaat het enkel om die twee cellen of in beide kolommen om meerdere cellen?
In je code staat als bereik A1:N27, dat zijn 14 kolommen. Hoe moet ikdat rijmen met de twee kolommen waarover je het in de begeleidende tekst hebt?
Allemaal vragen, waarop een antwoord nodig is om een goed antwoord te kunnen geven.
Als je al een oplossing via vba wil, dan kan die veel korter (en anders), maar op het eerste gezicht lijkt het mij dat een oplossing via voorwaardelijke opmaak hier eenvoudiger is. Maar zoals gezegd: of dat zo is, daarvoor moeten we meer weten. Het best is om een voorbeeldbestand te plaatsen, dan heb je waarschijnlijk snel een oplossing en een goede oplossing.

 

[geep1980]

de cellen zien er als volgt uit

Kolom A Kolom B
Check server a 100
Check server b 90
Check server c 100

en er volgen nog meer naar beneden.
En in kolom C t/m ZZ kunnen nog meer van zulke waardes staan.
Altijd in de linker van de 2 kolommen de server en de rechter 0 t/m 100

Als in de rechter kolom de waarde 90 of lager is moet hij de rechter en de bijbehorende linker cell in kleuren

 

[zapatr]

Voorwaardelijke opmaak voor A1: =en($B1>0;$B1<=90)
Zelfde voorw. opmaak voor B1.
De voorw. opmaak van A1:B1 (alleen de voorw. opmaak) naar beneden kopiëren in de kolommen A en B.
Voor de kolommen C: D, E:F, enz. geldt een gelijksoortige voorw. opmaak, aangepast aan de kolomletters.

 

[geep1980]

als je een clear.contents uitvoerd worden deze dan niet verwijderd?
Het kan namelijk gebeuren dat er op een gegeven moment server A, B en C staan maar dat er op een ander moment gegevens opgehaald worden voor X, Y en Z
Dan wordt eerst alles in het werkblad leeg gemaakt en daarna opnieuw opgebouwd.
Weet dus niet of een voorwaardelijke opmaak gaat werken.

Ook kan het zijn dat er in A1 t/m F30 gegevens staan en op een ander moment A1 t/m AA100
Dan zou ik de hele sheet moeten invullen en dat is nog al wat werk.

Vandaar dat ik het graag via een macro wil doen

 

[zapatr]

als je een clear.contents uitvoerd worden deze dan niet verwijderd

Nee, dan wordt de voorw. opmaak niet verwijderd.
Dat had je overigens zelf eenvoudig kunnen nagaan door het even te testen.

Ook kan het zijn dat er in A1 t/m F30 gegevens staan en op een ander moment A1 t/m AA100. Dan zou ik de hele sheet moeten invullen en dat is nog al wat werk

Dat lijkt MIJ helemaal niet veel werk. Zoals ik hierboven al schreef: voorw. opmaak kun je voor 1 of enkele cellen instellen en dan kopiëren naar andere cellen.