borissuvee
Gebruiker
- Lid geworden
- 12 nov 2010
- Berichten
- 6
Hallo,
ik heb een excelbestand voor het berekenen van kostprijzen. Wanneer ik in cel D2 het artikelnummer invul komen automatisch de standaard componenten die bij het artikel horen te staan. Nu moet er echter een functie bijkomen die het mogelijk maakt om deze componenten daarnaast apart aan te passen. Ik heb dit gedaan m.b.v. een data validatie zodat er een dropdownlijst bijkomt te staan. Het probleem is echter dat, op het moment dat ik een component aanpas mbv de drop down lijst, de formule verdwijnt (dit is een verticaal zoeken functie als dat er toe doet).
Mijn vraag is dus of er een functie is die er voor zorgt dat mijn verticaal zoeken functie weer hersteld word wanneer het artikelnummer weer veranderd, zodat alle standaard componenten weer terug komen?
Ik heb het wel voor elkaar gekregen met de onderstaande vba, maar ik kan op deze manier maar 1 component aanpassen(D10) en dit moeten er 9 zijn (cel d5 t/m d10)
Dim VWaarde As Variant
Private Sub Worksheet_Calculate()
If VWaarde <> [D2] Then
[D10] = [C10]
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VWaarde = [D2]
End Sub
Ik hoop dat de vraag een beetje duidelijk is en dat iemand mij hiermee kan helpen.
Alvast bedankt,
Boris
ik heb een excelbestand voor het berekenen van kostprijzen. Wanneer ik in cel D2 het artikelnummer invul komen automatisch de standaard componenten die bij het artikel horen te staan. Nu moet er echter een functie bijkomen die het mogelijk maakt om deze componenten daarnaast apart aan te passen. Ik heb dit gedaan m.b.v. een data validatie zodat er een dropdownlijst bijkomt te staan. Het probleem is echter dat, op het moment dat ik een component aanpas mbv de drop down lijst, de formule verdwijnt (dit is een verticaal zoeken functie als dat er toe doet).
Mijn vraag is dus of er een functie is die er voor zorgt dat mijn verticaal zoeken functie weer hersteld word wanneer het artikelnummer weer veranderd, zodat alle standaard componenten weer terug komen?
Ik heb het wel voor elkaar gekregen met de onderstaande vba, maar ik kan op deze manier maar 1 component aanpassen(D10) en dit moeten er 9 zijn (cel d5 t/m d10)
Dim VWaarde As Variant
Private Sub Worksheet_Calculate()
If VWaarde <> [D2] Then
[D10] = [C10]
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VWaarde = [D2]
End Sub
Ik hoop dat de vraag een beetje duidelijk is en dat iemand mij hiermee kan helpen.
Alvast bedankt,
Boris