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

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Select van Range mislukt

  1. #1
    Senior Member
    Geregistreerd
    26 juni 2009
    Locatie
    Hasselt Vlaanderen
    Vraag is opgelost

    Select van Range mislukt

    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
    .Range("G3").Select
    .Protect
    End With
    Application.ScreenUpdating = True
    End Sub
    Attached Files Attached Files

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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 aangepast door edmoor : 11 januari 2017 om 13:03
    "As far as I know, my computers have never had an undetected error. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  3. #3
    Senior Member
    Geregistreerd
    26 juni 2009
    Locatie
    Hasselt Vlaanderen
    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!

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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 aangepast door edmoor : 11 januari 2017 om 13:23
    "As far as I know, my computers have never had an undetected error. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  5. #5
    Senior Member
    Geregistreerd
    26 juni 2009
    Locatie
    Hasselt Vlaanderen
    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

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Let ook op de gegroepeerde range bij ClearContents op Sheets(2).
    Wellicht ook een leermomentje
    "As far as I know, my computers have never had an undetected error. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  7. #7
    Senior Member
    Geregistreerd
    26 juni 2009
    Locatie
    Hasselt Vlaanderen
    Dat had ik opgemerkt Ed,
    Ik heb die groepering vroeger al toegepast, maar ik vergeet nogal vlug (Alzheimer?)

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Wellicht. De Light versie dan
    "As far as I know, my computers have never had an undetected error. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

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
Aanbiedingen