Is het mogelijk dat de "ingrediënten" van een product in Sheet Product komt zodat ik een omschrijving kan maken hoe het product gemaakt wordt?
kan dit automatisch of door een macro of door een prodcode aan te geven?
van de week ben ik geholpen met mijn FoodData daarvoor iedereen bedankt!
wie weet willen jullie mij weer helpen.
ik heb nu een macro knop gebruikt bij sheet "Recepten", echter verdwijnen de laatste regels ....maar wie weet, weten jullie een betere oplossing
Vriendelijke groet
Remco
Edit: heb zelf een macro toegepast maar ik krijg een error. Fout 91
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:b1000]) Is Nothing Then
If Target.Count = 1 Then
With Sheets("PRODUCT")
Set prod = .[b2:b1000].Find(Target.Value)
End With
With Target
.Offset(, -1) = prod.Row
.Offset(-1, 0) = prod.Offset(-1).Value
.Offset(1, 0).Resize(22, 4) = prod.Offset(-1, 0).Resize(22, 4).Value
End With
End If
End If
End Sub
kan dit automatisch of door een macro of door een prodcode aan te geven?
van de week ben ik geholpen met mijn FoodData daarvoor iedereen bedankt!
wie weet willen jullie mij weer helpen.
ik heb nu een macro knop gebruikt bij sheet "Recepten", echter verdwijnen de laatste regels ....maar wie weet, weten jullie een betere oplossing
Vriendelijke groet
Remco
Edit: heb zelf een macro toegepast maar ik krijg een error. Fout 91
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:b1000]) Is Nothing Then
If Target.Count = 1 Then
With Sheets("PRODUCT")
Set prod = .[b2:b1000].Find(Target.Value)
End With
With Target
.Offset(, -1) = prod.Row
.Offset(-1, 0) = prod.Offset(-1).Value
.Offset(1, 0).Resize(22, 4) = prod.Offset(-1, 0).Resize(22, 4).Value
End With
End If
End If
End Sub
Bijlagen
Laatst bewerkt: