27. november 2007 - 11:03Der er
3 kommentarer og 1 løsning
Linkedcell til andre ark
Hey guruer.
Et hurtigt spørgsmål, hvordan sætter man linkedcell komandoen til at linke til andre sheets? Kodestumpen nedenfor virker fint i mit ark, men jeg skal have linkedcell til at linke til et andet sheet end det aktive.
Kodestump, der virker ------------
Dim rng as Range Set rng = Range("A1:D1")
ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select With Selection .LinkedCell = rng(1, 1).Address End With
Kodestump, der IKKE virker ------------
ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select With Selection .LinkedCell = Sheets("Ark1").rng(1, 1).Address End With
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Skulle måske lave den "virkende" kodestump, så den rent faktisk kunne køre:
Sub test()
Dim rng As Range Dim myRange As Range
'On Error Resume Next
Set myRange = Range("A10") Set rng = Range("A1:D1")
ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select With Selection .LinkedCell = rng(1, 1).Address .Characters.Text = "Test" End With
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.