zoeken van een cel in een werkblad die gelijk is aan variabele cel

[chrisannda2]

Ik zoek een manier die ik in een macro kan gieten om:
de inhoud van een cel, (vb.A2=2450) , die variabel is (handmatig of door de macro geactiveerd) te gebruiken om in een ander werkblad hetzelfde cijfer op te zoeken.
Het probleem is dat ik de functie 'zoeken of verticaal zoeken' in mijn macro gebruik, door de cel A2 te kopiëren en te plakken, doch dat de macro steeds hetzelfde getal (=2450) onthoudt en gebruikt en niet de variabele inhoud van deze cel A2.

Deze macro dient in feite om producten, die verkocht zijn, weg te schrijven naar de stock als verkocht! Anders moet ik dit handmatig doen... opzoeken van artikelnummer, naar de kolom "nog in stock" gaan, het aantal verminderen met 1...
Alvast bedankt voor een oplossing!

 

[Joske2000]

Hi,

welkom op het forum.
Kan je misschien een voorbeeldbestandje plaatsen (zippen of rarren).
Gelieve deze wel te ontdoen van vertrouwelijke gegevens.
Dan kunnen we verder met hetgeen je al hebt.

Joske

 

[chrisannda2]

Hierbij een afgeslankte versie van het bestand.

 

[Joske2000]

Hierbij een afgeslankte versie van het bestand.

Wel heel erg afgeslankt !

Geen bestandje bijgevoegd.

 

[chrisannda2]

ik kan blijkbaar geen excel-file als bijlage toevoegen!

Ik geef dan maar de macro:

Sub verkochtnaarstock()
'
' verkochtnaarstock Macro
' De macro is opgenomen op 31/05/2007
'
' Sneltoets: CTRL+m
'
Sheets("stock").Select
Cells.Select
Selection.Find(What:="2338", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Range("X2339").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]-1)"
Range("X2339").Select
Selection.Copy
Range("U2339").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("X2339").Select
Selection.ClearContents
Sheets("VERKOCHT2007").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Interior.ColorIndex = 4

Alles draait rond die range X2339 : die zou die variabele moeten aannemen!

Bedankt

 

[richard1970]

Beste chrisannda2,

Een excel bestand moet je eerst zippen of rarren.

Richard

 

[chrisannda2]

poging nr. 2 - zip-fileke

 

[Wigi]

chrisannda2

Je maakt in het bestandje een veelgemaakte fout:

=SUM(A2)

kan simpeler als

=A2

En dit is dan ook zo in de hele kolom! Elders ook

=SUM(K2*S2)

wordt

=K2*S2

en

=SUM(S2-U2)

wordt

=S2-U2

Doortrekken voor de hele kolom. Bekijk tip nummer 2 op mijn site, dan Excel, dan Tips: pagina 1.

Wigi

 

[Wigi]

Bestand voor voorraadbeheer

En nu antwoord op de eigenlijke vraag van jou.

Als ik de code en het bestandje bekijk, dan moet ik zeggen dat je nog veel winst kan boeken door de code te verbeteren. Ik heb zelf ook eens voor iemand een voorraadbeheerbestand gemaakt enkele maanden terug. Tevens kan dat bestandje ingescande barcodes verwerken en ook producten met een promotie verkopen. Bestand staat wel niet op mijn site. Als je ook interesse hebt in zoiets, laat dan maar iets weten.

Wim

 

[chrisannda2]

Beste Wim,

Je mag mij deze, vrijblijvend, bezorgen.

Misschien zitten er interessante ideeën tussen.

Ik heb in ieder geval al aanpassingen gedaan,maar volledig in orde is het nog niet.

mail: chris.n.cautaerts@skynet.be

Bedankt