Excel data naar nieuwe map in windows verkenner?

[henri77]

Hallo allemaal,

Ik wil graag in een werkblad cellen selecteren (waar tekst in staat)
dan rechts klikken o.i.d. en dan automatisch een nieuwe map aanmaken in de
windows verkenner met de naam van de data die ik geselecteerd heb.

Kan dat? En weet iemand hoe ik dit kan doen?

vr. gr.
Henri!

 

[RogerS]

macro schrijven in vb is de enige oplossing

 

[Warme bakkertje]

Dubbelklik in de bijlage op A1 en de directory wordt aangemmaakt.

 

[henri77]

Hallo Rudi,

Bedankt voor je reactie.
Ik heb wel een vraag:
kan ik ook de tekst " D:\Mijn documenten\ " onzichtbaar maken?
Ik wil eigenlijk alleen de naam invullen en dan bijvoorbeeld dubbelklikken.

Alvast bedankt
vr.gr. Henri!

 

[Warme bakkertje]

m.a.w. het volledige pad bestaat reeds, het is enkel de laatste map (met de getypte naam) die moet aangemaakt worden ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    MkDir "D:\Mijn documenten\" & [A1].Value
End Sub

 

[henri77]

Hallo Rudi,

Kort maar krachtig: Ja!

vr.gr. Henri!

 

[Warme bakkertje]

Vorige post aangepast

 

[henri77]

Maar goed dat er geen domme vragen zijn maaruh,
wat moet ik nu doen??? Ik heb absoluut geen ervaring met macro's!!!

 

[henri77]

en/of VBA

 

[Roncancio]

Maar goed dat er geen domme vragen zijn maaruh,
wat moet ik nu doen??? Ik heb absoluut geen ervaring met macro's!!!

- Klik met de rechtermuisknop op de tabblad (onderaan het scherm)
- Selecteer Programmacode weergeven.
- Plak daar de code in die Rudi in #5 heeft geschreven.

Met vriendelijke groet,


Roncancio

 

[henri77]

Roncancio,
Bedankt. Ik krijg wel een foutmelding nl:
Fout 76 tijdens uitvoering:
Kan het pad niet vinden.

Bij foutopsporing krijg ik dit:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MkDir "D:\Mijn documenten\" & [A1].Value (DEZE KLEUR IS GEEL)
End Sub

 

[Roncancio]

Roncancio,
Bedankt. Ik krijg wel een foutmelding nl:
Fout 76 tijdens uitvoering:
Kan het pad niet vinden.

Bij foutopsporing krijg ik dit:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MkDir "D:\Mijn documenten\" & [A1].Value (DEZE KLEUR IS GEEL)
End Sub

Dan bestaat er geen D-schijf en/of op de D-schijf is er geen map Mijn Documenten.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MkDir [COLOR="red"]"D:\Mijn documenten\"[/COLOR] & [A1].Value (DEZE KLEUR IS GEEL)
End Sub

Pas het rode gedeelte aan aan de werkelijke situatie

 

[henri77]

Hallo Rudi,

Dank voor je reactie.
Het probleem heb ik nog steeds.
Kan het misschien komen doordat m'n systeem onder Vista draait???
of misschien omdat ik excel 2007 heb?? Jou excel extensie is .xls en ik heb .xlsx

Ik doe maar een wilde gok hoor?

 

[Warme bakkertje]

Het bestand van waaruit je gaat werken moet opgeslagen zijn. Plaats dit in de directory waar de nieuwe bestanden moeten komen en gebruik dan onderstaande

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MkDir ThisWorkbook.Path & "\" & [A1].Value 
End Sub

 

[henri77]

Hallo Rudi,

Het is gelukt! bedankt.
Ik had "gewoon" een excel bestand op moeten slaan als een excel werkmap met macro's.

Nu komt m'n werkgever met het volgende:
Hij wil in één cel een projectnummer invullen en in de cel ernaast een project omschrijving,
De data van deze twee cellen samen moeten dan de naam krijgen van de map in de verkenner.
Zou dit ook kunnen met een macro? En zou je hier aub naar willen kijken?

Ik hoop dat je mij nog een keer wilt helpen!

Vr. gr. Henri!

 

[Warme bakkertje]

Zet onderstaande in de bladmodule v/h blad waar de cellen ingevuld worden.
Projectnummer in A1 en Projectomschrijving in B1. Bij het wijzigen van B1 wordt eerst gecontroleerd of A1 gevuld is, indien ja wordt de Map automatisch aangemaakt

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" And Target.Offset(, -1) <> "" Then
    MkDir ThisWorkbook.Path & "\" & Target.Offset(, -1) & "-" & Target
    End If
End Sub

 

[henri77]

Yes. Dit is het!!

Ontzettend bedankt!
Als ik nu onder rij A nog meer gegevens wil invoeren kan dat met kopieren en plakken?

Nogmaals dank!

vr. gr.Henri!

 

[Warme bakkertje]

Begrijp niet goed je bedoeling ?

 

[henri77]

Hallo Rudi,

In de bijlage zit een tabel met project informatie.

Had ik achteraf gezien beter meteen moeten doen......

In kolom A moeten de projectnummers komen,
in kolom B de projectomschrijving.
De gegevens in Cel bv A2 en B2 moeten dan samen in een nieuwe verkennermap komen.
hetzelfde geldt dan ook voor A3 en B3; A4 en B4 etc. etc.

Ik hoop je hiermee voldoende te hebben geinformeerd.

vr. gr. Henri!