macro vraagje

[gast0660]

Hoi iedereen,
Wie kan zoiets in een macro gieten
Het komt eropneer dat alleen de geselecteerde kolommen van het actieve blad worden opgeslagen als een nieuw excelbestand! (belangrijk). zijn altijd dezelfde kolommen maar de hoeveelheid gegevens kan verschillen.
iets in die richting:

Activesheet.Columns("A").Select. saveas

Alvast bedankt voor het meehelpen

Greetz

 

[gast0660]

Hoi iedereen,

Het lachende gezichtje was niet de bedoeling, ik bedoelde alleen maar colom a tot d

Greetz

 

[VenA]

Daarom zijn de codetags uitgevonden:d

 

[HSV]

Probeer het maar eens.

Sub hsv()
Dim Wbnew As Workbook, Wbname As Variant
Set Wbnew = Workbooks.Add
ThisWorkbook.ActiveSheet.Columns("a:d").Copy Wbnew.Sheets(1).Cells(1)
Do
    Wbname = Application.Dialogs(xlDialogSaveAs).Show
Loop Until Wbname <> False
End Sub

 

[snb]

zonder smilies:

Sub M_snb()
   Sheet1.Copy
   With ActiveWorkbook
       .Sheets(1).Columns(5).Resize(, Columns.Count - 4).Clear
       .SaveAs "G:\OF\rusty.xlsx", 51
    End With
End Sub

 

[gast0660]

Hoi, Hsv en Snb,
Hartelijk dank voor uw oplossing.
Vraag is opgelost

Greetz

 

[snb]

Da's mooi !