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

Select van Range mislukt

Status
Niet open voor verdere reacties.

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Als je op blad1, op de knop [Nieuw toernooi] klikt, worden op 2 bladen bepaalde cellen gewist.
Daarna zouden de begincellen moeten geselecteerd worden.
En hier loopt het mis: Op blad2, wordt cel G3 niet geselecteerd.
Foutmelding: "Select van range mislukt"
Ik zal wel iets heel dom doen, maar wat?
Code:
Sub leegmaken()
Application.ScreenUpdating = False
With Sheets(1)
.Unprotect
.Range("B2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).ClearContents
.Range("B2").Select
.Protect
End With
With Sheets(2)
.Unprotect
.Range("A3:B214").ClearContents
.Range("H3:G214").ClearContents
.Range("M2").ClearContents
[COLOR="#FF0000"].Range("G3").Select[/COLOR]
.Protect
End With
Application.ScreenUpdating = True
End Sub
 

Bijlagen

  • Loting toernooi1.xlsm
    51 KB · Weergaven: 28
Dat zal komen omdat je op dat moment Sheets(1) als active sheet hebt.
Als sheets(2) actief is zal het wel werken maar dan zal de select van b2 op Sheets(1) fout gaan.
Laat het gewoon weg, het is niet nodig.
Of controleer eerst welk blad je actief hebt voordat je een cel actief maakt.
 
Laatst bewerkt:
Dat zal het zijn Ed,
Ik was in de veronderstelling, dat als de [ClearContents] werkt, dan zal de [Select] ook wel werken.
Niet dus.
Maar je hebt gelijk, het is niet echt nodig, het is maar verfraaiing.
Bedankt!
 
Probeer deze maar eens:
Code:
Sub leegmaken()
    Application.ScreenUpdating = False
    With Sheets(1)
        .Unprotect
        .Range("B2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).ClearContents
        .Protect
    End With
    
    With Sheets(2)
        .Unprotect
        .Range("A3:B214, H3:G214, M2").ClearContents
        .Protect
    End With
    
    Select Case ActiveSheet.Name
        Case "Blad1": Range("B2").Select
        Case "Blad2": Range("G3").Select
    End Select
    Application.ScreenUpdating = True
End Sub
 
Laatst bewerkt:
Ik had het opgelost met 2 extra regels:
Code:
Sheets(2).Activate
En daarna opnieuw
Code:
Sheets(1).Activate
Maar die ACTIVATE in een code is maar niks.
Jouw voorstel is professioneler.
Bedankt
 
Let ook op de gegroepeerde range bij ClearContents op Sheets(2).
Wellicht ook een leermomentje :)
 
Dat had ik opgemerkt Ed,
Ik heb die groepering vroeger al toegepast, maar ik vergeet nogal vlug (Alzheimer?)
 
Wellicht. De Light versie dan :p
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan