EXCEL otvaranje foldera po podatku iz ćelije

[ DJURICGORAN2 @ 17.01.2013. 11:43 ] @

Potrebna je pomoć u rešavanju jednog problema, naime potrebno mi je na osnovu podataka iz ćelija otvorim foldere koji će imati naziv po sadžaju ćelije:
na primer:
A1 sadržaj GORAN otvori nov folder pod imenom GORAN
A2 sadržaj IVAN otvori nov folder pod imenom IVAN
i tako redom duž cele kolone.

Unapred hvala !

[ FOX028 @ 17.01.2013. 12:48 ] @

U prilogu je primer za resenje tvog problema.

[ DJURICGORAN2 @ 17.01.2013. 20:43 ] @

To je to !!
veliko hvala!!

[ Ivek33 @ 19.01.2013. 00:38 ] @

Citat:

FOX028:
U prilogu je primer za resenje tvog problema.

hmm, rješenje je dato i pokretač teme zadovoljan, da ne kažem "vuk sit sve ovce na broju". Međutim koliko ja vidi u tom macrou potrebno je definirati ime foldera što nije adekvatno rješenje postavljenom pitanju.
Nekada davno sam se time zanimao pa mogu samo dodati, Kako kreirati više foldera na osnovu naziva u ćelijama pomoću VBA macroa. A macro izgleda ovako

Code:
Sub NapraviFoldere()
    Dim MyFolder As String
    Dim Cell As Range
    MyFolder = "C:\Temp\"
    For Each Cell In Selection
        MkDir MyFolder & Cell
    Next Cell
End Sub

[ djoka_l @ 19.01.2013. 00:58 ] @

Ivek, nisi u pravu. I ja sam se u prvi mah prevario, ali ako malo skroluješ na dole macro, videćeš da se kriraju folderi prema sadržaju ćelija. Prvi deo makroa, koji se vidi kada se otvori VB editor, samo služi da se odabere koreni folder u kojem se kreiraju ostali...

[ Ivek33 @ 19.01.2013. 10:23 ] @

Citat:

djoka_l: I ja sam se u prvi mah prevario,

OK, nisam ni mislio da Macro ne valja, već sam pogrešno shvatio pitanje. Ja sam pitanje razumio da želi samo klikom bez dodatnih peripetija kreirati foldere.
U svakom slučaju sada potencijalni forumaši imaju dva rješenja

pozz

[ elektroing @ 19.01.2013. 13:32 ] @

Mala prepravka koda koji je postavio Ivek33, ovim se eliminise greska koja se javljala kada postoji folder pod istim imenom.

Code:

Sub NapraviFoldere()
    Dim Cell As Range
    MyFolder = "C:\Temp\"
    For Each Cell In Selection
        If Dir(MyFolder & Cell, vbDirectory) = "" Then
            MkDir MyFolder & Cell
        End If
    Next Cell
End Sub

[ FOX028 @ 20.01.2013. 12:22 ] @

Evo malo sam preuredio kod tako da kreira foldere sa nazivima iz celija koje su selektovane a ne samo iz jedne kolone.

[ DJURICGORAN2 @ 20.01.2013. 13:44 ] @

Hvala na trudu, ali nismo se razumeli, folder bi trebao da ima ime koje sadrzi podatak iz A i B kolone.
A1 = GORAN a B1= DJURIC a da se folder zove GORAN DJURIC

Pozdrav i hvala

[ FOX028 @ 20.01.2013. 15:37 ] @

Evo ispravljenog koda, samo selektuje prvu kolonu i klkni na dugme Kreiraj foldere. Npr. ako ti se imena nalaze u koloni A a prezimena u koloni B selektuj samo kolonu A bez prekida izmedju i klikni na Kreiraj foldere.

[ elektroing @ 20.01.2013. 18:49 ] @

Evo prepravke i za ovaj kod.

Code:

Sub NapraviFoldere()
     Dim Cell As Range
     MyFolder = "C:\Temp\"
     For Each Cell In Selection
        If Dir(MyFolder & Cell & " " & Cell.Offset(0, 1), vbDirectory) = "" Then
            MkDir MyFolder & Cell & " " & Cell.Offset(0, 1)
        End If
     Next Cell
  End Sub