IN kolom B de tekst vergelijken uit kolom A en D

[Ola]

Hi,
In kolom B wil ik per rij de tekst uit kolom A en uit de tekst uit kolom D vergelijken
Dat zelfde wil ik doen in kolom C maar dan van kolom A en Kolom E

Ik wil hiervoor de volgende VBA gebruiken

Private Sub Worksheet_Change(ByVal Target As Range)
If [A10] <> [D10] Then
MsgBox "WAARDE NIET GELIJK"
End If
End Sub

Dat werk goed. maar om een voor veel rijen en kolommen dit steeds in te voeren, lijkt mij niet de juiste manier?

Is het mogelijk om een net een range de rij 10-15 te selecteren?
íf {A10 <>D 10 Then
íf {A11 <>D 11 Then
íf {A12 <>D 12 Then
íf {A13 <>D 13 Then
íf {A14 <>D 14 Then
íf {A15<>D 15 Then


Wie weet een oplossing?
Ola!

 

[VenA]

IF cells(target.row,1)<> cells(target.row,4) then

 

[Ola]

Top,

ook al begin deze vergelijking pas vanaf regel 40, werkt het dan ook?
Sorry dat ik dat niet in het bericht had gezet. Heb ondertussen namelijk boven regel 40 wat andere data gezet.
Vandaar.

Hoor het graag.

Grt Ola!

 

[emields]

ik denk dat de helpers wachten op een gelijkaardig voorbeeldbestand.

 

[Ola]

Hi,

Misschien helpt dit?

 

[emields]

daar is nergens een kolom A ingevuld? maar lijkt me eer der een werkje voor VO

 

[Ola]

Door in VBA te doen met msb Box dan kan de voorwaardelijke opmaak in Cel L tot en met Z er uit.
Daar is het om te doen.

kijk maar naar deze bijlage

 

[Ola]

zo iets?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = 42

If Cells(Target.i+, 4) <> Cells(Target.i+1, 129) Then
MsgBox "WAARDE NIET GELIJK"
End If
End Sub

 

[VenA]

Wanneer moet de controle gestart worden? Alleen als je iets wijzigt in kolom D?

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Row > 41 And .Column = 4 And .Count = 1 Then
      If .Value <> .Offset(, 125).Value Then MsgBox "WAARDE NIET GELIJK"
    End If
  End With
End Sub

 

[Ola]

Hi,

nou vanaf kolom L tot Br ( in het voorbeeld is dit kolom X) voor ik steeds shift in die een kenmerk heeft als skill 1, 2 of drie
Deze kenmerken zie je vanaf kolom DY

Dus er is steeds een vergelijk vanaf kolom D(vaste kolom met steeds een regel naar beneden start rij40) met kolom DY+1 (1 kolom opschuivend)

De controle begint dus bij L als je met het dropdown menu een andere dienst invoert. en dit schuift steeds een kolom verder.

Concreet
kolom D 40 + een rij naar beneden is vast
Kolom L + een rij naar beneden> check kolom DY
Kolom L + naar volgende kolom> kolom M, check met D41 en met DZ.

het lijkt ingewikkelder dan het is

 

[VenA]

In Kolom M staat niets. Haal eerst de samengevoegde cellen er uit. Maakt het alleen maar complexer of het werkt helemaal niet.

 

[Ola]

Die kan je gewoon negeren. Daar komt nl niks in te staan net als kolom o etc.
Lukt het dan ook?
Als je op L42 staat zie je een voorwaardelijke opmaak. Die doet wat hij hoort te doen. Maar eigenlijk wil ik via vba een melding krijgen dat het niet gelijk is. Dan kan de voorwaardelijke opmaak eruit. Maar als dit idee niet gaat. Tja. Maar tot nu toe dank voor je moeite.

 

[VenA]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Columns(12).Resize(, 14).SpecialCells(-4174)) Is Nothing And Target.Count = 1 Then
    If Cells(Target.Row, 4) <> Cells(Target.Row, (Target.Column - 12) / 2 + 129) Then MsgBox "WAARDE NIET GELIJK"
  End If
End Sub

 

[Ola]

Top. De cell mag gewoon wit blijven. Het gaat om de mededeling dat de skills die bij die dienst niet gelijk is aan d.
Moet er dan nog iets uit de vbs formule?

 

[VenA]

En waar komt die rode kleur vandaan? Dat kan je zelf weghalen.

 

[Ola]

VenA,
nog dank voor je tijd en moeite!

grt Ola