*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: link  (gelezen 4027 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
link
« Gepost op: 17 juni 2023, 13:33:46 »
Hoi,

deze reeds super code van MollyVH gehad en werkt perfect

alleen had ik een vraagje, zou dit ook kunnen om een txt file te openen?

Private Sub hyperlink_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveWorkbook.FollowHyperlink Address:="http://" & hyperlink.Text

End Sub


.hyperlink.Text = t_range(11)

alvast weer bedankt
Gelogd
Excel 365 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: link
« Reactie #1 Gepost op: 17 juni 2023, 14:54:17 »
Sunnybat,

1. Vooral SoftAid, maar ook anderen, hebben jou misschien al een dozijn keren gevraagd code tussen codetags te zetten. Gaat dat er ooit van komen?
2. Niet dat 1. hier veel uitmaakt, want wat heeft een hyperlink naar een website te maken met het openen van een tekstbestand?
3. Ja, dat kan, maar dan zal je ons moeten uitleggen waarom! Wil je dat tekstbestand zomaar in bv. kladblok openen? Of wil je ook iets met de inhoud doen, en zo ja, wat?

Groeten,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #2 Gepost op: 17 juni 2023, 15:48:45 »
@MollyVH

hoi, ik heb aan de vba niks gedaan ik heb deze zo van u gehad en ik denk als het werkt dan werkt het ( toch )
dus pas ik niks aan, alle vba codes  heb ik van u , SoftAid en RedHead gehad en alles werkt zo gewoon perfect
dus niks meer aan doen
u vraag waarom die txt, er wordt niks mee gedaan alleen maar informatie over een product



Gelogd
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 215
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #3 Gepost op: 17 juni 2023, 19:08:20 »
Citaat van: Sunnybat op 17 juni 2023, 13:33:46
Hoi,

deze reeds super code van MollyVH gehad en werkt perfect

alleen had ik een vraagje, zou dit ook kunnen om een txt file te openen?

Private Sub hyperlink_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveWorkbook.FollowHyperlink Address:="http://" & hyperlink.Text

End Sub


.hyperlink.Text = t_range(11)

alvast weer bedankt

Code: [Selecteer]
Private Sub hyperlink_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink Address:="http://" & hyperlink.Text
End Sub
Sunny,

welke code is duidelijker de bovenste (blauwe) of de onderste?
Gelogd
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #4 Gepost op: 17 juni 2023, 19:32:56 »
@Haije

van u,ben helaas de lege regel vergeten weg te halen

en vergeten te vermelden dat de txt ergens op een hdd staat :(
en in elke cel andere txt staat bv 209 en die heeft een link naar 209.txt
enz, enz


Gelogd
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 215
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #5 Gepost op: 18 juni 2023, 16:21:31 »
Sunny,

het gaat niet om de lege regel, maar om het woordje
Code: [Selecteer]
:Selecteer en de lijnen boven en onder de code.
En dat krijg je als je de tekst niet alleen plakt, maar ook opmaakt als code:
selecteer de betreffende tekst en klik op de knop met #
Gelogd
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #6 Gepost op: 21 juni 2023, 18:25:16 »
@Haije

2 dagen beetje ziek geweest en kon je magische woordje niet echt plaatsen
wel me dank dat ik eigenlijk ooit de code van MollyVH heb gehad
met een beetje denk denk, puzzel,puzzel heb ik het magische code zelf gevonden die ik nodig had
nu werkt zelfs een txt,pdf, en een jpg met deze vba  :thumbsup:

@MollyVH u ook super bedankt  :thumbsup:


Gelogd
Excel 365 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: link
« Reactie #7 Gepost op: 22 juni 2023, 11:47:11 »
@ Sunnybat,

Vooruit dan maar, ik doe ook nog een poging. Wat we je allemaal al opnieuw en opnieuw hebben gevraagd (Haije nu ook al met handen en voeten) is om code tussen codetags te zetten in je vragen of reacties. Als je niet begrijpt waar we over praten, kan je dat toch gewoon vragen, niet? Je zit anders toch nooit om een vraag verlegen...

Kijk, hieronder zet ik twee keer dezelfde code. Dit is hoe jij dat doet:
Private Sub hyperlink_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveWorkbook.FollowHyperlink Address:="http://" & hyperlink.Text

End Sub
En dit is hoe we het graag willen:
Code: [Selecteer]
Private Sub hyperlink_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveWorkbook.FollowHyperlink Address:="http://" & hyperlink.Text

End Sub
Dat is echt niet moeilijk. Selecteer de tekst en druk daarna op # (zie rode bol op bijgevoegde afbeelding).
Hiermee moet het duidelijk zien, niet? Dat betekent ook dat ik in het vervolg nog enkel reageer als je de 'spelregels' volgt!

En nog beter om snel en goed geholpen te worden is natuurlijk om altijd een voorbeeldbestand toe te voegen!

Mvg,
Molly

PS: wat meestal ook wordt geapprecieerd is dat je ons toont hoe je het gedaan hebt als je zelf een oplossing hebt gevonden.
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #8 Gepost op: 22 juni 2023, 12:14:09 »
@MollyVH

alvast super bedankt voor de reactie

ik had eigenlijk al meer als de helft van jou de code gehad
dit had ik ervan gemaakt, als je nu .txt een doc,jpg of pdf van maakt opent hij die ook

Code: [Selecteer]
[code]Private Sub TextBox18_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     If Button = 1 Then ThisWorkbook.FollowHyperlink "D:\" & TextBox18 & ".txt"
End Sub
[/code]
Alvast weer super bedankt, deze userform is nu compleet dus even weer rust  :thumbsup:

ps als ik weer iets te vragen heb zal ik me eraan houden



Gelogd
Excel 365 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: link
« Reactie #9 Gepost op: 22 juni 2023, 13:42:50 »
en je zet je code wééral NIET tussen code tags ?  >:(
Gelogd

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 229
  • Geslacht: Man
  • Oplossing.be
Re: link
« Reactie #10 Gepost op: 22 juni 2023, 14:03:43 »
@Montagnard

vergeten, little pc crash :'(
Gelogd
Excel 365 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: link
« Reactie #11 Gepost op: 22 juni 2023, 14:05:43 »
 :thumbsup:
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com