Avatar billede gyde Nybegynder
22. april 2002 - 00:41 Der er 5 kommentarer og
1 løsning

Makro til kopiering af data fra flere felter

Jeg har et lille problem med en makro, som skal sammensætte adresseoplysninger fra 2 celler til 1 (som i forvejen indeholder data). Den celle, der kopieres til indeholder i forvejen vejnavn og efter dette skal der i cellen sættes et linieskift (ALT ENTER). I den følgende linie skal så indættes postnr. og by som altså skal hentes fra to andre celler i samme række. Problemet ligger i, at når makroen kører husker den data fra den første kopi, og disse indsættes så også i de efterfølgende poster. Makroen er optaget med relative referencer, men jeg har været nødt til at markere indholdet af cellerne (i stedet for hele cellen) for at kunne indsætte postnr. og by uden at slette de oprindelige indhold i den celle, der kopieres til.
Er der nogle af jer kloge hoveder, der har et godt forslag?
Avatar billede tipsen Nybegynder
22. april 2002 - 00:55 #1
Hvilket regnearksprogram bruger du egentlig?
Avatar billede gyde Nybegynder
22. april 2002 - 01:13 #2
Undskyld, MS Excel 2002
Avatar billede janvogt Praktikant
22. april 2002 - 08:34 #3
Hvordan ser din makrokode ud?
Avatar billede gyde Nybegynder
22. april 2002 - 13:19 #4
Sådan ser den ud p.t.

Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 22-04-2002 af Søren Gyde
'

'
    ActiveCell.FormulaR1C1 = "981 84"
    ActiveCell.Offset(0, -1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "kundservice" & Chr(10) & "981 84 "
    With ActiveCell.Characters(Start:=1, Length:=19).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "KIRUNA"
    ActiveCell.Offset(0, -2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "kundservice" & Chr(10) & "981 84 KIRUNA"
    With ActiveCell.Characters(Start:=1, Length:=25).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(1, 1).Range("A1").Select
End Sub
Avatar billede bak Forsker
22. april 2002 - 17:52 #5
Hvis navn er i A2, vejnavn er i B2 og postnr by er i c2 kan du nøjes med denne linie.
ActiveCell.Value = ActiveCell.Value & Chr(10) & ActiveCell.Offset(0, 1).Value & Chr(10) & ActiveCell.Offset(0,2).Value
Avatar billede gyde Nybegynder
22. april 2002 - 18:13 #6
Tusind tak for hjælpen.
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
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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