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

ClearContents werkt niet in vba

Status
Niet open voor verdere reacties.
stefano

stefano

Gebruiker
Lid geworden
22 mei 2004
Berichten
864
Bekijk bijlage clear.xlsmIk gebruik een macro waarvan onderstaand deel uitmaakt.

Code: 
' als charge op neen staat dan charge wissen op certificaat, niet in historiek.

    If Range("normen!v1") = "ONWAAR" Then
                Range("certificaat!U12").ClearContents
    Else
    
    End If

Als ik effectief cel v1 uitvink zodat de inhoud onwaar wordt dan wordt de inhoud van cel u12 niet gewist.

Bijkomend , ben ik verplicht de Else nog te gebruiken ?

Iemand een idee ?
 
Laatst bewerkt:
Je gebruikt VBA alsof je met formules in een sheet bezig bent....
Range("normen!v1") wordt dus Sheets("normen").Range("v1").Value
Doe hetzelfde bij die andere range in je procedure...
 
Klopt Ginger, sorry. Ik heb twee aanpassingen geprobeerd, tevergeefs. In bijlage nieuwe bestand.

Code: 
Sub Rechthoek1_Klikken()
 
 If Sheets("normen").Range("v1").Value = "ONWAAR" Then
                Sheets("certificaat").Range("U12").ClearContents
    Else
    
    End If
End Sub

en

Code: 
Sub Rechthoek2_Klikken()
 
 If Sheets("normen").Range("v1").Value = "ONWAAR" Then
                Sheets("certificaat").Range("U12").Value = ""
    Else
    
    End If
End Sub

Bekijk bijlage clear2.xlsm
 
Code: 
Sub Rechthoek1_Klikken()
 If Sheets("normen").CheckBox1.Value = False Then Sheets("certificaat").Range("U12").ClearContents
 End Sub
 
en op deze manier?

Code: 
If CheckBox1 = False Then Blad2.Range("U12").Clearcontents

oeps te laat
 
Bestudeer in je Excel VBA handboek het verschil tussen formcontrols en ActiveX-controls.
Vermijd overbodige .linkedcell.

Kijk ook eens naar hoe je naar een gebied (Range) in Excels VBA kunt verwijzen.

Code: 
Private Sub CheckBox1_Click()
    If Not CheckBox1 Then Sheets("certificaat").Cells(12, 21).ClearContents
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan