Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebni su mi makroi za WORD/excel

[es] :: Office :: Word :: Potrebni su mi makroi za WORD/excel

[ Pregleda: 4517 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

euroeu

Član broj: 72260
Poruke: 10
*.etf.bg.ac.yu.



Profil

icon Potrebni su mi makroi za WORD/excel02.02.2006. u 16:35 - pre 220 meseci
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]
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
212.200.27.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Potrebni su mi makroi za WORD/excel03.02.2006. u 15:34 - pre 220 meseci
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.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

euroeu

Član broj: 72260
Poruke: 10
*.ETF.BG.AC.YU.



Profil

icon Imam resenje za EXCEL04.02.2006. u 11:36 - pre 220 meseci
Hvala Jpeca.

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

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

[es] :: Office :: Word :: Potrebni su mi makroi za WORD/excel

[ Pregleda: 4517 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.