caption knop veranderen

[johndirk]

hi
ik heb 2 macro's en ik wil een button de werk van 2 knoppen doen.
eerst gaat de eerste macro uitvoeren daarna de caption van de button
verandert na de uitvoering eerste macro dan caption 2de macro verschijnt
en na indrukken op de knop de 2de macro wordt uitgevoerd.
vb:
eerst de naam knop is "start" en wist alle uw werk na indrukken op start de naam verandert in "bereken" en berekent de formule.
een knop:
caption start
macro1:
Sub Macro1()
Range("A4:H431").Select
Selection.EntireRow.Delete
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("De vergoeding").Select
ActiveWindow.SmallScroll Down:=-15
Rows("1:4").Select
Selection.EntireRow.Hidden = False
Range("A3").Select
ActiveCell.FormulaR1C1 = "1"
Rows("2:3").Select
Selection.EntireRow.Hidden = True
End Sub

na uitvoering van macro 1
caption knop verandert in bereken
dus pauze in de berekening
als u drukt op knop bereken macro2 uitvoerd
macro 2
Sub Macro1()
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
End Sub
ik konde niet met als functie dan (if then else) dit functie in excel maken
is dit mogelijk in excel?

 

[Roncancio]

Ja, dat kan wel maar dan kan je beter een wisselknop gebruiken.
In bijgevoegd bestand heb ik een wisselknop geplaatst met een afgeslankte versie van je code.

Met vriendelijke groet,


Roncancio

 

[johndirk]

bedankt Roncancio

ik heb de code haastig gemaakt mijn excuses
dat was mijn bedoeling zo knop maken.

veel dank Roncancio

 

[johndirk]

mag ik vragen hoe heb jij dit gedaan?

ik snap niet hoe hebt u dit uitgevoerd
kunt u voor mij uitleggen hoe heeft u dit uitgevoerd?

 

[Roncancio]

ik snap niet hoe hebt u dit uitgevoerd
kunt u voor mij uitleggen hoe heeft u dit uitgevoerd?

Wat snap je precies niet?

Met vriendelijke groet,


Roncancio

 

[johndirk]

ik de macro code zien

Ik kan niet zien jou macro code voor wissel de knop.
Kunt u uw macro code voor wisselknop hier naar mij laat zien(wisselknop.xls)

ik kan daarna kan ik mijn code aanpassen en weten waar heb ik fout gedaan.

veel dank

 

[johndirk]

macro's van de wisselknop zijn niet zichtbaar

ik kan niet jou macro's zien of vinden.
hebt u uw macros toegevoegd?
anders kan ik de macro voor wissel knop zien?

 

[Roncancio]

ik kan niet jou macro's zien of vinden.
hebt u uw macros toegevoegd?
anders kan ik de macro voor wissel knop zien?

De macro's staan bij Extra - Macro - Visual Basic Editor.

Met vriendelijke groet,


Roncancio

 

[johndirk]

bedankt ik dacht eerst u had een macro gemaakt

het is dom van mij ik dacht u had een macro gemaakt.
I heb uw code gezien en veel dank
mijn excuses voor de fout.

 

[Roncancio]

het is dom van mij ik dacht u had een macro gemaakt.
I heb uw code gezien en veel dank
mijn excuses voor de fout.

Geen probleem.
De wisselknop verwijst naar je aangepaste macro.

Met vriendelijke groet,


Roncancio

 

[johndirk]

Kan ik hetzelfde doen in macro?

Het is mooi dat ik kan van visual basic in excel gebruiken.
ik wil mijn macro aanpassen en ik heb allemaal macro's.
anders moet ik alle mijn macro's omzetten naar visual basic.

kunt u hetzelfde maken in macro's?

 

[johndirk]

verkeerde spreadsheet

Ik krijg een foutmelding bij onderstaande macro:

Sub Macro1()
If Tgl_Macro.Value = True Then
Range("4:431").Delete
Sheets("De vergoeding").Range("A3").Value = 1
Tgl_Macro.Caption = "Berekenen"
Else
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Tgl_Macro.Caption = "Start"
End If
End Sub

 

[johndirk]

dank u ik heb het opgelost

het was weer een domme vraag van mij sorry
ik heb het volleig op internet opgezoekt
en nu weet ik de toggle button