lettertypes even groot

[trucker10]

Ik ben er heel blij mee. Dank zij jou en Rudi ben ik zo ver gekomen. Dus heel erg bedankt.:thumb:
Ja, eigenlijk zou na het opslaan van het bestand de calculatiesheet helemaal leeg moeten zijn.
Behalve de fomules natuurlijk.
Is daar ook een code voor?

Ik bedoel dat je in jouw bestandje als je een cel in kolom A / D / I een selectie had gemaakt kan je deze niet meer leeg maken tenzij wissen . Ik heb heel vlug die kolommen aangepast nu kan je bij een vergissing nadien nog steds een lege cel invullen , bekijk het bestandje de kolommen A / D / I en vergelijk met die van jouw .
Voor je andere vraag via deze code

Sub maak_leeg()
Application.ScreenUpdating = False
    Sheets(1).[A9:J23].ClearContents
Application.ScreenUpdating = True
   MsgBox ("alles is leeg gemaakt ")
End Sub

Kan gekoppeld worden aan de andere macro ( moet nu verder rijden koffie pauze is gedaan )
edit , terug voorbij gereden door Rudi :thumb:

 

[hazesoft]

Da's snel. Maar één probleem:
Ik ben alle formules en validatielijsten kwijt

 

[hazesoft]

Kan gekoppeld worden aan de andere macro ( moet nu verder rijden koffie pauze is gedaan )
edit , terug voorbij gereden door Rudi :thumb:

Ik wens jullie veel veilige kilometers.

 

[trucker10]

Da's snel. Maar één probleem:
Ik ben alle formules en validatielijsten kwijt

range aanpassen A9:A23, D9: D23, I9:I23 enz. enkel de cellen die leeg mogen . Had er ni bij stilgestaan

 

[Warme bakkertje]

Heb je überhaupt mijn voorbeeldbestandje bekeken van post#80(aangepast, lukt wel met samengevoegde cellen)?

 

[snb]

Jongelui,

De titel van deze draad is: lettertypes even groot.
De inhoud is daar aardig van afgedwaald.

Het lijkt me beter voor een nieuwe vraag een nieuwe draad te beginnen, omdat het forum ook een opzoek/raadpleegfunktie heeft voor anderen (en voor jezelf als je weer eens wat vergeten bent).

 

[hazesoft]

Heb je überhaupt mijn voorbeeldbestandje bekeken van post#80(aangepast, lukt wel met samengevoegde cellen)?

Je bedoelt calculatie-test.xls.

In het begin ging het fout: ik was te snel, ik had geen Aannemer gekozen.
Gaat nu inderdaad goed.

 

[trucker10]

Je bedoelt calculatie-test.xls.

In het begin ging het fout: ik was te snel, ik had geen Aannemer gekozen.
Gaat nu inderdaad goed.

Dan zijn we aan het einde ?

Sub Berekeningsblad_bewaren()
Application.ScreenUpdating = False
  With Sheets("calculatie")
     .Unprotect "hazesoft"
     .Copy
     With ActiveWorkbook.Sheets(1)
       .PageSetup.Orientation = 2
       .Shapes("Knop 1").Delete
       With .UsedRange
          .Value = .Value
          .Validation.Delete
       End With
      .Protect "hazesoft"
      .Parent.SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & [C2] & ".xls", FileFormat:=56
      .Parent.Close
    End With
    .Protect "hazesoft", UserInterFaceOnly:=True
  End With
  MsgBox "De calculatie voor " & [C2].Value & " is nu opgeslagen in de map E:\Data\MS-excel\Rogier\Calculaties\."
With Application
    .Union([C1:E1], [C2:E2], [C6:E6], [Gebied1], [Gebied2], [Gebied3]).ClearContents
    .ScreenUpdating = True
End With
End Sub

 

[hazesoft]

Ja Daniël, ik zal deze topic afsluiten en de vraag als beantwoord markeren.
Nogmaals hartelijke dank en wie weet treffen we elkaar nog eens op deze site.

De code is als volgt geworden:

Sub Berekeningsblad_bewaren()
Application.ScreenUpdating = False
  With Sheets("calculatie")
     .Unprotect "hazesoft"
     .Copy
     With ActiveWorkbook.Sheets(1)
       .PageSetup.Orientation = 2
       .Shapes("Knop 1").Delete
       With .UsedRange
          .Value = .Value
          .Validation.Delete
       End With
      .Protect "hazesoft"
      .Parent.SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & [C2] & ".xls", FileFormat:=56
      .Parent.Close
    End With
    .Protect "hazesoft", UserInterFaceOnly:=True
  End With
  MsgBox "De calculatie voor " & [C2].Value & " is nu opgeslagen in de map E:\Data\MS-excel\Rogier\Calculaties\."
With Application
    .Union([C1:E1], [C2:E2], [C6:E6], Range("Gebied1"), Range("Gebied2"), Range("Gebied3")).ClearContents
    .ScreenUpdating = True
End With
End Sub

 

[trucker10]

Ja Daniël, ik zal deze kwestie afsluiten en de vraag als beantwoord markeren.
Nogmaals hartelijke dank en wie weet treffenl we elkaar nog eens op deze site.

Het was een leerrijke topic :thumb: verbeteren , veranderen , omschakelen kan altijd meerdere mensen meerdere gedachten en meerdere oplossingen .
Suc6 ermee en bij vragen zien we wel een nieuwe topic verschijnen

 

[snb]

Waarom application.union terwijl het eenvoudig kan met:

.Range("C1:E2, C6:E6, Gebied1, Gebied2, Gebied3").Clearcontents

En het kan nog wat sjieker als van het invoergebied een benoemd bereik wordt gemaakt:

    Application.Names.Add "invoer", Range("C1:E2, C6:E6, Gebied1, Gebied2, Gebied3")

Want dan is

  .Range("invoer").clearcontents

voldoende

 

[hazesoft]

Waarom application.union terwijl het eenvoudig kan met:

.Range("C1:E2, C6:E6, Gebied1, Gebied2, Gebied3").Clearcontents

Dit werkt ook goed, maar wat is het voordeel met

.Union([C1:E1], [C2:E2], [C6:E6], Range("Gebied1"), Range("Gebied2"), Range("Gebied3")).ClearContents

?

 

[trucker10]

Dit werkt ook goed, maar wat is het voordeel met

.Union([C1:E1], [C2:E2], [C6:E6], Range("Gebied1"), Range("Gebied2"), Range("Gebied3")).ClearContents

?

Een intressante site waar je veel antwoorden kan vinden over de vba stijl/code

 

[hazesoft]

Een intressante site waar je veel antwoorden kan vinden over de vba stijl/code

Bedankt Daniël.