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





Premium
Hjalp virksomheder Atea med at klage over omstridt udbud i Region Sjælland? Forsvarer udpeger Ib Kunøe som fællesnævner
Der indløb klager fra flere it-selskaber, da Region Sjælland i 2015 udpegede 3A-it som vinder af et stort it-udbud foran næsen af Atea. Det pudsige er, at klagerne var næsten ens. Forsvarer i Atea-sagen peger på et interessant sammenfald - Ib Kunøe.
Computerworld
Fona-ejer skal betale million-beløb tilbage: Hævede 22 millioner kroner lige inden krak
Fona-ejeren Elkjøp Nordic trak uretmæssigt 22 millioner kroner ud af selskabet lige inden salget af den kendte kæde gik ned med flaget.
CIO
Her er tre vigtige spørgsmål, som du altid bør stille til sælgere af it-systemer
Klumme: Softwareudviklere elsker at hade sælgere, der generelt er lidt for glatte, lidt for smilende, lidt for hjertelige og også dygtige til at undvige eller parere, når man fagligt argumenterer for sine forbehold overfor det system, man lige har fået præsenteret og lynhurtigt har spottet ikke vil fungere.
Job & Karriere
Regeringen vil gøre it-undervisning obligatorisk i folkeskolen: "Planen er, at alle danske børn skal lære at kode," siger undervisningsministeren
Interview: Regeringen indfører obligatorisk undervisning i it i folkeskolen på alle klassetrin og præsenterer fredag ny plan. Ny forsøgsordning i op til 50 skoler skal bane vejen. “Visionen for planen er, at alle danske børn skal lære at kode,” siger undervisningsminister Merete Riisager (LA).
White paper
Står din infrastruktur i vejen for virksomhedens udvikling? … her er de 10 vigtigste overvejelser
Oplever du, at din virksomheds it-infrastruktur er en stopklods for udviklingen af forretningen, digitalisering og konkurrencekraft? Måske er svaret hyperkonvergeret infrastruktur, hvor software og hardware smelter sammen i én konkurrencedygtig enhed, som er nem at administrere. Men der er 10 meget vigtige overvejelser at gøre sig, før man vælger en løsning. Læs dette whitepaper fra Lenovo og bliv klædt bedre på til at vælge rigtigt. 10 Key Considerations for Selecting Hyper-Converged Infrastructure - What to Know Before You Choose a Solution, Lenovo, 18 sider på engelsk.