probleempje met code

Status
Niet open voor verdere reacties.
G

ginogcsbelgie

Gebruiker
Lid geworden
17 nov 2014
Berichten
63
Goeiemiddag iedereen, ik ben met een pojectje bezig die bij het openen van de exell in bepaalde cellen gaat controleren of de datum vandaag is of hoger dan de datum van vandaag, wanneer de datum vandaag juist is is in die cel moet hij bepaalde rijen kopieren naar een ander blad en dat doet hij ook. Alleen als de tweede datum in mijn code toch niet vandaag is kopieert hij deze telkens mee met de eerste codeblok? weet iemand hoe dit komt?
Hieronder mijn code, alvast bedankt voor de hulp.

Code: 
Private Sub Workbook_Open()

Sheets("KALENDER").Select
If Date > Range("B7") Then
Exit Sub
 Else
 
 Rows("3:16").Select
    Selection.Cut
    Sheets("DAG").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
Sheets("KALENDER").Select
 Range("A3").Select
 End If

If Date > Range("B21") Then
Exit Sub
 Else
 
 Rows("16:30").Select
    Selection.Cut
    Sheets("DAG").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
Sheets("KALENDER").Select
 Range("A3").Select
End If
End Sub
 
Verwijder in VBA alle 'select' 's.
 
Heb de oplossing zelf gevonden, alvast bedankt voor de hulp.
Maar nog 1 vraag aan snb, wat bedoel je met het verwijderen van alle select(s)
als ik van deze regel
Code: 
Range("C1").Select
Code: 
Range("C1")
maak krijg ik foutmeldingen.
 
Ik zie in jouw code geen Range("C1") staan.

Code: 
Sheets("KALENDER").Rows("3:16").Cut

Code: 
   Sheets("DAG").Rows(3).Insert
Staat allemaal voorin je cursusboek VBA voor beginners.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan