*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Verekenen uit een validatiecel?  (gelezen 3436 keer)

0 leden en 1 gast bekijken dit topic.

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Verekenen uit een validatiecel?
« Gepost op: 26 januari 2004, 00:12:36 »
Hallo allemaal,
In een werkblad is cel f 25 voorzien van een validatielijst. N.l schoudertassen, loodjes ,elastieken, fietstassen, touwtjes en zakken. Als er een bestelling gedaan wordt komt in cel f31 een totaal bedrag. Nu wil ik dit totaalbedrag verekenen met het bedrag wat in voorraad staat. In cel t8, t10, t12, t14, t16 en t18 staan de bedragen van de artikelen waarvan het bedrag van de bestelling moet worden afgetrokken. Dus als ik in cel f25 loodjes kies, en het bedrag van de bestelling is €25, dan moet in cel t10 het bedrag in mindering gebracht worden. Kise ik bv. fietstassen dan moet in cel t14 het bedrag verekend worden. Enz enz...Pffffft, een heel verhaal. Ik kom er niet uit. Is er wellicht via een VBA een mogelijkheid??
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Verekenen uit een validatiecel?
« Reactie #1 Gepost op: 26 januari 2004, 09:58:14 »
Kan je niet beter werken met de functie vert.zoeken() in combinatie met de als().

Een voorbeeld bestandje zou handiger zijn.
Gelogd
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Re:Verekenen uit een validatiecel?
« Reactie #2 Gepost op: 26 januari 2004, 17:14:21 »
Heb ik nu geprobeerd, werkt niet.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Verekenen uit een validatiecel?
« Reactie #3 Gepost op: 27 januari 2004, 00:37:20 »
Plaats eens een voorbeeldje - dit werkt sneller voor mij - dan zal ik eens kijken.
Gelogd
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Re:Verekenen uit een validatiecel?
« Reactie #4 Gepost op: 31 januari 2004, 21:20:12 »
Hoe krijg ik dit bestandje dan naar je toe gemaild?
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Verekenen uit een validatiecel?
« Reactie #5 Gepost op: 31 januari 2004, 21:26:01 »
Als je het documentje zipt dan kan je het in dit forum aan je bericht toevoegen.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Re:Verekenen uit een validatiecel?
« Reactie #6 Gepost op: 31 januari 2004, 21:38:21 »
Bedankt voor de tip. door al het gepuzzel is het werkblad enigzins aangepast. De bedoeling blijft het zelfde.

Wino
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Verekenen uit een validatiecel?
« Reactie #7 Gepost op: 31 januari 2004, 23:07:29 »
Definieer eerst volgende namen in het werkblad:

I9 : Aankoop
E29 : Verkoop
P9 : Zakjes
P11 : Touwtjes
P13 : Fietstassen
P15 : Draagtassen
P17 : Elastieken
P19 : Loodjes

Volgende macro's kunnen dan aan de knoppen toewijzen:

Sub verrekenAankoop()
  Range(Range("Aankoop")) = Range(Range("Aankoop")) + Range("I19")
  Range(Range("Aankoop")).NumberFormat = _
    "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub

Sub verrekenVerkoop()
  Range(Range("Verkoop")) = Range(Range("Verkoop")) - Range("I19")
  Range(Range("Verkoop")).NumberFormat = _
    "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub

Het uitgewerkt voorbeeld in bijlage:
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Re:Verekenen uit een validatiecel?
« Reactie #8 Gepost op: 01 februari 2004, 14:37:43 »
Ingrid 't werkt prima en hartstikke bedankt.
Wino
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline wino

  • Lid
  • *
  • Berichten: 42
  • Oplossing.be
Re:Verekenen uit een validatiecel?
« Reactie #9 Gepost op: 01 februari 2004, 15:59:14 »
PS,
Ik heb alleen bij de routine verkoop range i19 veranderd in range e35. Daarna werkte het prima!

Gr Wino
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com