03. januar 2010 - 14:47Der er
23 kommentarer og 1 løsning
Makro virker ikke??
Hej, jeg har forsøgt at lave en makro:
Kort fortalt: Den skal oprette en mappe på mit drev Arket er opbygget sådan at man skal stå på celle "A" i en række, og så skal den oprette mappen med et navn som angivet i celle "q" i samme række.
Makroen skal virke for 12 ark (et for hver mdr)
Når makroen er afsluttet skal den aktive celle stadig vær den som da makroen blev fyret af!
Jeg har forsøgt mig, men det virker ikke?? Makroen er placeret i "this workbook" -------------------------------------- Private Sub Opret_mappe()
' Register udgangs punkt Dim home As String home = ActiveCell.Address
Const myFolder As String = "C:\Documents and Settings\acst\Desktop\Tilbud\"
Dim T_name As String ActiveCell.Offset(0, 13).Activate T_name = ActiveCell.Value
'With T_name On Error Resume Next MkDir myFolder & .Value On Error GoTo 0 Range(home).Select
1) Lav et modul til din kode - det er mere korrekt 2) Fjern ' i linjen 'With T_name 3) Slet "On error resume next" så du kan se, hvad der kommer af fejl
Det var lige fra hoften 3 ting der springer frem. Har ikke testet om det er nok til at få koden til at virke.
DVS hvis jeg står i mappe A11 så skal den nye mappe døbes teksten i cella Q11. Celle Q 11 indeholder følgende funktion: =CONCATENATE(A11;" ";D11;" - ";F11;", ";G11)
Den nye mappe kunne f.eks.: skulle døbes [ A11 ] [D11] [ F11 ] [ G11 ] 262-10-001 Kunde - Nyt lager, København
Mappen placeres i C:\Documents and Settings\acst\Desktop\Tilbud
Og den komplette sti skulle så være: C:\Documents and Settings\acst\Desktop\Tilbud\262-10-001 Kunde - Nyt lager, København
Prøv at kopiere den værdi der kommer i msgbox og manuelt oprette mappen fra en commandprompt, så du er sikker på, at det faktisk er et lovligt mappenavn
hvis jeg vil ha den til ak skrive "den ønsket mappe findes allerrede" hvordan får jeg så det løst?? Det var detfor fejle kom!
Jeg skylder vist snart lidt mere ens 100 point..
Jeg har brug for at få beskde boksen hvis mappen findes, og jeg øsker makroen startet fra en CommandButton placeret i et af de 12 ark, hvor skal jeg så placer makroen?
Hvor skal teksten indsættes? Og hvordan får jeg angivet at de 12 knapper skal (1 i hver af de 12 ark) skal kunne afspille makroen? Jeg har placeret makroen i modul 11
--------------------
Private Sub Opret_mappe()
Dim home As String home = ActiveCell.Address
Const myFolder As String = "C:\Documents and Settings\acst\Desktop\Tilbud\"
Sub ShowFolderList() Dim fs, f, f1, fc, s Dim folderspec folderspec = CurDir() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 In fc s = s & f1. Name s = s & vbCrLf Next MsgBox s End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
