Zoeken en optellen

[terbeest]

Het zit als volgt:

Ik heb blad1 met 2 kolommen. De ene is een omshrijving en de andere een getal.

Ik heb ook een blad2 met dezelfde kolommen.

Nu wil ik graag kolom 2 (die met de getallen) op blad1 de waarden van kolom 2 op blad2 laten overschrijven. Maar natuurlijk mag dat alleen bij die waardes waarvan de omschrijvingen hetzelfde zijn.

Dus:
    A     B                          A       B
[blaat] [2] op blad 1 moet [blaat] [1] op blad 2 overschrijven (alleen de waarde 2 dus)

Snappen jullie het nog? Ik niet namelijk...

Groeten,

 

[Ingrid B]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
  If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
  With Sheets("Blad2").Range("A:A")
    Set c = .Find(Target.Offset(0, -1), LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
      MsgBox "Omschrijving [" & Target.Offset(0, -1) & "] bestaat niet"
    Else
      c.Offset(0, 1) = Target
    End If
  End With
End Sub

kopieer de macro naar de werkblad-code

 

[terbeest]

Ziet er mooi uit, maar niet helemaal wat ik bedoel...

Ik zou die actie (als de omschrijving bestaat toevoegen, anders een popupbox) graag aan een knop gekoppeld zien...

 

[Ingrid B]

Private Sub CommandButton1_Click()
Dim c, cel As Range
  For Each cel In Selection
    With Sheets("Blad2").Range("A:A")
      Set c = .Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
      If c Is Nothing Then
        MsgBox "Omschrijving [" & cel & "] bestaat niet"
      Else
        c.Offset(0, 1) = cel.Offset(0, 1)
      End If
    End With
  Next cel
End Sub

 

[terbeest]

Hee echt super!

Heeeeeeel erg bedankt...