Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Volgorde bediening van knoppen

  • Vraag is opgelost
  1. #1
    Member ZIPPO_2's avatar
    Geregistreerd
    21 juni 2006
    Locatie
    Brasschaat
    Afstand tot server
    ±174 km

    Volgorde bediening van knoppen

    Hallo iedereen

    Ik heb op een blad 2 knoppen staan 1 om een kopie te maken van het ingevulde blad en 1 om nadien het ingevulde blad te wissen( dit werkt trouwens perfekt)
    Wat ik nu wil bekomen is dat ik de knop Wissen pas kan bedienen nadat de Kopie effectief gemaakt is.

    Een bijkomend vraagje Kan er iemand mij het verschil uitleggen tussen een Formulierknop en een ActiveX knop

    Grtjs
    Ron
    ZEG NIET ALTIJD WAT JE WEET, MAAR WEET ALTIJD WAT JE ZEGT !

  2. #2
    Je kan in de eerste code ook je tweede code inzetten.
    stel je eerste code heet 'sub copietje', je tweede heet 'sub wissen'.

    Bv.
    sub copietje()
    -----kopieer code-----
    wissen
    end sub

    Zo heb je maar één knop nodig, en kan er niets verkeerd gaan.

    De activeX-knoppen kun je makkelijker beinvloeden door de eigenschappen.
    De formulierknoppen hebben een groot nadeel vind ik.
    Als je iemand het bestand toezend, moet die vaak eerst het bestand opslaan, daarna de code weer aan de knop hangen, en weer opslaan.
    ____________
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  3. #3
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    Brasschaat, da's niet ver bij mij vandaan
    Een formulierknop kan je een macro aan toewijzen en gedaan. Een ActiveX-knop bevat verschillende eigenschappen die afzonderlijk aangepast of gebruikt kunnen worden. bv zichtbaarheid, mee afdrukken, kleur knop, kleur tekst, enz....
    Voor jouw probleem kan je dan de eigenschap Visible instellen van je 2de knop (wissen) bij de macro v/d eerste knop (Kopie)
    Laatst aangepast door Warme bakkertje : 6 mei 2012 om 13:18
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  4. #4
    Member ZIPPO_2's avatar
    Geregistreerd
    21 juni 2006
    Locatie
    Brasschaat
    Afstand tot server
    ±174 km
    Alvast bedankt voor de snelle reacties
    Ik heb wat aan het puzzelen geweest maar ik krijg het blijkbaar niet voor mekaar.
    Bijgevoegd de 2 codes.
    Als ik beide codes vermeng moet ik dan nog iets weglaten of bijvoegen
    Code:
    Sub KOPIE()
    ActiveWorkbook.Unprotect Password:="X"
    If MsgBox("MAAND VOLLEDIG INGEVULD? KLIK DAN JA!", vbYesNo + vbExclamation, "MAAND OPSLAAN") = vbYes Then
    Sheets("MAAND").Cells.Copy
      ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
           .Cells.PasteSpecial Paste:=xlPasteFormats
           .Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
           .Name = Sheets("MAAND").Range("G3")
                   Application.Goto .Range("A1")
        ActiveWindow.DisplayGridlines = False
      End With
     Application.CutCopyMode = False
     End If
    ActiveWorkbook.Protect Password:=""
    
    End Sub

    Code:
    Sub MaandWissen()
    ActiveSheet.Unprotect Password:="X"
    If MsgBox("ALLE DATA WEGGESCHREVEN? KLIK JA!", vbYesNo + vbExclamation, "MAAND WISSEN") = vbYes Then
    Application.EnableEvents = False
    With ActiveSheet.Range("G3:I4,E7:J27,M7: AF27 ")
    .ClearContents
    .Font.ColorIndex = 1
    .Interior.ColorIndex = 0
    End With
    Application.EnableEvents = True
    Range("G3").Select
    End If
    ActiveSheet.Protect Password:="X"
    End Sub
    ZEG NIET ALTIJD WAT JE WEET, MAAR WEET ALTIJD WAT JE ZEGT !

  5. #5
    Zoals ik dan voorstelde; Met één knop → Sub KOPIE()
    Test het in een testbestandje.
    Code:
    Sub KOPIE()
    ActiveWorkbook.Unprotect Password:="X"
    If MsgBox("MAAND VOLLEDIG INGEVULD? KLIK DAN JA!", vbYesNo + vbExclamation, "MAAND OPSLAAN") = vbYes Then
    Sheets("MAAND").Cells.Copy
      ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
           .Cells.PasteSpecial Paste:=xlPasteFormats
           .Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
           .Name = Sheets("MAAND").Range("G3")
                   Application.Goto .Range("A1")
        ActiveWindow.DisplayGridlines = False
      End With
     ActiveWorkbook.Protect Password:=""
       MaandWissen
     End If
    End Sub
    Code:
    Sub MaandWissen()
    With Sheets("MAAND")
          .Unprotect Password:="X"
         With .Range("G3:I4,E7:J27,M7:AF27")
          .ClearContents
          .Font.ColorIndex = 1
          .Interior.ColorIndex = xlNone
         End With
        Application.Goto .Range("G3")
          .Protect Password:="X"
      End With
    End Sub
    ____________
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  6. #6
    Member ZIPPO_2's avatar
    Geregistreerd
    21 juni 2006
    Locatie
    Brasschaat
    Afstand tot server
    ±174 km

    Thumbs up

    Dit werkt perfekt. Bedankt voor de moeite
    Grtz
    Ron
    ZEG NIET ALTIJD WAT JE WEET, MAAR WEET ALTIJD WAT JE ZEGT !

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Linkpartners
Aanbiedingen