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

Wijziging waarde

Status
Niet open voor verdere reacties.
K

Krist

Gebruiker
Lid geworden
18 nov 2002
Berichten
344
Hallo,

Ik wil het weekprogramma bijhouden van enkele jongeren die sporten. Ik vul het programma in op het eerste werkblad. Die is dan gelinkt aan het weekprogramma.
Als na twee weken het programma wijzigt dan wordt die ook in de eerste week gewijzigd.
Is er een mogelijkheid dat bij wijziging enkel de toekomstige weken worden veranderd. Anders weet ik niet meer wat er de voorbije weken werd gedaan.
In bijlage een klein voorbeeld.

Alvast dank!Bekijk bijlage Programma.xlsxBekijk bijlage Programma.xlsx
 
Is dit iets?
 

Bijlagen

  • meedere tabbladen wijziging.xlsm
    30,6 KB · Weergaven: 57
Dat werkt perfect!
Hoe heb je dit gedaan?
Hoe kan ik de knop aanpassen?

Thx
 
Er zit een macro achter de knop die ervoor zorgt dat de juiste tabbladen worden aangepast.

Wat wil je precies aanpassen? Met de visual Basic editor kan je de code aanpassen.
 
Kiezen voor tab Ontwikkelaars en dan Ontwerpmodus aanklikken.
Dan de button rechtsklikken.
Nu kan je alle wijzigen van de knop doorvoeren.

Daarna weer de Ontwerpmodus uitschakelen.
 
OK... Gevonden
Eens bestuderen :)
Hartelijk dank. HIermee kan ik verder!

groeten,
Krist
 
Hallo,

Het is me gelukt. Toch nog een vraagje:
De wijzigingen lopen tot het eind van alle tabbladen.
Is er een mogelijkheid dat hij na bv 10 weken stopt, zodat ik een ander tabblad erna kan maken?

groeten
 
Wat bedoel j met een ander tabblad erna?
Code: 
WS_Count = ActiveWorkbook.Worksheets.Count
naar
WS_Count = 11
 
Mooi, mooi...
Met ander tabblad bedoelde ik bv grafieken, conclusies, ...
Daar moet het programma niet komen.

Dankjewel
 
In je voorbeeld stond na de weekbladen niets, dus daar had ik niets voor verzonnen.

Nu kan je opgegeven welke weken je wil aanpassen.
 

Bijlagen

  • meedere tabbladen wijziging.xlsm
    31,1 KB · Weergaven: 46
Hallo,

dat werkt dus prima! Waarvoor dank...
Echter, er was iemand die het invulde en een groter getal invulde, waardoor de grafiekjes naar de knoppen waren.
Kan er een soort beveiliging op? Ik heb een tabblad einde ingevoegd zodat bv de wijziging maar tot daar wordt doorgevoerd?

Alvast dank
 

Bijlagen

  • meedere tabbladen wijziging2.xlsm
    27,5 KB · Weergaven: 52
Zet deze code eens onder je knop.

Code: 
Private Sub CommandButton2_Click()

If [G4] > 11 Or [I4] > 11 Then
MsgBox "Mag maximaal 11 zijn!"
Exit Sub
End If
Application.ScreenUpdating = False
Dim WS_Count As Integer
Dim I As Integer
WS_Count = Blad1.Range("I4").Value + 1

Dim Source As Range

Set Source = ThisWorkbook.Worksheets(1).Range("B2:B6")

For I = Blad1.Range("G4").Value + 1 To WS_Count

    ThisWorkbook.Worksheets(I).Select
    Source.Copy
    Worksheets(I).Range("B2:B6").Select
    ActiveSheet.Paste

Next I

Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
 
Of:
Code: 
Private Sub CommandButton2_Click()
Dim i As Long
 For i = [g4].Value To [I4].Value
  If Not IsError(Evaluate("'week " & i & "'!A1")) Then Sheets("week " & i).Range("b2:b6") = Range("b2:b6").Value
 Next i
End Sub
 
Code: 
Private Sub CommandButton2_Click()

If [G4] > 11 Or [I4] > 11 Then
MsgBox "Mag maximaal 11 zijn!"
Exit Sub
End If
Application.ScreenUpdating = False
Dim WS_Count As Integer
Dim I As Integer
WS_Count = Blad1.Range("I4").Value + 1

Dim Source As Range

Set Source = ThisWorkbook.Worksheets(1).Range("B2:B6")

For I = Blad1.Range("G4").Value + 1 To WS_Count

    ThisWorkbook.Worksheets(I).Select
    ActiveSheet.Unprotect Password:="Olifant"
    Source.Copy
    Worksheets(I).Range("B2:B6").Select
    ActiveSheet.Paste
    ActiveSheet.Protect Password:="Olifant"

Next I

Worksheets(1).Select
Application.ScreenUpdating = True

End Sub

Nu wel?
 
Inderdaad:)
Mijn code stond op de verkeerde plaats? Kan je even uitleggen waarom?
Alvast dank!
 
Ja, hij pakt het op dat moment actieve werkblad. Je wilt bij meerdere werkbladen beveiliging opheffen - bewerken - beveiligen. Dan moet het dus onderdeel van je Loop zijn.

Op de plek waar jij het had geplaatst zou het Sheets(1) alleen raken.
 
Waarom zien we die onnodige select iedere keer weer verschijnen in de code.

Ik heb op m'n telefoon geen Excel, dus als @SjonR nog even z'n best doet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan