Gedeelte celwaarde in andere cel

[hoogteijling]

Hallo allemaal,

Voor echte Excel goeroe's is dit waarschijnlijk een eitje:

In cel E3 moeten een aantal waarden komen uit de cellen B3 en C3.
Wanneer je het bijgevoegde bestand opent is het een stuk duidelijker denk ik.

Groeten Marcel
Bekijk bijlage Formulier.xlsx

 

[snb]

=hyperlink("P:\"&LEFT(C3;1)&"-nummers\" & C3&"\4.tekeningen\02.tekeningen derden\"&TEXT(B3;"jjjj-mm-dd"))

 

[Niels28]

Eigen functie

Function SamenvoegenTekst(projectnummer As Range, datum As Range) As String
    Application.Volatile
    SamenvoegenTekst = "P:\" & Left(projectnummer, 1) & "-nummers\" _
    & Replace(projectnummer, ".", "") & "\4.tekeningen\02.tekeningen derden\" _
    & Year(datum) & "-" & Month(datum) & "-" & Day(datum)
End Function

formule in E3

=SamenvoegenTekst(C3;B3)

Niels

 

[Niels28]

met 2x klikken op het projectnummer.
dan heb je kolom E niet nodig.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveWorkbook.FollowHyperlink Address:="P:\" & Left(Target.Value, 1) & "-nummers\" _
    & Replace(Target.Value, ".", "") & "\4.tekeningen\02.tekeningen derden\" _
    & Year(Target.Offset(, -1).Value) & "-" & Month(Target.Offset(, -1)) & "-" & Day(Target.Offset(, -1))
End Sub

Niels

 

[hoogteijling]

SNB en Niels, bedankt voor jullie reactie,

De oplossing van SNB werkt. (Ik heb hem wel even NL moeten maken).

=HYPERLINK("P:\"&LINKS(C3;1)&"-nummers\"&C3&"\4.tekeningen\02.tekeningen derden\"&TEKST(B3;"jjjj-mm-dd"))

Alleen zie ik net dat het projectnummer 2.020 exact overgenomen moet worden, incl. de punt.
Anders klopt het pad naar de map niet.
Is dit ook nog in te passen in de formule ?

De oplossing van Niels krijg ik niet aan de praat, er blijft #NAAM? staan.
Ik heb de code in ThisWorkbook en in Blad1 gezet.
Het zal ongetwijfeld aan mijn onkunde liggen met EXCEL VBA.
In VBA moet ik de Excelcommando's in het Engels laten staan toch ?

Groeten Marcel

 

[Niels28]

Code moet in een module staan en niet achter het blad.

Aanpassing in formule van SNB vervang de 2de c3 door

=SUBSTITUEREN(C3;".";"")

Niels

 

[hoogteijling]

Nu de code in een module staat werkt ie wel goed
Kan er bij die code ook een puntje in het projectnummer gezet worden ?

En bij de code van SNB weet ik niet precies welk gedeelte ik moet vervangen door

=SUBSTITUEREN(C3;".";"")

Groeten Marcel

 

[Warme bakkertje]

=HYPERLINK("P:\"&LINKS(C3;1)&"-nummers\"&TEKST(C3;ALS(LENGTE(C3)=5;"#\.";"")&"#.###")&"\4.tekeningen\02.tekeningen derden\"&TEKST(B3;"jjjj-mm-dd"))

Code van Niels

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveWorkbook.FollowHyperlink Address:="P:\" & Left(Target.Value, 1) & "-nummers\" _
    & Format(Target.Value, IIf(Len(Target) = 5, "#"".""#"".""###", "#"".""###")) & "\4.tekeningen\02.tekeningen derden\" _
    & Year(Target.Offset(, -1).Value) & "-" & Month(Target.Offset(, -1)) & "-" & Day(Target.Offset(, -1))
End Sub

 

[snb]

@Marcel

Het projectnummer heeft de waarde 2020 (zonder punt; kijk maar in het formulevak). Als jij denkt dat dat anders is, moet je je nog eerst verdiepen in Excel: het verschil tussen waarden en de weergave van waarden.
Als je wil dat het projektnummer 'exact' wordt overgenomen, bevat het resultaat geen punt.

 

[hoogteijling]

@SNB
Ik weet dat er geen punt staat in het formulevak, ik heb hem nl zelf gemaakt.
Ik heb het echter zo gemaakt dat er automatisch een punt komt te staan, en dat moet ook.
(zie celeigenschappen)
In het pad moet dus ook een punt komen.
Is dat wel mogelijk of gaat dat niet ?
Of moet ik het projectnummer misschien met een punt invoeren ?
Het liefst heb ik dat dat automatisch gaat.

Het is zo gemaakt wanneer er 5-cijferige projectnummers komen dat er 2 punten in komen (0.000 of 0.0.000)

Bedankt in ieder geval allemaal zover, ik ga het vrijdag even uit proberen op kantoor.
Groeten marcel

 

[Niels28]

zie post van warmebakkertje #8

Niels

 

[hoogteijling]

@Niels28
@Warme bakkertje
Bij mij is het resultaat in de cel E3:

P:\2-nummers\2020.000\4.tekeningen\02.tekeningen derden\2012-10-16

Er staan dus een paar nullen teveel achter het projectnummer.
Maar we komen er wel, stapje voor stapje

Groeten Marcel

 

[snb]

Ja ik zit ook te wachten op de resultaten die jij krijgt door na te denken en te spelen met de format funktie......

 

[hoogteijling]

Ik heb het toch zelf kunnen oplossen, mijn formule is nu als volgt:

=HYPERLINK("P:\"&LINKS(C3;1)&"-nummers\"&TEKST(C3;"0"".""000")&"\4.tekeningen\02.tekeningen derden\"&TEKST(B3;"jjjj-mm-dd"))

Wat ik nu nog zou willen is wanneer er een 5-cijferig projectnummer ingevuld wordt dat de notatie dan 0.0.000 wordt.

Groeten Marcel

 

[Niels28]

=HYPERLINK("P:\"&LINKS(C3;1)&"-nummers\"&ALS(LENGTE(C3)=4;TEKST(C3;"0"".""000");ALS(LENGTE(C3)=5;TEKST(C3;"0"".""0"".""000")))&"\4.tekeningen\02.tekeningen derden\"&TEKST(B3;"jjjj-mm-dd"))

Niels

 

[hoogteijling]

Geweldig !!!
Ik ben er uit.
Hartelijk dank allemaal
Ik ga weer verder borduren aan mijn sheet en wanneer ik vragen heb open ik een nieuwe topic.

Groeten Marcel

 

[mscatopats]

Ik speel al een tijdje gta san andreas.

 

[snb]

Alternatief:

=TEXT(A1;IF(LEN(A1)=5;"#\.";"")&"#.###")

 

[hoogteijling]

Dank je voor de extra aanvulling SNB.
Ik moet nog even kijken waar ik dat precies in mijn formule moet inpassen.

Groeten Marcel