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 Professor
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 Professor
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



Seneste artiklerRSS
15:22
14:40
14:00
13:40
13:06
12:55
12:04
11:04

 


Premium
Tung Atea-dominans på hardware-markedet helt ok, mener SKI: "Hvis en virksomhed vokser sig stor, er det typisk også fordi, den gør et eller andet rigtigt. Der er ikke noget i vejen med at være dominerende"
Der er glimrende konkurrence på markedet for det offentliges hardware-indkøb, selv om Atea lander de fleste ordrer, mener SKI. "Det er min opfattelse, at der er en glimrende og benhård konkurrence på hardwaremarkedet. Det er ikke nemt at være aktør på det marked," siger udbudsdirektør i SKI, Christian Lunding.
Computerworld
Kæmpe-cyberangreb afsløret: Millioner af computere hacket - pilen peger (igen) mod Rusland
Pilen peger entydigt mod Rusland, mener USA og Storbritannien. Se stor advisory om angrebet, der har inficeret millioner af routere, switche og lignende i virksomheder og myndigheder.
CIO
Allersidste opdatering på vej: Om en uge er det slut med stor-version af Windows 10 - skynd dig at opdatere
Om en uge er det slut for altid med den første store udgave af Windows 10, som Microsoft efter 29 måneder ikke længere vil supportere.
Job & Karriere
Klassiske brokere af it-konsulenter står over for kæmpe udfordring - forretningsmodellen er under pres
Klumme: Eksterne konsulenter er populære og en god løsning i en branche i vækst. Men selve forretningsmodellen bag it-konsulenterne er under alvorligt pres.
White paper
Sådan vælger du business intelligence-løsning
I dette whitepaper undersøger vi, hvilke faktorer du skal være opmærksom på, når du vælger din kommende BI-løsning