Avatar billede bejstrup Juniormester
28. februar 2017 - 11:15 Der er 5 kommentarer og
1 løsning

Kopier celler

Hej,
Jeg har to kolonner, et med ID og et med hyperlink.
ID i enden af hyperlink skal have samme nummer som ID.
Når der indsættes en eller flere nye linier, er der som udgangspunkt ingen hyperlink.
Jeg har behov for en makro der kan sikre, at alle tomme linier til hyperlink bliver fyldt ud, og at ID i enden af hyperlink er det samme som ID. Som det ses herunder, så er de sidste to linier forkerte.(Hyperlink er altid ens med undtagelse af ID-nummeret)

ID    LINK
39    http://EditForm.aspx?ID=39
40    http://EditForm.aspx?ID=40
41    http://EditForm.aspx?ID=41
42    http://EditForm.aspx?ID=42
43    http://EditForm.aspx?ID=43
44   
45    http://EditForm.aspx?ID=44
Avatar billede jens48 Ekspert
28. februar 2017 - 12:35 #1
Måske kan dette bruges:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
LastRow = Range("A65536").End(xlUp).Row
For x = 1 To LastRow
Cells(x, 2) = "http://EditForm.aspx?ID=" & Cells(x, 1)

With Worksheets(1)
.Hyperlinks.Add Anchor:=.Cells(x, 2), _
Address:=Cells(x, 2)
End With

Next
End If
End Sub
Avatar billede Mads32 Ekspert
28. februar 2017 - 12:37 #2
Hej Bejstrup

Vedlagt  et link til et lille eksempel, hvor det er løst med formel og ikke VBA.

https://www.dropbox.com/s/2jzcspf1kqpilw1/Kopier_celle_og_sammenkaed.xlsx?dl=0
Avatar billede bejstrup Juniormester
28. februar 2017 - 12:53 #3
Hej,
Jeg har kopieret VBA ind, men der sker desværre ingenting. Hvad gør jeg for, at få den til at virke ?
Avatar billede bejstrup Juniormester
28. februar 2017 - 13:04 #4
Den du har sendt med "sammenkædning" kan jeg desværre ikke bruge, da jeg den skal anvendes i Powerpivot, og den kræver en hel https sti
Avatar billede jens48 Ekspert
28. februar 2017 - 13:05 #5
Du skal skrive noget i kolonne A og i øvrigt skal makroen indsættes ved at højrekilikke på fanebladet og vælge Vis Koder, men hvis du vil have en mere manuel makro kan du bruge:

Sub LavHyperlink()
LastRow = Range("A65536").End(xlUp).Row
For x = 1 To LastRow
Cells(x, 2) = "http://EditForm.aspx?ID=" & Cells(x, 1)

With Worksheets(1)
.Hyperlinks.Add Anchor:=.Cells(x, 2), _
Address:=Cells(x, 2)
End With

Next
End Sub
Avatar billede bejstrup Juniormester
28. februar 2017 - 13:14 #6
Fantastisk. Tusind tak for det. Det har lige reddet min dag :-=
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester