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

lettertypes even groot

Status
Niet open voor verdere reacties.

hazesoft

Gebruiker
Lid geworden
11 nov 2004
Berichten
361
Beste Excellisten en -linnen,

Ben vandaag prima geholpen door trucker10 (Daniël) met het onderwerp Eén werkblad van werkmap opslaan
om van een werkmap een sheet als een apart XLS-bestand op te slaan.

Nog één klein vraagje (maar misschien een groot probleem) hierover:
De tekst van het opgeslagen bestand heeft lettergrootte 10 en 11, terwijl de sheet van de werkmap overal lettergrootte 10 heeft.
Is daar wat aan te doen.
Bijvoorbaat dank voor jullie moeite.
 
Laatst bewerkt:
Beste hazesoft ;)

Het op te slagen werkblad op ALLES SELECTEREN klikken en dan lettertype op 10 plaatsen.

Groetjes Danny. :thumb:
 
Beste hazesoft ;)

Het op te slagen werkblad op ALLES SELECTEREN klikken en dan lettertype op 10 plaatsen.

Groetjes Danny. :thumb:

Dag Danny,

Dat weet ik ook wel.

In het origineel staat alles goed (dus lettergrootte 10), waarom dan niet meer in de sheet die opgeslagen is?
 
Welke code gebruik je op dit moment. Plaats die hier maar even, wel tussen code tags aub (het # icoontje).
 
Hou het simpel:
Code:
Sub Berekeningsblad_simpelbewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .SaveAs "[COLOR="Blue"]E:\trucker10.xls[/COLOR]"
    .Close False
  End With
End Sub
Pas de blauwe tekst aan aan jouw situatie.
Deze macro is voldoende.
 
Beste Excellisten en -linnen,

Ben vandaag prima geholpen door trucker10 (Daniël) met het onderwerp Eén werkblad van werkmap opslaan
om van een werkmap een sheet als een apart XLS-bestand op te slaan.

Nog één klein vraagje (maar misschien een groot probleem) hierover:
De tekst van het opgeslagen bestand heeft lettergrootte 10 en 11, terwijl de sheet van de werkmap overal lettergrootte 10 heeft.
Is daar wat aan te doen.
Bijvoorbaat dank voor jullie moeite.

De oplossing was van Rudi ( warme bakkertje ) ik kan geen formules type ( kopieëren ) en het stuur vast houden :D de gebruikte code is
Code:
Sub Berekeningsblad_bewaren()
Dim filenaam As String
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
filenaam = ActiveSheet.[C2].Value & ".xls"
[A1:J44].Copy
Workbooks.Add
Selection.PasteSpecial xlPasteValues, xlNone, False, False
Selection.PasteSpecial xlPasteFormats, xlNone, False, False
[A1].Select
'alle sheets verwijderen behalve het eerste
    For Each Sh In Worksheets
    If Sh.Index > 1 Then
    Sh.Delete
    End If
    Next
With ActiveWorkbook
    .SaveAs "D:\Data\" & filenaam, xlNormal, "", "", False, False
    .Close
End With
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
[A1].Select
MsgBox "File is opgeslagen"
End Sub

@ Hans , ik heb zonet het lettertype van rij 8 op "Arial 14" gezet de macro laten lopen en op de copie krijg ik lettertype "Arial14" ( raar hé )
 
Laatst bewerkt:
Lettergrootte

Dus jij staat ook wel eens voor verrassingen :).

Het originele blad heeft afdrukstand Landscape.
Het opgeslagen blad heeft afdrukstand Portrait, waardoor sommige kolommen verschuiven en waarden onleesbaar zijn.
 
Laatst bewerkt:
Dus jij staat ook wel eens voor verrassingen :).

Gisteren meer dan 1 keer ( off topic ) ik heb gisteren de knal gehoord achter mij van een verkeersongeval met 2 doden in crisnee en wat later in de terug reis net voor de Blegny Barchon verloor een schroothandelaar op 500 meter voor ik eraankwam een deel van zijn lading > 4 wagens met lekke band(en) en 1 vrachtwagen met de ruit uit .
 
De oplossing was van Rudi ( warme bakkertje )

@Daniël

Bedoel je daarmee: 'die kan nog veel leren' ? ;)

@Wigi
Dan kan die False ook nog wel weg....
 
@Daniël

Bedoel je daarmee: 'die kan nog veel leren' ? ;)

@Wigi
Dan kan die False ook nog wel weg....

Nee natuurlijk niet.
Snap alleen niet wat je bedoelt met: "Dan kan die False ook nog wel weg...".
 
Ipv

Code:
Sub Berekeningsblad_simpelbewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .SaveAs "E:\trucker10[COLOR="Blue"].xls[/COLOR]"
    .Close [COLOR="blue"]False[/COLOR]
  End With
End Sub

Code:
Sub Berekeningsblad_simpelbewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .sheets(1).PageSetup.Orientation = 2
    .SaveAs "E:\trucker10"
    .Close
  End With
End Sub
 
@Daniël

Bedoel je daarmee: 'die kan nog veel leren' ? ;)

Ik piep ( kijk af ) en ........ zo heb ik van Rudi de verkorte schrijfwijze geleerd [A1] i.p.v. Range("A1.......... ( niet iedereen is daar blij mee xlc..) en hier was het Rudi die voor mij een oplossing poste . Ik oefen heel veel met jouw code's zo staat de advancedFilter uit een andere topic op mijn lijstje :p.
..
 
Ipv

Code:
Sub Berekeningsblad_simpelbewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .SaveAs "E:\trucker10[COLOR="Blue"].xls[/COLOR]"
    .Close [COLOR="blue"]False[/COLOR]
  End With
End Sub

Code:
Sub Berekeningsblad_simpelbewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .sheets(1).PageSetup.Orientation = 2
    .SaveAs "E:\trucker10"
    .Close
  End With
End Sub

Bedankt voor de code.
Die ga ik vanavond uitproberen. Je hoort nog van mij.
 
De code is kort :thumb: maar nu zijn er wel koppelingen naar het origineel, en wat met de variabele bestandsnaam ?
Ik zou hem zo gebruiken dan
Code:
Sub Berekeningsblad_bewaren()
Sheets("calculatie").Copy
With ActiveWorkbook
    With .Sheets(1).UsedRange
        .Copy
        .PasteSpecial xlValues
    End With
    [A1].Select
    .Sheets(1).PageSetup.Orientation = 2
    .SaveAs "D:\Mijn documenten\" & [C2].Value 'Aan te passen aan jouw situatie
    .Close
End With
End Sub
 
Laatst bewerkt:
Die ontkoppeling kan simpeler:

Code:
Sub Berekeningsblad_bewaren()
  Sheets("calculatie").Copy
  With ActiveWorkbook
    .Sheets(1).cells.value=.sheets(1).cells.value
    .Sheets(1).PageSetup.Orientation = 2
    .SaveAs "D:\Mijn documenten\" & [C2]
    .Close
  End With
End Sub
En wat doe die [A1].select daar ????:confused:
 
En wat doe die [A1].select daar ????
Ik weet het :mad: maar als je mijn ontkoppeling gebruikt blijft het hele gebied geselecteerd en als je daarna het bestand opent krijg je een blauwe vlek voor je neus. Daarom.:rolleyes:
 
De code is kort :thumb: maar nu zijn er wel koppelingen naar het origineel, en wat met de variabele bestandsnaam ?
Ik zou hem zo gebruiken dan
Code:
Sub Berekeningsblad_bewaren()
Sheets("calculatie").Copy
With ActiveWorkbook
    With .Sheets(1).UsedRange
        .Copy
        .PasteSpecial xlValues
    End With
    [A1].Select
    .Sheets(1).PageSetup.Orientation = 2
    .SaveAs "D:\Mijn documenten\" & [C2].Value 'Aan te passen aan jouw situatie
    .Close
End With
End Sub

Dag Rudi,

Het werkt perfect!!! Bedankt:thumb:.
Nog 2 kleine onvolkomenheden:
1. Kan de sheet ook worden opgeslagen met de extentie .xls i.p.v. xlsx?
2. Kun je de sheet ook zo opslaan dat de macroknop en de macro weg zijn?
Ik ben benieuwd.
 
Hans, de macro ben je sowieso kwijt. Voor de rest test deze eens
Code:
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,

Ik heb deze zo veranderd:

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 "E:\Data\MS-excel\Rogier\Calculaties\" & [C2] & ".xls"
.Close
End With
[A1].Select
MsgBox "De calculatie voor " & [C2].Value & " is opgeslagen."
End Sub


Het werkt perfect: de knop is weg, maar de routine staat nog steeds in de macro .

Wanneer ik de opgeslagen sheet wil openen krijg ik deze melding:
Het bestand dat u wilt openen niet de indeling heeft die wordt aangegeven met de bestandsextensie enz.
Ik kan het echter wel openen.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan