lettertypes even groot

[snb]

Vermijd Select en activate in VBA-code: overbodig, vertragend en verwarrend.

Sub Berekeningsblad_bewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .Sheets(1).cells.value=.sheets(1).cells.value
    .Sheets(1).PageSetup.Orientation = 2
    [COLOR="Red"].Sheets(1).[/COLOR]CommandButton1.Visible = False
    .SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & .sheets(1).[C2] 
    .Close
  End With
End Sub

PS. gebruik svp de codemarkeringen (#) voor VBA-code

 

[hazesoft]

Vermijd Select en activate in VBA-code: overbodig, vertragend en verwarrend.

Sub Berekeningsblad_bewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .Sheets(1).cells.value=.sheets(1).cells.value
    .Sheets(1).PageSetup.Orientation = 2
    .CommandButton1.Visible = False
    .SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & .sheets(1).[C2] 
    .Close
  End With
End Sub

PS. gebruik svp de codemarkeringen (#) voor VBA-code

Hierbij loopt Excel vast en krijg ik een foutmelding voor: .CommandButton1.Visible = False

 

[hazesoft]

Hans, de macro ben je sowieso kwijt. Voor de rest test deze eens

Sub Berekeningsblad_bewaren()
Sheets("calculatie").Copy
With ActiveWorkbook
    With .Sheets(1).UsedRange
        .Copy
        .PasteSpecial xlValues
    End With
    [A1].Select
    .Sheets(1).Shapes("Knop 1").Delete 'aanpassen aan de naam van je knop
    .Sheets(1).PageSetup.Orientation = 2
    .SaveAs "D:\Mijn documenten\" & [C2] & ".xls" 'Aan te passen aan jouw situatie
    .Close
End With
End Sub

Dag Rudi,

Wat bedoel je met .Sheets(1).Shapes("Knop 1").Delete 'aanpassen aan de naam van je knop

Ben maar een beginneling.

 

[Warme bakkertje]

.Sheets(1).cells.value=.sheets(1).cells.value

@snb Deze regel vraagt enorm veel rekencapaciteit en is 3x trager dan mijn oplossing

Sub Berekeningsblad_bewaren()
Sheets("calculatie").Copy
With ActiveWorkbook
      With .Sheets(1).UsedRange
        .Copy
        .PasteSpecial xlValues
    End With
    [A1].Select
    .Sheets(1).Shapes("Knop 1").Delete
    .Sheets(1).PageSetup.Orientation = 2
    .SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & [C2] & ".xls"
    .Close
End With
MsgBox "De calculatie voor " & [C2].Value & " is opgeslagen."
End Sub

@Hans Normaal is de code weg. Ik denk dat dit te maken heeft met het opslaan als xls ipv xlsx maar hiervoor zal een 2007 expert te hulp moeten schieten denk ik

 

[hazesoft]

Dag Rudi,

Nu heb ik hier nog geen antwoord op:
Wat bedoel je met .Sheets(1).Shapes("Knop 1").Delete 'aanpassen aan de naam van je knop
Mij knop heeft volgens mij geen naam er staat alleen als tekst in: "Calculatie opslaan"

 

[Warme bakkertje]

Het werkt perfect: de knop is weg

Blijkbaar wel aan jouw opmerking te zien. Als je de knop selecteert(niet activeren) zie je in het naamvak de naam van de knop. Vervang indien nodig ' Knop 1 ' in de regel.

 

[snb]

Sub Berekeningsblad_bewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook.[COLOR="Red"]sheets(1)[/COLOR]
    .[COLOR="red"]usedrange.[/COLOR]value=.[COLOR="red"]usedrange.[/COLOR]value
    .PageSetup.Orientation = 2
    [COLOR="Red"].[/COLOR]CommandButton1.Visible = False
    .Parent.SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & .[C2] 
    .Parent.Close
  End With
End Sub

of

Sub Berekeningsblad_bewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook.[COLOR="Red"]sheets(1)[/COLOR]
    .[COLOR="red"]usedrange.[/COLOR]value=.[COLOR="red"]usedrange.[/COLOR]value
    .PageSetup.Orientation = 2
    [COLOR="Red"].OLEObjects(1).delete[/COLOR]
    .Parent.SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & .[C2] 
    .Parent.Close
  End With
End Sub

 

[trucker10]

@Hans Normaal is de code weg. Ik denk dat dit te maken heeft met het opslaan als xls ipv xlsx maar hiervoor zal een 2007 expert te hulp moeten schieten denk ik

Door veelvuldig testen en soms vastlopen van een macro heb ik al ondervonden dat deze in het ( ram ) geheugen blijft hangen , ik gebruik hiervoor ccleaner of de ms schoonmaak office optie bij revo uninstaller.

In je voorbeeldbestandje heb je knop7 gebruikt

 

[Warme bakkertje]

Sub Berekeningsblad_bewaren1()
  Sheets("calculatie").Copy
  With ActiveWorkbook.Sheets(1)
    .UsedRange.Cells.Value = .UsedRange.Cells.Value
    .Shapes("Knop 7").Delete
    .PageSetup.Orientation = 2
    '.CommandButton1.Visible = False
    .Parent.SaveAs "E:\Data\MS-excel\Rogier\Calculaties\" & [C2]
    [COLOR="Red"].Parent[/COLOR].Close
  End With
End Sub

 

[trucker10]

Ik was aan het spelen en alles van rudi , snb werkt mits aanpassing van de map waar deze moet in komen .
In bijlage met een commandbutton1 zoals de macro van snb aangaf .

 

[snb]

@Rudi

Je bent nog aardig wakker.

.OLEObjects(1).delete

is iets algemener (in de veronderstelling dat er maar 1 knop in het werkblad staat).

 

[trucker10]

Ik denk dat TS aan het cleanen is

 

[hazesoft]

In je voorbeeldbestandje heb je knop7 gebruikt

Wanneer ik echter Shapes("Knop 1") verander in Shapes("Knop 7"), krijg ik een foutmelding.

Het gekke is nu als in het naamvak Knop 7 staat, terwijl er in de code staat Knop 1 staat ik geen foutmelding krijg.

Snap je het nog?

 

[trucker10]

Wanneer ik echter Shapes("Knop 1") verander in Shapes("Knop 7"), krijg ik een foutmelding.

Het gekke is nu als in het naamvak Knop 7 staat, terwijl er in de code staat Knop 1 staat ik geen foutmelding krijg.

Snap je het nog?

Wij kunnen het pas snappen als we zelf zien wat er in het naamvak verschijnt zoals in de jpg die ik stuurde .Stel dat je een knop had gemaakt deze " delete " en dan een nieuwe knop maakt dan is dat al knop 2 > in je upload was het knop 7 .

 

[hazesoft]

Wij kunnen het pas snappen als we zelf zien wat er in het naamvak verschijnt zoals in de jpg die ik stuurde .Stel dat je een knop had gemaakt deze " delete " en dan een nieuwe knop maakt dan is dat al knop 2 > in je upload was het knop 7 .

Hoi Daniël,

Nu even een hele domme vraag:
Hoe kan ik een afbeelding uploaden? Wanneer ik dat probeer verschijnt er iets van http://

 

[hazesoft]

Hoi Daniël,

Nu even een hele domme vraag:
Hoe kan ik een afbeelding uploaden? Wanneer ik dat probeer verschijnt er iets van http://

Stom: heb het al gezien: onderaan staat het. Ik klikte op het icoontje "Plaatje toevoegen".

 

[hazesoft]

Wij kunnen het pas snappen als we zelf zien wat er in het naamvak verschijnt zoals in de jpg die ik stuurde .Stel dat je een knop had gemaakt deze " delete " en dan een nieuwe knop maakt dan is dat al knop 2 > in je upload was het knop 7 .

Hier zijn dan de afbeeldingen:

 

[trucker10]

Wanneer ik echter Shapes("Knop 1") verander in Shapes("Knop 7"), krijg ik een foutmelding.

Het gekke is nu als in het naamvak Knop 7 staat, terwijl er in de code staat Knop 1 staat ik geen foutmelding krijg.

Snap je het nog?

Een testje speel met de cijfers in de macro code en kijk welke knop verdwijnt

 

[hazesoft]

Wij kunnen het pas snappen als we zelf zien wat er in het naamvak verschijnt zoals in de jpg die ik stuurde..

Hoi Daniël,

Ik hoop niet dat ik vervelend wordt,maar nu heb ik het volgende probleem(pje).
Ik het het calculatieblad beveiligd en bij het opslaan van de sheet krijg ik de volgende foutmelding:

Ik heb het idee dat vlak voor het opslaan de beveiliging moet worden opgeheven een daarna weer worden ingeschakeld.
Maar hoe zet je dat in de code?

 

[trucker10]

Hoi Daniël,

Ik hoop niet dat ik vervelend wordt,maar nu heb ik het volgende probleem(pje).
Ik het het calculatieblad beveiligd en bij het opslaan van de sheet krijg ik de volgende foutmelding:

Ik heb het idee dat vlak voor het opslaan de beveiliging moet worden opgeheven een daarna weer worden ingeschakeld.
Maar hoe zet je dat in de code?

Dit kan je zelf vinden met volgende hint

Sheets("calculatie").Unprotect Password:="jouw password"

en

Sheets("calculatie").protect Password:="jouw password"

eentje staat boven en eentje staat onderaan in de macro