Cellen met gelijke inhoud en onderlinge relative afstand zoeken.

[steven.sylvia]

Ik heb log-data uit 2 besturingsystemen die met elkaar communiceren. Deze log-data bestaat uit hexadecimale waarden in ongeveer 25000 rijen en 20 kolommen.

Er staan send en recieve berichten in. Bij elk send bericht hoort een recieve bericht. Je kan herkennen dat ze bij elkaar horen omdat ze beide een gelijke "code" hebben. Deze code staat in 3, niet aaneengesloten, cellen.

Ik zou graag willen dat ik deze 3 cellen selecteer, Ctrl en aanklikken, en dat vervolgens de overeenkomstige cellen van kleur veranderen zodat ik ze snel kan vinden als ik door de data scroll.

Iemand een idee?????

 

[Imod]

Misschien met voorwaardelijke opmaak?
zie bijlage

mvg Imod

 

[steven.sylvia]

Hoi Imod,

Dat zou kunnen als het alleen om de inhoud van de cellen zou gaan maar gaat gaat ook om de onderlinge afstanden tussen de cellen. De X-Y afstanden tussen de 3 cellen dus.

Voorbeeld:
cel R1 = waarde X
cel R2 = waarde Y
cel T2 = waarde Z

Ik selecteer deze cellen, ze worden dan dus blauw, en dan moeten dus de cellen met gelijke inhoud en relative onderlinge afstand gemarkeerd worden.

 

[Imod]

Misschien een klein voorbeeldje?
dat schep duidelijkheid.
Ik zie de verbanden niet.
Moeten die 3 codes samen in 1 cel staan als ze oplichten?
Als je alleen de cellen selecteert zonder intypen dan zit je denk ik aan VBA vast - dan zal een ander je moeten helpen.
Imod

 

[steven.sylvia]

Hier het voorbeeldje.

Ik selecteer dus de blauwe cellen. en dan moeten de overeenkomstige cellen automatisch gemarkeerd worden, in mijn voorbeeld dus rood.

In het voorbeeld staan de overeenkomstige cellen dicht bij elkaar maar daar kan ook wel eens 500 regels tussen zitten.

VBA is prima maar dan heb ik wel gerichte hulp nodig.

 

[snabbi]

Ik hoop dat je hier iets aan hebt, het toevoegen wordt in mijn sig uitgelegd.

• 
  Sub kleurGeven()
  'Ik selecteer eerst even cel A1 zodat we bovenaan beginnen
  Range("A1").Select
  
  'ik maak 3 variabelen. Ik maak er strings van omdat hexadecimaal ook letters
  'kan bevatten en getallen dus niet voldoen.
  Dim eerste As String
  Dim tweede As String
  Dim derde As String
  
  'In deze variabelen moet je opslaan waar je precies naar zoekt.
  eerste = "0"
  tweede = "4"
  derde = "2"
  
  'Nu ga ik door het gehele blad heenlopen. Wanneer de tekst in
  'een cel begin met [DD] weet ik dat ik op een nieuw gedeelte
  'van het logbestand kom.
  
  'de loop duurt zolang we die dingen tegen komen
  Dim lala As String
  While Left(ActiveCell.Value, 4) = "[DD]"
  'Door die lege regel moeten we niet 1 cel maar 2 cellen naar beneden voor de
  'eerste waarde.
  ActiveCell.Offset(2, 0).Select
  'Na de eerste loop staan we nu in A3.
  
  'Nu denk ik dat die 0 en 4 in de B en C kolom niet altijd bij 2 hoeven te staan
  'Daarom ga ik binnen dit log gedeelte een nieuwe loop maken
  
  'Deze loop checkt elke keer of in de B, C en Q kolom die waarden voorkomen
  While ActiveCell.Value <> ""
  If ActiveCell.Offset(0, 1).Value = eerste And ActiveCell.Offset(0, 2).Value = tweede _
  And ActiveCell.Offset(-1, 16).Value = derde Then
  'die offset zorgt dat je een relative verwijzing hebt
  'Wanneer aan deze 3 voorwaarden is voldaan dan geven we het een kleur
  
  'Ik selecteer de cellen zodat ik er een kleur aan kan geven
  Range(ActiveCell.Offset(0, 1).Address + "," + ActiveCell.Offset(0, 2).Address + "," + ActiveCell.Offset(-1, 16).Address).Select
  
  'en hier geef ik een blauwe kleur
  With Selection.Interior
  .ColorIndex = 37
  .Pattern = xlSolid
  End With
  
  'Vervolgens moeten we weer terug naar de A kolom en naar beneden
  ActiveCell.Offset(0, -1).Select
  End If
  ActiveCell.Offset(1, 0).Select
  Wend
  ActiveCell.Offset(1, 0).Select
  Wend
  End Sub

Ps
wat een naar ding is dat [ php ] toch. Het sloopt mn wend en end sub

 

[steven.sylvia]

Dank je wel Snabbi,

Ik heb het geprobeerd en het doet inderdaad wat ik nodig heb.
Dit helpt mij alvast een eind op weg.

Ik ga er nog verder mee aan de slag, daar zullen nog wel wat meer vragen uit voorkomen maar dat lees je dan wel weer.

Thanks,