gem med navn=værdi i celle C3

gonzoo,

Prøv dette:

Sub SaveAsC3()
Dim Name As String
Dim Path As String

Path = \"C:\\WINDOWS\\Skrivebord\\REKVISITION\\\"

Name = Worksheets(\"Sheet1\").Range(\"c3\")

MsgBox Path + Name + \".txt\"

ActiveWorkbook.SaveAs FileName:= _
        Path + Name + \".txt\", FileFormat:=xlText, _
        CreateBackup:=False
End Sub

sådan ser hele koden ud og den melder fejl er det den sub som står midt i ?Private Sub CommandButton2_Click()
Range(\"A2:K42\").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.Copy
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
      Sub SaveAsC3()
Dim Name As String
Dim Path As String

Path = \"C:\\WINDOWS\\Skrivebord\\REKVISITION\\\"

Name = Worksheets(\"Sheet1\").Range(\"c3\")

MsgBox Path + Name + \".txt\"

ActiveWorkbook.SaveAs Filename:= _
        Path + Name + \".txt\", FileFormat:=xlText, _
        CreateBackup:=False

    Range(\"A3,H12,C22:K42\").Select
    Range(\"C22\").Activate
    Selection.ClearContents
    Range(\"A3\").Select
End Sub

Ja, jeg vidste ikke at det kun var en del kode du gav.

Sub SaveAsC3 skal fjernes og de 2 Dim sætninger skal op i toppen af din kode.

  nu melder den run-time error`9`: subsript out of range og den ser sådan ud nu jeg har rette c3 til a3 som er det rigtige  her er linien som er makeret med gulName = Worksheets(\"Sheet1\").Range(\"A3\")
Private Sub CommandButton2_Click()
Dim Name As String
Dim Path As String
    Range(\"A2:K42\").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.Copy
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Path = \"C:\\WINDOWS\\Skrivebord\\REKVISITION\\\"
    Name = Worksheets(\"Sheet1\").Range(\"A3\")
    MsgBox Path + Name + \".txt\"

    ActiveWorkbook.SaveAs Filename:= _
    Path + Name + \".txt\", FileFormat:=xlText, _
    CreateBackup:=False

    Range(\"A3,H12,C22:K42\").Select
    Range(\"C22\").Activate
    Selection.ClearContents
    Range(\"A3\").Select
End Sub

Det kan være fordi dit ark ikke hedder \"Sheet1\". Hvad hedder dit ark ?

Arket hedder\"MODEL REKV.1\" det er en skabelon jeg udskriver rekvisitioner fra(HÅBER JEG,FOR DET ER ET JEG HAR LAVET I DAG.) jeg udfylder arket og når jeg har gjort det ,var det meningen at gemme dem i en mappe der hedder C:\\WINDOWS\\Skrivebord\\REKVISITION\\\"så jeg senere kunne udskrive dem og samenholde dem med den faktura jeg modtager
   

Jeg har prøvet at ænder sheet1 til arknavnet uden held det er den samme fejl jeg får

Jeg har nu prøvet med hele din kode, uden problemer. Hvis jeg skal kunne sige noget yderligere, skal jeg have dit ark. Du kan skrive til mig på:

ploughgaard@bigfoot.com

jeg har sendt arket til din e-mail

Nu fik jeg tid til at kigge på det. Du skal rette følgende linier:

  Name = Worksheets(\"MODEL REKV.1\").Range(\"A3\") rettes til:
Name = Worksheets(\"Ark1\").Range(\"A3\")

  MsgBox Path + Name + \".txt\" fjernes

Det er ikke dit ark, der hedder \"MODEL REKV.1\". Det er din fil. Arket hedder \"Ark1\".

MessageBoxen var kun til check.

nu ser det ud til at virke ,det bliver bare gemt gemt som text ,og der går noget af teksten tabt, kan man vælge indsæt specielt og, kun som værdier så bliver det i excel format den del af koden er vel overflødig da det er en skabelon jeg åbner og arket er renset for sidste indtastninger

    Range(\"A3,H12,C22:K42\").Select
    Range(\"C22\").Activate
    Selection.ClearContents
    Range(\"A3\").Select

det er ved at være flovt ,det er ikke så lige til at arbejde med VB

Hej ploughgaard det virker nu .jeg havde lavet en fejl, du er ved at have brugt noget tid på mig så jeg har afsat lidt flere point, jeg vil gerne om det kan gemmes som ovenfor nævnt ,da jeg så kan udskrive de gemte filer med logo på og selv bestemme side opsætningen den er meget begrænset i text dukomentet .jeg søgte i stifinderen og der var alle de gamle genveje og versioner og jeg tror det var dem som lå og drillede efter jeg slettede dem og rettede den skrivefejl jeg selv har lavet virkede det.

Hvis bare skal gemme en kopi for at kunne skrive den ud senere, hvorfor så ikke gemme kopien som .xls. På den måde ved ud at filen er nøjagtig som du forlod den.

Sætningen:

ActiveWorkbook.SaveAs Filename:= _
  Path + Name + \".txt\", FileFormat:=xlText, _
  CreateBackup:=False

skal så se sådan ud:

ActiveWorkbook.SaveAs Filename:= _
  Path + Name, CreateBackup:=False

GRUNDE TIL FORMLER IKKE MÅ KOMME MED ,ER ET JEG SOMME TIDER MAILER ORDREN UD TIL LEVERANDØREN, OG DATOEN ER EN FORMEL, OG VIL SÅ BLIVE DATOEN FOR  ÅBNINGS DAGEN SÅ HAR JEG IKKE HOLD I HVORNÅR LEVERANDØREN ÅBNER SIN POSKASSE
MEN KODEN FOR DET MED SPECIEL ER VEL CA SÅDANSelection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False MED VENLIG HILSEN JOHNNY OG TAK FOR HJÆLPEN PS. DET SER UD TIL DER ER PROBLEMER PÅ EXPERTEN JEG KUNNE FØRS HENTE DI SVAR KL 12OO OG DU HAR SKREVET NOGET FØR