Nema opcije kojom moze automatski za ceo list, ali uz malo programiranja...



Uostalom pogledaj detaljnije na http://www.techonthenet.com/excel/macros/delete_hl.php

Pozdrav

Ah, da... Naravno, mozes i da vratis stil Normal u celije i time ce se izgubutu linkovi.

1. Selektuj celije
2. Odaberi Format/Style
3. Izaberi Normal
4. OK

Pozdrav

Meni ovo ne funkcionira, tj. obriše samo boju fonta ( iz plave u crnu ) ali linkovi ostaju i dalje aktivni

Ja sam to radio do sada na način da sam Copy sve linkove a potom na susjedni stupac Paste Special => Values , a ovaj code za Macro je OK i dobro ga je imati u svojoj kolekciji

Momci svaka cast, brzi ste ! ! !


Ovo ne uspeva samo preboji tekst iz plave u crnu boju !



Ovo sam skontao gde se ubacuje ali nisam uspeo da resim, probacu da se igram ako ne uspem pitacu te na PM, nisam se snasao bas mislim da cu uspeti ! ! !



Ovo je najprostije i najefikasnije, resio sam problem sa ovim ! ! !

Hvala vam svima i pokusacu da resim problem sa Macros kodom ! ! ! Odnosno pokusacu da skontam kako da odradim pomocu koda.
Hvala svima ! ! !
Pozdrav od Nikole ! ! !

Nema potrebe za PM, za to i postoji forum ( za širi krug čitatelja teme )

Dakle, evo jedan mali tutor step-by-step,


1. Selektiraj ovaj code i Copy

2. Otvori Excel Book1/Sheet u kojem se nalaze linkovi

3. Pritisni ALT+F11

4. Otvorio ti se VBA editor

6. Klik na Insert Module , i taj module ti je automatski selektiran u lijevom dijelu prozora a kursor blica u desnom dijelu prozora.

7. Paste, kopiranog code u desni dio prozora gdje kursor blica


8. Snimi i zatvori Microsoft Visaul Basic ( Ako nisi snimio Book1, tražit će te da imenuješ dokument )

9. Pritisni ALT+F8 ( ili Tools => Macros => Macro )

10. Otvorio ti se dijalog prozor Macro


11. Klikni na Run gumb ( inače ovom Macro-u možeš odrediti i prečac kombinacije tipki. Kada je otvoren dijalog prozor Macro, klik na Options i odrei CTRL+ ? )

12. Nema više aktivnih linkova samo text

Uao covece bas si lik. Super probao sam i ovo i radi, super je jel ce mo ovako pomoci drugima koji imaju slican problem, a dugo sam razmisljao da li da postavim temu, nekako sam mislio da ce me neko napsovati kako to ne znam.... ali super, sad sam naucio dva nacina skidanja hiper linkova. Svaka cast dobro ovo funkcionise. Hvala svima ! ! !

Koliko teksta..

Ima i "brži" način, nema potrebe za novim modulom, pokretanjem "makroa" (pa onda i brisanjem, ako mu je to jedina f-ja), a sve zbog jedne linije koda. Znači, iskopiraj ActiveSheet.Hyperlinks.Delete i onda:

• ALT+F11 (VB Editor)
• CTRL+G (Immediate)
• CTRL+v (Paste, ili, kucaš odmah: ActiveSheet.Hyperlinks.Delete)
• Enter

sad se samo "vratiš" u Excel i to je sve.
8)

Svaka cast i ovo je super stvar za skidanje hiperlinkova ! ! !

Pozdrav svima.
Imam jedan problemcic, evo o cemu se radi.

Imam jednu tabelu i izmedju ostalog jedna celija sadrzi broj telefona koji je linkovan tako da kad se klikne na celiju otvara se Outlok. E sad, zelim da uklonim link a da broj telefona ostane, probao sam na sve nacine. Selektujem celiju gde je link, desni klik i nema opcija "Remove Hyperlink". Takodje sam probao u kartici Insert u grupi "Hyperlink" kad se otvori prozorcic za kreiranje linka da uklonim, ni to ne moze.
Ima li neko ideju sta bi moglo da bude?
U pitanju je Excel 2007
Hvala unapred

_{[Ovu poruku je menjao tekvondista dana 08.11.2011. u 15:43 GMT+1]}

Pošalji primjer

Da li si probao
Copy - Paste Value

Jedan interesantan način za uklanjanje Hiperlinka je množenje sa nekom vrednošću npr. 1.

1- Uneseš 1 u neku ćeliju
2- Dok je ta ćelija aktivna izabereš Copy
3- Selektuješ sve ćelije iz kojih želiš da ukloniš hiperlinkove
4- Aktiviraj Paste Special, izaberi opciju Multiply i OK

Sugurno ti se može desiti da imaš više linkova za brisanje što je za očekivati
ovaj kod stavi u modul lista.Svaki put kad klikneš desnom tipkom miša na ćeliju u kojem se nalazi link za brisanje sigurno će ti ga obrisati.
Pozdrav
www.croexcel.com

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Hyperlinks.Count > 0 Then
Selection.Hyperlinks.Delete
End If
End Sub
evo i kod za uspostavu Hyperlinka

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cell As Range
For Each Cell In Selection
If Cell.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=Cell.Value, TextToDisplay:=Cell.Value
End If
Next Cell
End Sub
malo je čudan po logici
Pozdrav

_{[Ovu poruku je menjao lukarim dana 08.11.2011. u 19:56 GMT+1]}

Hvala svima za odgovore.
Probao sam mnozenjem sa 1 krajnji rezultat uspesan :)
I sa kodom koji je ostavio lukarim krajnji rezultat uspesan :)

Jos jednom hvala svima!