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

IF Statement uitbreiden

Status
Niet open voor verdere reacties.
N

Noord2011

Gebruiker
Lid geworden
28 jan 2009
Berichten
350
Beste mensen,

Ik heb een IF Statement die goed functioneert.
Maar nu wil het uitbreiden om op meerdere Sheets functioneel te maken.

De bedoeling is om meerder Schade bladen toe te voegen

Nu heb ik alleen een Schade ”Schade 1”.

Ik wil het uitbreiden bijv Sheets(schade 1 // Schade 2 // schade 3 // resultaat) Then

Alvast bedankt

HTML: 
Sub Macro2()
If ActiveSheet.Name = "Schade 1”  Then
    [Blad2! AA1] = ""
        Call GetFiles
        UserForm4. Show
    Else
       MsgBox "Foto invoegen! Deze knop werkt alleen op schade blad(en)."
    End If
 
Zuidwest9,

Probeer het eens hiermee:

Code: 
Sub BladenDoorLopen()
    For Blad = 1 To Sheets.Count
        If Left(ActiveSheet.Name, 6) = "Schade" Then
        
       [COLOR="Red"] Plaats hier Jouw Code[/COLOR]
        
    Next Blad
End Sub
 
Gebruik Select Case - statements
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan