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
iOS 11 Beta prøvekørt: iPad-brugere kan godt begynde at glæde sig
Til september kommer iOS 11. Nyheden er særligt rettet mod iPad-brugere, og efter at have prøvet betaen i en uge, er vi positivt stemt.
CIO
Global it-boss: Du kan ikke lede en tech-virksomhed gennem et regneark - fornemmelse for teknologien er afgørende
Interview: Ledelsesgangen i en techvirksomhed må ikke være et gemmested for chefen. Hvis du vil have succes som leder i dag, skal du have hænderne nede i skidtet. Den amerikanske tech-topchef Pat Gelsinger guider dig her til succes som leder.
Job & Karriere
Se listen: Disse it-folk bliver ansat på stedet - cheferne skriger efter helt bestemte it-kompetencer
Der er en markant mangel på it-folk med helt bestemte kompetencer samtidig med, at it-cheferne er i gang med at øge bemandingen i it-organisationerne. Se listen med de mest efterspurgte it-kompetencer netop nu.
White paper
Netværksprinteren er den oversete trussel mod din virksomheds it-sikkerhed - her er de gode råd
Danske virksomheder er i stigende grad under angreb fra it-kriminelle, og oplever flere og flere brud på it-sikkerheden. En undersøgelse blandt 300 it-ansvarlige gennemført af Spiceworks i samarbejde med HP viser, at 16 procent af de registrerede brud på it-sikkerheden involverede printere. I 2014 var tallet kun fire procent. Alligevel er det kun fire ud af ti it-ansvarlige, som har indført tilstrækkelige sikkerhedspolitikker for netværksprintere, hvilket udsætter virksomheden for betydelig risiko: Hackerangreb, blotlæggelse af følsom information eller bøder i forbindelse med EU’s persondataforordning.