DF81 Juniormester
18. maj 2017 - 10:00 Der er 3 kommentarer og
1 løsning

ny mappe og gem

Hej alle
jeg har et problem med min vba kode, problemet er at jeg vil gerne oprette en ny mappe med navn fra en celle i mit excel ark og samtidig gemme filen som med samme navn i den nye mappe,
som min kode er nu bliver der oprettet en ny mappe hvor jeg vil have den og den gemmer filen samme sted men ikke i den nye mappe.
Jeg har prøvet at kigge eksperten igennem for at finde en lignende tråd uden held har også søgt det meste af nettet igen uden held.

min koder ser således ud.
Private Sub CommandButton2_Click()
MkDir "G:\salg\dennis testmappe\" & Range("b1")
Range("b1").Select
a = Selection
ChDir "G:\salg\dennis testmappe\" & a
ActiveWorkbook.SaveAs Filename:=("G:\salg\dennis testmappe\") & a
MsgBox ("Eftersyns skemaet er gemt!"), vbInformation, "Gem som"

End Sub

håber der er en eller anden der kan hjælpe
DF
kabbak Forsker
18. maj 2017 - 11:11 #1
Private Sub CommandButton2_Click()
Dim Sti As String
    Sti = "G:\salg\dennis testmappe\" & Range("b1")
    If IsError(Dir(Sti)) Then
        MkDir Sti
    End If

    ActiveWorkbook.SaveAs Filename:=Sti & "\" & ActiveWorkbook.Name
    MsgBox ("Eftersyns skemaet er gemt!"), vbInformation, "Gem som"

End Sub
DF81 Juniormester
19. maj 2017 - 09:10 #2
tak for hjælpen men den laver en fejl på
ActiveWorkbook.SaveAs Filename:=Sti & "\" & ActiveWorkbook.Name
jeg ved ikke helt hvad problemt er men fil navnet skal være det samme som mappens navn altså Range b1
kabbak Forsker
19. maj 2017 - 15:51 #3
Private Sub CommandButton2_Click()
    Dim Sti As String
   
    Sti = "G:\salg\dennis testmappe\" & Range("b1")
    If Dir(Sti, vbDirectory) = "" Then
        MkDir Sti
    End If

    ActiveWorkbook.SaveAs Filename:=Sti & "\" & Range("b1")
    MsgBox ("Eftersyns skemaet er gemt!"), vbInformation, "Gem som"

End Sub
DF81 Juniormester
12. juni 2017 - 09:27 #4
super Kabbak
nu fik jeg endelig afprøvet din kode og den virker som den skal
tusind tak for hjælpen
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Computerworld
Så nemt er det at fuppe sig til 80.000 kroner: Her er læren af den seneste MobilePay-svindel
ComputerViews:En tidligere chefredaktør på Computerworld blev for nylig svindlet for 80.000 kroner via MobilePay. Men det betyder ikke, at systemet er usikkert.
CIO
Dansk it-afdeling med 140 ansatte vil væk fra 'brændende platform'
Landbrugsstyrelsens it-afdeling, der nærmer sig 140 medarbejdere, har en klar mission: “Jeg håber, at vi hurtigst muligt er ude af den brændende platform, hvor it er den begrænsende faktor,” lyder det fra underdirektør.
Comon
Ugens tip: Find ud af hvem der ringer til dig med Facebook og MobilePay
Hvis du bliver ringet op af et nummer, du ikke kender, kan du lynhurtigt bruge en af to smarte tricks til at finde ud af, hvem de er - også selv om nummeret er beskyttet
Job & Karriere
Dansk it-virksomhed indførte fire-dages arbejdsuge: I dag er sygefraværet rekord-lavt og direktøren har tabt sig 13 kilo
Interview: Great Place To Work kategori-vinderen IIH Nordic har indført en fire-dages arbejdsuge og taget et opgør med forstyrrende storrums-kontorer og en frustrerende mailkultur. I dag er medarbejderne gladere end nogensinde før.
White paper
Sådan anvender du Microsofts Assessment og Planning Toolkit i dit it-miljø
Dette whitepaper gennemgår hvordan du anvender du Microsofts Assessment og Planning Toolkit i dit it-miljø og kommer med specifikke råd og konkret vejledning til anvendelsen.