Private Sub Worksheet_SelectionChange

[Beearnd]

Bekijk bijlage Filiaaltest.docBekijk bijlage Filiaaltest.xlsBekijk bijlage Filiaaltest.docHallo,

Als beginneling heb ik een aanvullende vraag op onderstaand probleem voor mijn situatie:


De vraag lijkt erg op hergeen al eens geplaatst is, zie hieronder, maar ik kom daar niet verder mee

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G3:G100")) Is Nothing Then
Range("A1").Value = Target.Value
End If
End Sub

Mijn probleem:
Wat ik probeer te bereiken is dat wanneer een van de velden in het target bereik, hier D13-D23 gevuld is;
Het corresponderende veld F13 , daarna F14 etc wordt gevuld met de waarde uit D13 , D14 etc voorafgegaan met de waarde uit E2

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D13:D23")) Is Nothing Then
   Range("F13:F23").Value = "E2" & Target.Value
End If

End Sub

Filiaal Amsterdam Waarde in veld e2
Resultaat is

Product Filiaalpluspoduct
100 E2190 Product staat in D13 en resultaat in F13
125 E2190 Waarde van alleen de laatste entry wordt vastgehouden!
190 E2190
E2190
E2190
E2190
E2190
E2190
E2190
E2190
E2190


Resultaat moet zijn
Product Filiaalpluspoduct
100 Amsterdam100
125 Amsterdam125
190 Amsterdam190


DANK VOOR ONDERSTUENING

 

[Warme bakkertje]

Ik denk dat een voorbeeldbestand meer duidelijkheid zal scheppen dan je huidige vraagstelling.
Duid duidelijk aan wat je hebt en wat je wil bereiken.

 

[Elsendoorn2134]

Beearnd

Wat je waarschijnlijk bedoeld is onderstaande code

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D13:D23")) Is Nothing Then
    Range(Target.Address).Offset(0, 2) = Range("E2") & Target.Value
End If

End Sub

Veel Succes.

 

[Beearnd]

Beste Elsendoor2134

Bedankt voor de beantwoording, het werkt.
Maar ik heb er nu een probleempje bij;
Heb dat verwoord in de filiaaltest.doc bijlage

Beearnd
Bedank

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D13:D23")) Is Nothing Then
    If Target.Count > 1 Then
        For Each cl In Range("D13:D23")
            If cl <> vbNullString Then cl.Offset(, 2) = Range("E2").Value & cl.Value
        Next
    Else
        Target.Offset(, 2) = Range("E2").Value & Target.Value
    End If
End If
End Sub

 

[snb]

of ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D13:D23")) Is Nothing Then
    For Each cl In target
      If cl.Value <> vbNullString Then cl.Offset(, 2) = Range("E2").Value & cl.Value
    Next
  End If
End Sub

 

[Beearnd]

Heren,

bedankt Het werkt mega goed

Beearnd