• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro knop ?

Status
Niet open voor verdere reacties.

grema

Gebruiker
Lid geworden
2 dec 2006
Berichten
659
hoi ,

'k zoek een reeks van cellen via een macro te vermenigvuldigen of te resetten

Op Blad 1 :
knop 1 = vermenigvuldigen
knop 2 = terugzetten naar oorsprong

Op blad 2
kolom 1 rij 1 = waarde 10
rij 2 = waarde 20
rij 3 = waarde 30
 
Ik begrijp het toch niet helemaal? Is je probleem de code achter de knop? Of de knop zelf?

Wat wil je trouwens precies doen? 3 cellen vermenigvuldigen?
 
wigi,

de knop maken is geen probleem " reeds teruggevonden " denk ik toch.

De code geeft me kopbrekens .... ben nog steeds geen specialist ....

Zoek in een blad een reeks van ongeveer 100 getallen (prijzen ) via een knop een aanpassing te doen ( dus dacht ik ... indien iemand me even op weg zet , kan ik het verder testen in het bestand dat ik reeds geschreven had )

Dus misschien kan je me eruit helpen

grema
 
En welke aanpassing wil je doen aan de getallen (prijzen) ?
 
in bijlage zip bestand ter verduideluiking van hetgeen ik zoek

grema
 
Laatst bewerkt:
neen ,


kijk even naar zip bestandje in antwoord " 6 " aub

de rest was ter info dat ik ook verder zocht en voor anderen die er misschien iets aan hadden .
 
OK, ik zet 2 knoppen op blad1. Wat moet er nu specifiek met elk van die knoppen gebeuren als je er op klikt? "De waarde van een knop" zie ik toch niet zo goed zitten.
 
knop 1 zou moeten de getallen in Kolom A van rij 1 tot rij 10 moeten vermenigvuldigen met een faktor ( zie mijn voorbeeld op Blad 2 knop 1 faktor 1.20 ) ( maar deze faktor moet aanpasbaar blijven . Daarom plaatste ik hem op een ander Blad.

knop 2 zou de getallen : indien die aangepast werden door knop 1 terug moeten zetten naar hun oorspronkelijke waarde .

Kan dit en hoe ?
 
Hier is 'em

Code:
Private Sub CommandButton1_Click()
    Sheets("Blad2").Range("B3").Copy
    Range("A1:A10").PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
End Sub

Private Sub CommandButton2_Click()
    Sheets("Blad2").Range("B3").Copy
    Range("A1:A10").PasteSpecial Paste:=xlPasteValues, Operation:=xlDivide
End Sub

Op blad 2 heb je B4 niet nodig. Enkel B3 om te vermenigvuldigen (knop 1) en te delen (knop 2).

Wigi
 
wigi ,

kan je in retour even het bestandje volledig mee sturen ...( krijg bij mij een syntax fout indien ik de knop wil bewerken ) . krijg kop nog staart aan de knoppen ... De formule die je schreef versta ik wel !

'k ben echter nog veel te leek in het maken van deze knoppen en formules .
 
Maak gewoon een nieuwe knop aan. Standaard zal die de naam krijgen:

CommandButton1

klik rechts op de gemaakte knop en kies Programmacode weergeven...

Daar zorg je dat mijn code er staat.

Maak ook je 2de knop aan. Die krijgt standaard de naam:

CommandButton2

Excel telt telkens 1 verder.

Je mag de naam van de knop veranderen, maar verander dat dan ook in de code die ik je gegeven heb.
 
Thanks :thumb: :D :thumb:

probeer er nu nog achter te komen hoe je de knop liet overeenkomen met hetgeen hij moest doen, want dat zie ik nog niet . :(
 
Thanks :thumb: :D :thumb:

probeer er nu nog achter te komen hoe je de knop liet overeenkomen met hetgeen hij moest doen, want dat zie ik nog niet . :(

Rechts klikken op de knop, dan kom je direct bij de code ervan terecht.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan