Er mist iets...

[boppe]

Een document, twee werkbladen (blad A, blad B).
Beide hebben een wisknop op de site met macro's Selection.ClearContents
Elk hun eigen sub en de verwijzing van knop naar de macro is in orde.

Maar wanneer ik op blad B op de wisknop klik, verdwijnen de gegevens van blad A.
en verschijnt in het beeld dus een leeg blad A, terwijl ik dat niet wil.
Hoe laat ik het systeem weten welk blad hij moet wissen?

 

[HSV]

Verwijs in de code welk blad gewist moet worden.

Bv.

sheets("Blad B").usedrange.clear

 

[snb]

Je bedoelt: er ontbreekt iets ?
Gebruik dezelfde macro voor beide knoppen.
Selection is altijd beperkt tot het actieve werkblad.

 

[boppe]

Je bedoelt: er ontbreekt iets ?
Gebruik dezelfde macro voor beide knoppen.
Selection is altijd beperkt tot het actieve werkblad.

Dat gaat niet helemaal werken omdat er andere velden gewist moeten worden

 

[snb]

dan gebruik je blijkbaar niet de code selection.clearcontents

Als wel dan begrijp je het begrip 'selection' niet.

 

[boppe]

Sub Wis_ijkwet_meet()
'
' Leegmaken Macro
' Tabblad IJkwet
'
    
  If Range("W3").Value = "1" Then
    Range("S8:V12").Select
    Selection.ClearContents
  End If
 
    Range("L1").Select
    Selection.ClearContents
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "1"
    
    Range("W5").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("W25").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("O6").Select
    ActiveCell.FormulaR1C1 = "3"
    
    Range("C6").FormulaLocal = "=ALS(O6=1;""25"";ALS(O6=2;""35"";ALS(O6=3;""63"";"""")))"
      
    Range("A8:R14").Select
    Selection.ClearContents
    
    Range("C1").Select
    
End Sub
----------------------------
Sub Wis_MID_alles()
'
' Leegmaken Macro
' Tabblad IJkwet
'

    Sheets("OIML-MID").UsedRange.Clear
    
  If Range("W6").Value = "2" Then
    Range("S8:V12").Select
    Selection.ClearContents
  End If
      
    Range("C1:H4").Select
    Selection.ClearContents
    Range("L1").Select
    Selection.ClearContents
    Range("M2").Select
    Selection.ClearContents
    Range("W5").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("W25").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("O6").Select
    ActiveCell.FormulaR1C1 = "3"
    
    Range("C6").FormulaLocal = "=ALS(O6=1;""25"";ALS(O6=2;""35"";ALS(O6=3;""63"";"""")))"
      
    Range("A8:R14").Select
    Selection.ClearContents
    
    Range("C1").Select

    
End Sub

 

[emields]

Wat is dat allemaal. plaats een voorbeeldbestand

 

[AHulpje]

Kan wel wat compacter:

Sub Wis_ijkwet_meet()
    ' Leegmaken Macro
    ' Tabblad IJkwet ?????
    If Range("W3") = 1 Then Range("S8:V12").ClearContents
    Wis
End Sub

Sub Wis_MID_alles()
    ' Leegmaken Macro
    ' Tabblad IJkwet ?????
    Sheets("OIML-MID").UsedRange.Clear
    If Range("W6") = 2 Then Range("S8:V12").ClearContents
    Range("C1:H4").ClearContents
    Wis
End Sub

Sub Wis()
    Range("L1").ClearContents
    Range("M2") = 1
    Range("W5") = 0
    Range("W25") = 0
    Range("O6") = 3
    Range("C6").FormulaLocal = "=ALS(O6=1;""25"";ALS(O6=2;""35"";ALS(O6=3;""63"";"""")))"
    Range("A8:R14").ClearContents
    Range("C1").Select
End Sub