Cel leegmaken met marco in Userform

[dorlando]

Als ik via een cel een macro laat opstarten,krijgt ik een sheet te zien en wordt Userform geopent,daarin zit een annuleer knop verwerkt.
De commando staat hieronder.

Private Sub CommandButton1_Click()
UserForm2.Hide
Sheets("Moor 5").Visible = False
End Sub

Als de sheet is verwijderd en ik weer terug bent op het voorblad en ik wil verder gaan met een ander cel te selecteren krijgt ik hetzelfde Userform te zien en dat wilt ik juist niet.
Weet iemand hierop een oplossing.??

Gr,Dorlando

 

[Warme bakkertje]

Post de macro eens waarmee je het userform opent.

 

[gl3nn1987]

If Sheets("Moor 5").Visible = True Then
UserForm2.Show
End if

Die op je voorblad zetten is afdoende als ik het goed begrijp

met visible = false verwijder je hem trouwens niet he, je maakt hem slechts niet zichtbaar

 

[huijb]

@gl3nn1987 volgende code graag zelf tussen de codetags zetten. Heb nu twee berichten van je aangepast. Zie hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn hoe de sectie Office werkt.

 

[gl3nn1987]

Mon excuses

 

[dorlando]

Private Sub Worksheet_Change(ByVal Target As Range)
' Zichtbaar maken van 6 Overdracht-/Controleformulieren I1, I2, I3, I4, L1, L2, L3, L4, Afwijkingen-Restpuntenlijst

Application.ScreenUpdating = False

    If Range("E23") <> "" Then
        Sheets("I1").Visible = True ' Blad verbergen wanneer E23 cel leeg is
        Sheets("i1.1").Visible = True
        Sheets("i1.2").Visible = True
    Else
        Sheets("I1").Visible = False  ' Blad zichtbaar maken wanneer E23 cel gevuld is
        Sheets("i1.1").Visible = False
        Sheets("i1.2").Visible = False
    End If
        With Target
 If .Address = "$E$24" And Not IsEmpty(Target) Then
   Sheets("I2").Visible = True
   Sheets("i2.1").Visible = True
   UserForm1.Show
 Else
   Sheets("I2").Visible = False
   Sheets("i2.1").Visible = False
   'UserForm1.Show
  End If
 End With
        If Range("E24") <> "" Then
        Sheets("I2").Visible = True ' Blad verbergen wanneer E24 cel leeg is
        Sheets("i2.1").Visible = True
    Else
        Sheets("I2").Visible = False  ' Blad zichtbaar maken wanneer E24 cel gevuld is
        Sheets("i2.1").Visible = False
    End If
    If Range("E25") <> "" Then
        Sheets("I3").Visible = True ' Blad verbergen wanneer E25 cel leeg is
        Sheets("i3.1").Visible = True
        
        Else
        Sheets("I3").Visible = False  ' Blad zichtbaar maken wanneer E25 cel gevuld is
        Sheets("i3.1").Visible = False
        End If
        
        If Range("E43") <> "" Then
        Sheets("meerwerk").Visible = True ' Blad verbergen wanneer E43 cel leeg is
        Else
        Sheets("meerwerk").Visible = False  ' Blad zichtbaar maken wanneer E43 cel gevuld is

         End If
    
        If Range("E26") <> "" Then
        Sheets("I4").Visible = True ' Blad verbergen wanneer E26 cel leeg is
        Sheets("I4.1").Visible = True
        Sheets("I4.2").Visible = True
        Sheets("I4.3").Visible = True
    Else
        Sheets("I4").Visible = False  ' Blad zichtbaar maken wanneer E26 cel gevuld is
        Sheets("I4.1").Visible = False
        Sheets("I4.2").Visible = False
        Sheets("I4.3").Visible = False
    End If
    If Range("E24") <> "" Then
        Sheets("sat").Visible = True ' Blad verbergen wanneer E24 cel leeg is
        Sheets("fat").Visible = True
        
        Else
        Sheets("sat").Visible = False  ' Blad zichtbaar maken wanneer E24 cel gevuld is
        Sheets("fat").Visible = False
                
    End If
    
        If Range("E27") <> "" Then
        Sheets("L1").Visible = True ' Blad verbergen wanneer E27 cel leeg is
        Sheets("L1.1").Visible = True
    Else
        Sheets("L1").Visible = False  ' Blad zichtbaar maken wanneer E27 cel gevuld is
        Sheets("L1.1").Visible = False
    End If
    
        If Range("E28") <> "" Then
        Sheets("L2").Visible = True ' Blad verbergen wanneer E28 cel leeg is
        
        Else
        Sheets("L2").Visible = False  ' Blad zichtbaar maken wanneer E28 cel gevuld is
        
    End If
    
        If Range("E29") <> "" Then
        Sheets("L3").Visible = True ' Blad verbergen wanneer E29 cel leeg is
    Else
        Sheets("L3").Visible = False  ' Blad zichtbaar maken wanneer E29 cel gevuld is
    End If
    
        If Range("E30") <> "" Then
        Sheets("L4").Visible = True ' Blad verbergen wanneer E30 cel leeg is
        Sheets("L4.1").Visible = True
    Else
        Sheets("L4").Visible = False  ' Blad zichtbaar maken wanneer E30 cel gevuld is
        Sheets("L4.1").Visible = False
    End If
    
        If Range("E33") <> "" Then
        Sheets("Tekeningenlijst").Visible = True ' Blad verbergen wanneer E33 cel leeg is
    Else
        Sheets("Tekeningenlijst").Visible = False  ' Blad zichtbaar maken wanneer E33 cel gevuld is
    End If
    
        If Range("E15") <> "" Then
        Sheets("Materiaalbon(retour)").Visible = True ' Blad verbergen wanneer E15 cel leeg is
    Else
        Sheets("Materiaalbon(retour)").Visible = False  ' Blad zichtbaar maken wanneer E15 cel gevuld is
    End If
    
    If Range("E19") <> "" Then
        Sheets("Moor 5").Visible = True
        UserForm2.Show
    Else
        Sheets("Moor 5").Visible = False
   End If
End Sub

 

[ExcelAmateur]

dorlando,

Als je al lid ben sinds Feb. 2009 moet je toch wel weten dat je de code tussen de code tags # moet zetten.
Doe dit als nog even, dank u.

 

[dorlando]

Geeft me even een tip wat je bedoel of link ,want ik weet het even niet wat je bedoel ,sorry

 

[ExcelAmateur]

Zie als in je eerste bericht.

Dus de code selecteren en dan boven in het menu op # klikken.
Nu komt je code netjes in een apart vak te staan.

Ik plaats een stukje uit de link van #4 hier onder.

Om een vraag duidelijker over te laten komen is het verstandig om een voorbeeldbestand bij te voegen. Lukt dit niet omdat er bv. privégegevens in staan, voeg dan toch een bestand bij wat je probleem duidelijk maakt. Dit helpt de specialisten die in deze sectie hulp bieden een eind op weg. Een plaatje o.i.d. is niet voldoende. Wanneer je een code of formule wil toevoegen, plaats deze dan tussen de code-tags (

 en

) oftewel selecteer je code en klik op het # icoontje. Bij voorbaat dank, zeker ook namens de helpers. Tenslotte nog dit, wanneer je vraag is opgelost klik dan rechtsboven aan de pagina in de blauwebalk op Zet status opgelost

 

[Warme bakkertje]

If Range("E19") <> "" Then
        Sheets("Moor 5").Visible = True
        UserForm2.Show
    Else
        Sheets("Moor 5").Visible = False
   End If

Zolang E19 niet leeg is zal het userform getoond worden bij elke celwijziging op je startblad, ongeacht welke cel. Dit is te wijten aan de opbouw van je code.
Lees eens wat door wat betreft het Change-event zodat je begrijpt hoe dit moet opgebouwd worden.

 

[dorlando]

Hallo Warm bakkertje,

Ik heb een Marcotoegevoegd ,hij gooit nu cel E19 helemaal leeg,maar ik wil de waarde van de cel behouden!
Hoe doe ik dat ?

Sub Moorannuleer()
'
' Moorannuleer Macro
' De macro is opgenomen op 14-3-2012 door UAO334.
'

'
    Range("E19").Select
    Selection.ClearContents
    Range("E20").Select
End Sub

 

[Warme bakkertje]

If Target.Address = "$E$24" Then
     Sheets("Blad2").Visible = Target <> ""
     If Target <> "" Then userform1.Show
End If

Dit is de normale gang van zaken dus dit moet je voor elke cel doen die je wil controleren.