Need macro able to compare cells content

[axioma]

Hello forum,

i have a sheet with column A “component code”, and column B “surface”. The sheet has thousands of rows and I usually add rows. I need a procedure able to discover the code I am dialing already exsists and to put automatically in column B the right surface value.
Any help would be greatly appreciated.
Max

 

[Scott Huish]

Hi, welcome to the board!

It's not clear to me what you are trying to do, if you are trying to lookup the values from a table, then have a look at the VLOOKUP function. Or are you trying to repeat the values from something already entered in the column?

 

[axioma]

Hello and thank you for your prompt response,

i am just trying to repeat values already entered avoiding the risk of ricalculating complex surfaces area.

 

[galileogali]

You can to try this code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim valor As Variant, fila As Long

If Target.Column > 1 Then Exit Sub


valor = Target.Value


If valor = Empty Then Exit Sub

Application.EnableEvents = False

fila = Target.Row


If Application.CountIf(Range("A1:A" & fila - 1), valor) >= 1 Then
    Target.Offset(0, 1) = Application.Index(Range("B1:B" & fila - 1), Application.Match(valor, Range("A1:A" & fila - 1), 0))
Application.EnableEvents = True
    End
End If

If Application.CountIf(Range("A" & fila + 1 & ":A65536"), valor) >= 1 Then
    Target.Offset(0, 1) = Application.Index(Range("B" & fila + 1 & ":B65536"), Application.Match(valor, Range("A" & fila + 1 & ":A65536"), 0))
Application.EnableEvents = True
    End
End If

Target.Offset(0, 1).Select
Application.EnableEvents = True

End Sub

GALILEOGALI

 

[Scott Huish]

EDITED:

Perhaps:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range, e As Range
Set d = Intersect(Target, Range("A:A"))
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each c In d
        Set e = Range("A:A").Find(c, Range("A" & Rows.Count))
        c.Offset(, 1) = e.Offset(, 1)
    Next
Application.EnableEvents = True
End Sub

 

[axioma]

thank you , i will try

 

[galileogali]

Hotpepper:

you have proven your solution? If the value to look for is after (underneath) Target, "FIND" finds the first value in Target's position y Target.offset(,1) is empty.
GALILEOGALI

 

[Scott Huish]

My code will look above Target first, the op wanted to duplicate previously entered entries. If it hasn't been entered because it will only find it at the place that is has just been entered. it will return blank in Column B. Why I ended up leaving it this way is this:

Say you had already entered in Column A, the Values A and C, but copy and paste from a list A, B and C, the A and C values will fill in but the B value would not as that had not been entered yet.

I did assume that previous entries it would be above the latest entry.