• 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.

selectievakje koppelen aan vba??

Status
Niet open voor verdere reacties.

carl24

Gebruiker
Lid geworden
25 mrt 2008
Berichten
22
selectievakje koppelen aan Marco+formule??

ik zal het even uitleggen:In mijn excel bestand zitten 3 tabbladen

tab blad1
tab blad2
tab blad3

In blad3 zitten 3 selectievakjes en een knop reset(met marco toewijzen wil ik dit aan een vba formule toewijzen :de formule heb ik nog niet),ik zou dan willen dat wanneer 1 van de selectievakje WAAR is en ik op de reset knop druk ,dat alleen blad1&blad2 cellen gaan wissen zie vb:

blad3
selectievakje 1 (waar) tenbehoeve blad1
selectievakje 2 (waar) tenbehoeve blad2
selectievakje 3 (onwaar) tenbehoeve blad3

resultaat
blad1
cel A1 krijgt een -
cel C1 krijgt ook een -
cellen A5 tm J20 worden gewist(hierin staat vaak aantekening maar die moeten dan gewist worden)
cellen L5 tm P20 worden gewist

blad2
cel A1 krijgt een -
cel C1 krijgt ook een -
cellen A5 tm J20 worden gewist
cellen L5 tm P20 worden gewist

wie kan me helpen om zo'n Macro formule te maken

dit wil ik later uitbreiden tot 10 tabbladen
 
Laatst bewerkt:
Waar heb je de knop vandaan?
Is het van:

- Beeld - Werkbalken - Formulieren of
- Beeld - Werkbalken - Werkset besturingselementen

Met vriendelijke groet,


Roncancio
 
Waarvoor heb je ook een selectievakje voor blad3.
Staan daar de zelfde gegevens op als bij blad1 en blad2?

Wim
 
Code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Worksheets("Blad1").Range("A1").Value = "-"
    Worksheets("Blad1").Range("C1").Value = "-"
    
    Worksheets("Blad1").Range("A5:J20").ClearContents
    Worksheets("Blad1").Range("L5:P20").ClearContents
End If

End Sub

Private Sub CheckBox2_Click()
If CheckBox1.Value = True Then
    Worksheets("Blad2").Range("A1").Value = "-"
    Worksheets("Blad2").Range("C1").Value = "-"
    
    Worksheets("Blad2").Range("A5:J20").ClearContents
    Worksheets("Blad2").Range("L5:P20").ClearContents
End If

End Sub

Deze code kan je gewoon opnemen in je VBA van werkblad3.
Je moet echter wel gebruik maken van ActiveX-besturingselementen.

Wim
 
Waarvoor heb je ook een selectievakje voor blad3.
Staan daar de zelfde gegevens op als bij blad1 en blad2?

Wim


op blad 1 staan gegevens van een project
op blad 2 staat ook weer een project met gegevens
dit wil ik uitbreiden tot 18 tabbladen

op mijn blad3 heb ik een overzicht van18 projecten(blad3 krijgt later een andere naam)
en die wil ik door middel van selectievakjes in totaal zal er 18 selectievakje zijn
ze resetten. Want deze blad heb ik elke 2 weken nodig om uren op teboeken voor projecten.
Sommige projecten kunnen blijven staan andere moeten worden verwijdert,dit wordt weer gebruikt voor dekomende 2 weken
 
Laatst bewerkt:
Code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Worksheets("Blad1").Range("A1").Value = "-"
    Worksheets("Blad1").Range("C1").Value = "-"
    
    Worksheets("Blad1").Range("A5:J20").ClearContents
    Worksheets("Blad1").Range("L5:P20").ClearContents
End If

End Sub

Private Sub CheckBox2_Click()
If CheckBox1.Value = True Then
    Worksheets("Blad2").Range("A1").Value = "-"
    Worksheets("Blad2").Range("C1").Value = "-"
    
    Worksheets("Blad2").Range("A5:J20").ClearContents
    Worksheets("Blad2").Range("L5:P20").ClearContents
End If

End Sub

Deze code kan je gewoon opnemen in je VBA van werkblad3.
Je moet echter wel gebruik maken van ActiveX-besturingselementen.

Wim

de code ziet er goed uit ,maar wat ik niet snap is hoe kan ik deze code toewijzen op een knop, kan je misschien doormiddel van een excel-bestandje me laten zien met de code?
 
Laatst bewerkt:
Deze doet hetzelfde

Code:
Private Sub CheckBox1_Click()
  If CheckBox1.Value = True Then
    With sheets("Blad1")
      .Range("A1,C1").Value = "-"
      .Range("A5:J20,L5:P20").ClearContents
    End with 
  End If
End Sub


Code:
Private Sub CheckBox2_Click()
  If CheckBox2.Value = True Then
    With sheets("Blad2")
      .Range("A1,C1").Value = "-"
      .Range("A5:J20,L5:P20").ClearContents
    End with 
  End If
End Sub
 
Volgens mij wil de TS dat door te klikken op een knop de gegevens worden aangepast.
NIET per checkbox.

Code:
Sub Leegmaken()
For CB = 1 To ActiveSheet.CheckBoxes.Count
    If ActiveSheet.CheckBoxes(CB).Value = 1 Then
        With Worksheets(ActiveSheet.CheckBoxes(CB).Caption)
            .Range("A1,C1").Value = "-"
            .Range("A5:J20,L5:P20").ClearContents
        End With
    End If
Next
End Sub

@Carl24
Ik neem aan dat je al een knop heb op het scherm.
Doe dan het volgende:
Ga naar:
- Extra - Macro - Visual Basic Editor.
- Kies voor Invoegen - Module.
- Plak hier bovenstaande code.
- Ga terug naar het werkblad. (bijv. Excel logo links in het menu)
- Klik met je rechtermuisknop op de knop
- Selecteer Macro toewijzen...
- Selecteer de macro.
- Klik op Ok.

Bovenstaande macro werkt ongeacht het aantal werkbladen icm checkboxes.
Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Volgens mij wil de TS dat door te klikken op een knop de gegevens worden aangepast.
NIET per checkbox.

Code:
Sub Leegmaken()
For CB = 1 To ActiveSheet.CheckBoxes.Count
    If ActiveSheet.CheckBoxes(CB).Value = 1 Then
        With Worksheets(ActiveSheet.CheckBoxes(CB).Caption)
            .Range("A1,C1").Value = "-"
            .Range("A5:J20,L5:P20").ClearContents
        End With
    End If
Next
End Sub

@Carl24
Ik neem aan dat je al een knop heb op het scherm.
Doe dan het volgende:
Ga naar:
- Extra - Macro - Visual Basic Editor.
- Kies voor Invoegen - Module.
- Plak hier bovenstaande code.
- Ga terug naar het werkblad. (bijv. Excel logo links in het menu)
- Klik met je rechtermuisknop op de knop
- Selecteer Macro toewijzen...
- Selecteer de macro.
- Klik op Ok.

Bovenstaande macro werkt ongeacht het aantal werkbladen icm checkboxes.
Met vriendelijke groet,


Roncancio

Hoi, het is inderdaad dat ik een knop wil gebruiken.

toch lukt het me niet


Sub Leegmaken()
For CB = 1 To ActiveSheet.CheckBoxes.Count
If ActiveSheet.CheckBoxes(CB).Value = 1 Then
With Worksheets(ActiveSheet.CheckBoxes(CB).Caption)
.Range("A1,C1").Value = "-"
.Range("A5:J20,L5:P20").ClearContents
End With
End If
Next
End Sub



de gekleurde tekst geeft aan dat het niet werkt- ik snap het niet

maar kan je het me met een excel document laten zien ,
om het te verduidelijken
 
Laatst bewerkt:
bij deze een voorbeeldbestand

Met vriendelijke groet,


Roncancio

Roncacio,

ik heb jouw bestand bekeken
en een extra tabblad gekopieert en daarna een extra selectievakje in blad3 gemaakt
en daarna getest ----Het werkt gewoon perfect------ je hebt het me heel erg makkelijk gemaakt

heel erg bedankt :D

de rest van de mensen mijn dank is groot

ik zal dit binnen kort als opgelost aangeven indien ik dit in me excel bestand heb geintegeert THX Thx
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan