• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Benaming veranderen voor toepassing in Hyperlink

Status
Niet open voor verdere reacties.
J

Johande

Gebruiker
Lid geworden
23 nov 2015
Berichten
47
Hallo Allemaal,

Wie kan mij helpen met mijn probleempje.
ik voeg een bestand er bij met 2 regels maar dit zal uiteindelijk gaan om 2300 art.

De benaming veranderen in Zoals blauw in geel vlak aangegeven
En de groep kiezen door de eerst 4 karaters te selectmen.

Is het mogelijk om dan een werkende hyperlink te krijgen?

Ik voeg er een bestand in bijlage bij waar een voorbeeld van mij in staat.


Ik hoor graag van jullie.

gr, Johan
 

Bijlagen

  • Excel hyperlink.png
    Excel hyperlink.png
    56,3 KB · Weergaven: 19
  • 03022022 Artikeloverzicht.xlsm
    21,1 KB · Weergaven: 10
Zo wellicht? (ter inspiratie)
Code: 
=HYPERLINK([@[Nr.]]&[@Omschrijving]&".pdf")
 
PHP: 
=HYPERLINK("..\..\..\Tekeningen\Groep\" &A2&B2 &".PDF";A2&B2)
=HYPERLINK("..\..\..\Tekeningen\Groep\" &LEFT(A2;4) & "\" &A2&B2 &".dwg";A2&B2)
 
Hallo Alexcel en Snb,

Hoe plaats ik dit in de VBA code ik krijg het niet lopent.


Alvast bedankt.
 
Hoezo ? daar heb je toch geen VBA voor nodig ?
 
Iets behulpzamer: die formule zet je in de cel waar je de hyperlink wilt hebben.
 
ALs het met een code wordt uitgevoerd zijn er geen formules die gewijzigd kunnen worden door andere.
En met de toekomst makkelijker aan te passen en uit te voeren.
Kan ook blad beveiligen maar toch werken wij op deze manier vandaar.
 
Zonder VBA is het denk ik beter te onderhouden. Niet veel mensen begrijpen VBA en als jij elders gaat werken zitten ze er maar mee. Een Excel formule gaan ze nog wel snappen denk ik.
En anders beveilig je het tabblad.
 
Als het dan per se VBA moet zijn, is dit wat je bedoelde?
 

Bijlagen

  • 03022022 Artikeloverzicht.xlsm
    20,9 KB · Weergaven: 11
Beste A-hulpje,

Sorry voor een late reactie.
Maar heb het zo opgelost.
Bij verschillenede benamingen stonden extra spatie achter de benaming waardoor het niet te openen was.
 

Bijlagen

  • 03022022 Artikeloverzicht (1).xlsm
    21,6 KB · Weergaven: 5
Gebruik Option Explicit, je ziet dan welke variabelen je niet gedeclareerd hebt.
Je hebt ook enkele variabelen gedeclareerd die je niet gebruikt:
a, x, wb, Hypelink, MyString


En TrimString = Trim(MyString) is overbodig.
Als je Groep als integer declareert vinden er tal van impliciete conversies van string naar integer en vice versa plaats, beter dus declareren als String.

Je trimt in kolom B eventuele omliggende spaties, maar voordat je dat doet heb je Omschrijving al gevuld met de waarde uit kolom B, die Omschrijving bevat dus nog de eventuele spaties.
Verder gebruik je zes keer de combinatie van Nummer en Omschrijving, dat kan korter.

Dus
Omschrijving = art.Cells(i, 2).Value
TrimString = Trim([Omschrijving])
art.Cells(i, 2).Value = TrimString
zou ik dan vervangen door
art.Cells(i, 2) = Trim(art.Cells(i, 2))
NumOms = art.Cells(i, 1) & " " & art.Cells(i, 2)

Zie bijlage.
 

Bijlagen

  • 05082022 Artikeloverzicht.xlsm
    20,9 KB · Weergaven: 8
Hallo Ahulpje,

Dank je voor de extra uitleg en aanpassing.
Pas het toe.
 
Beste Ahulpje,

Kan ik er een kolom toevoegen om alleen naar het bestand te gaan om deze te versturen en niet te openenen?
Nu wordt het bestand gelijk geopend.
 
Wat bedoel je met "alleen naar het bestand gaan"? De verkenner openen en naar de bestandslocatie gaan?
Of een mailclient openen met als bijlage het bestand?
Zo ja, welke mailclient? En welk van de drie bestanden PDF, DWG of DXF?
 
als bijvoorbeeld artikel besteld moet worden.
Dat er een pdf en een dwg en eventueel een dxf verstuurd kunnen worden als bijlage zonder het bestand eerst te openen.

Mail wordt verstuurd met outlook.
 
Bijgaand een versie met e-mail optie.
Klik met de rechtermuisknop op een van de bestanden in de kolommen I, J of K, de rest wijst zich vanzelf.
Foutcontroles (b.v. bestaan de bestanden?) mag je zelf inbouwen.
 

Bijlagen

  • 05082022 Artikeloverzicht met mail.xlsm
    29,8 KB · Weergaven: 7
Mij lijkt dit voldoende:

Code: 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  With CreateObject("Outlook.Application").CreateItem(0)
    .To = ""
    .Subject = "Onderwerp"
    .Body = "Berichttekst"
    .Attachments.Add Target.Address
    .Send
  End With
End Sub
 
Dus een klik op de hyperlink heeft tot gevolg dat altijd het bestand geopend wordt en er een mail wordt klaargezet. Lijkt mij niet helemaal de bedoeling, zeker niet als het een zware AutoCAD tekening betreft. Ook de mogelijkheid om een combinatie van PDF, DWG en DXF te versturen ontbreekt. Maar laat de TS zijn oordeel maar vellen.
 
Hallo Allemaal,

Helemaal perfect met de bestanden direct in de mail te plaatsen.
Dit kan ook weer worden toegepast op voorbeeld tekeningen van producten naar bv Architecten.

Top!

Ik wil eens gaan kijken of het niet mogelijk is de bestanden als een ingepakt bestand te versturen bij selecteren.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan