Potrebni su mi makroi za WORD/excel

Word

Odgovori Nova tema

2 odgovora
5.254 pregleda

Potrebni su mi makroi za WORD/excel 02.02.2006. u 17:35 · pre 252 meseca #1

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)

Re: Potrebni su mi makroi za WORD/excel 03.02.2006. u 16:34 · pre 252 meseca #2

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.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Imam resenje za EXCEL 04.02.2006. u 12:36 · pre 252 meseca #3

Hvala Jpeca.

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

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme