Ga naar inhoud

rik uit gorinchem

Lid
  • Items

    3
  • Registratiedatum

  • Laatst bezocht

rik uit gorinchem's prestaties

  1. Hallo Alpha, Dit werkt perfect zo. Hartelijk dank voor deze oplossing. Met vriendelijke groet: Rik Dit topic mag op opgelost worden gezet.
  2. Goedenmiddag Forumleden, In een bestand heb ik 4 lange kolommen die ik wil splitsen zodat er 2 x 4 kolommen op één pagina passen. Op de eerste pagina werkt dit perfect, maar op de volgende pagina('s) staan de vier kolommen rechts i.p.v. links ( A,B,C,D) Met wat ik ook probeer, krijg ik het niet voor elkaar. Heel graag wil ik hier wat hulp bij, zodat ik verder kan. Alvast bedankt. De code die ik gebruik is de volgende: Sub Kolommen_splitsen() Cells.Select With Selection.Font .Name = "Arial" .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Bold = False With Selection.Font .Name = "Arial" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Dim lrow As Long With Sheets("Blad1") lrow = .HPageBreaks.Item(1).Location.Row .Range("A1:D1").Copy .Range("E1") With .Cells(lrow, 1).Resize(Range(.Cells(lrow, 1), .Cells(lrow, 1).End(xlDown)).Rows.Count, 4) .Copy Range("E1") .ClearContents End With '.Columns("E:H").AutoFit .PrintPreview .Cells(1, 4).CurrentRegion.Offset(1).Copy .Cells(lrow, 1) '.Columns("A:B").Clear '.Columns("C:D").Clear End With End Sub Kolommen_splitsen.xlsm
  3. Goedemiddag, Ik heb een macro draaien in excel om door een druk op een knop een bestand naar een aantal mensen te versturen door middel van e-mail. In de macro heb ik een onderwerp kunnen plaatsen, die dan wordt weergegeven in de mail. Graag wil ik in de macro ook een tekst kunnen plaatsen, die dan wordt weergegeven in de normale weergave bij de geadresseerde. Ben hier al een tijd mee bezig, maar wil nog steeds niet lukken. Weet iemand misschien een oplossing hiervoor?
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.