DF81 Juniormester
18. maj 2017 - 10:00 Der er 3 kommentarer

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
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
WannaCry-helt angrebet af hævntørstige hackere - men det største problem var faktisk politiet
Sikkerhedseksperten Marcus Hutchins stoppede ved et tilfælde spredningen af WannaCry og blev berømt i hele verden. Siden er han både blevet angrebet af hackere og har fået servere lukket af politiet.
CIO
Bliv klar til EU-persondataforordningen: Ministerium klar med længe ventet dansk vejledning til den nye EU-lov
Justitsministeriet er efter en måneds forsinkelse klar med den store vejledning til EU's kommende persondataforordning, der kommer til at få konsekvenser for alle danske virksomheder. Se vejledningen her.
Comon
Microsofts vilde - og hammerdyre - Surface Studio kommer til Danmark
Microsofts all-in-one-computer, Surface studio, kommer til Danmark midt i juni til en vild pris
Job & Karriere
Dansk it-firma masseansætter: Skal bruge 90 nye medarbejdere med disse it-profiler
It-virksomheden BEC skal bruge 90 nye it-medarbejdere. Her kan du se de konkrete it-profiler, BEC er på udkig efter.
White paper
Guide til hyperconverged infrastructure - Alt om forenklet it-infrastruktur
I dette white paper får du en guide til at komme i gang med Hyperconverged Infrastructure (forenklet it-infrastruktur)