Potrebni su mi makroi za WORD/excel

[ euroeu @ 02.02.2006. 16:35 ] @

Potrebni su mi makroi za WORD/excel koji bi iz tabele koja ima dve kolone (vidi sliku) napravi novu sa linkom. Takodje da li je moguce i da se napravi obrnuto sa makroom.

Moze i ako bi radio sa razdvajanjem pomocu nekog "delimitera" i bez tabela (merge)

(mozda da pustim ovu temu i na "VB & ASP" forumu)

_{[Ovu poruku je menjao euroeu dana 02.02.2006. u 17:36 GMT+1]}

[ Jpeca @ 03.02.2006. 15:34 ] @

Ako ti odgovara bez makroa:
Napravi novi list i u njemu napiši formulu
=HYPERLINK("http:\\" & Sheet1!B1;Sheet1!A1)
kopiraj je za ceo opseg

pa onda ovaj stari list možeš da sakriješ Format/Sheet/Hide

Ako baš hoćeš pomoću makroa:

Code:

Sub Linkovi()
'
' Kreira linkove u trecoj koloni na osnovu sadrzaja prve i druge
' pa posle brise prvu i drugu kolonu
'

Dim cl As Range

    For Each cl In Range("C1:C4").Cells  ' Navedi svoj opseg
    ActiveSheet.Hyperlinks.Add Anchor:=cl, _
        Address:=cl.Offset(ColumnOffset:=-1).Text, _
        TextToDisplay:=cl.Offset(ColumnOffset:=-2).Text
    Next cl
' Brisanje
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft

End Sub

Obrati pažnju da Undo posle makroa ne radi pa napravi rezervu. Koristeći navedena svojsteva Hiperlinkova (Address i TextToDisplay) naravno možeš da napraviš i obrnuto.

[ euroeu @ 04.02.2006. 11:36 ] @

Hvala Jpeca.

kolega mi je nasao resenje za EXCEL, preko www.praktikum.co.yu

Mozete ga naci na: http://www.megaupload.com/?d=S30TOQ9M