Ekstra henvisninger i VBA..

hvor i det nye ark er tallet, og hvor i hovedsiden skal det indsættes?

I det nye ark ligger den første værdi i d43, og skal indsættes under navnet som vi indsætter med makronen du lavede tidligere (det blev indsat på første ledige plads i række 1 og nu er det så række 3.
Der er flere værdier, og derfor ville jeg gerne have en meget kort forklaring på hvordan jeg kan tilføje disse... :o)

hvis jeg forstår dig ret, skal tal i ny ark i celle d43 indsættes i ark hovedsiden
i samme kolonne som navnet, men i række 3 - er det ret forstået :-) ?

Yes... Lige præcis :)

Jeg kan sende dig arket på mail, hvis det hjælper?

Sub Makro7()
   
Dim x As Worksheet
   
    Sheets("Orginal").Select
    Range("A1:F47").Select
    Range("F47").Activate
    Selection.Copy
    Set x = Worksheets.Add(after:=Sheets(Worksheets.Count))
    x.Name = Sheets("Hovedside").[b15]
    ActiveSheet.Paste
    [a1] = Sheets("Hovedside").[b15]
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("F:F").ColumnWidth = 20.86
    Range("A1").Select
    Sheets("Hovedside").Select
    If [a1] = "" Then
    [a1] = [b15]
    Else
    Range("a1").Range("iv1").End(xlToLeft).Offset(0, 1).Select
    ActiveCell = [b15]
    ActiveCell.Offset(2, 0).Value = Sheets(ActiveCell.Value).[d43]
    [b15] = ""
    End If
End Sub

prøv lige denne, spørg hvis du ønsker forklaring til ændringen

Den tager en værdi, om det er den rigtige ved jeg ikke. Den opdaterer i hvertfald ikke værdien, når den ændres!

Placeringen er rigtig, skal jeg da lige sige

hmm er ikke helt med på hvad du mener så
du må gerne sende filen til pm@madsen.tdcadsl.dk

tilsyneladende virker det ok, område a1:f47 i ark Orginal kopieres og indsættes i det nye ark, og da celle d43 har værdien 0 i orginal bliver den jo også 0 i det nye ark, og derfor også i række 3 i Hovedsiden.

hvad mener du med opdateret?

er tilbage om ca. 2 timer

Værdien er rigtig nok 0 når det starter, men denne værdi ændrer sig jo løbende, og det er der den gerne skulle opdatere det på forsiden. I min test ændrede det sig ikke til trods for at tallet i det nye ark ændrede sig.

Jeg er desværre ikke på mere i dag, men er der straks igen i morgen tidlig.. Mange tak indtil videre  :o))

Tror at lingo vil have en formel ind
prøv at ændre
ActiveCell.Offset(2, 0).Value = Sheets(ActiveCell.Value).[d43]
til
ActiveCell.Offset(2, 0).Formula = "=INDIRECT( " & ActiveCell.Address & " &""!D43"")"

eller
ActiveCell.Offset(2, 0).Formula = "= " & x.Name & "!D43"

yep tror du har ret bak, har dog lige fjernet et mellemrum :-)
ActiveCell.Offset(2, 0).Formula = "=" & x.Name & "!D43"

den forløbige kode som jeg gætter på den skal se ud:

Sub Makro1()
   
Dim x As Worksheet
    Sheets("Orginal").Select
    Range("A1:F47").Select
    Range("F47").Activate
    Selection.Copy
    Set x = Worksheets.Add(after:=Sheets(Worksheets.Count)) ' indsæt nyt ark sidst i rækken
    x.Name = Sheets("Hovedside").[b15] ' hent arknavn
    ActiveSheet.Paste ' indsæt det kopierede
    Application.CutCopyMode = False ' fjerner kopi markering
    [a1] = Sheets("Hovedside").[b15] ' indsæt navn i celle a1 i nyt navn
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("F:F").ColumnWidth = 20.86
    Range("a1").Select
    Sheets("Orginal").Activate
    Range("a1").Select
    Sheets("Hovedside").Select
    If [a1] = "" Then
    [a1] = [b15] ' navn indsætes hvis a1 er tom ellers find tom
    Else
    Range("a1").Range("iv1").End(xlToLeft).Offset(0, 1).Select ' find tom kolonne til nyt navn og gør cellen aktiv
    ActiveCell = [b15] ' indsæt nyt navn i active celle (navnet som står i celle b15)
    ActiveCell.Offset(1, 0).Formula = "=sum(" & ActiveCell.Offset(2, 0).Address & ":" & ActiveCell.Offset(6, 0).Address & ")" 'antal poster
    ActiveCell.Offset(2, 0).Formula = "=" & x.Name & "!D43" ' mandag (x.Name = nyt arknavn)
    ActiveCell.Offset(3, 0).Formula = "=" & x.Name & "!D44" ' tirsdag
    ' indsæt selv for onsdag
    ' indsæt selv for torsdag
    ' indsæt selv for fredag
    ' indsæt selv for antal syg
    ' indsæt selv for ferie
    [b15] = ""
    End If
End Sub

Jamen det kan ikke blive bedre!
Det er fantastiks, meget stor hjælp.
Læg et svar, så du kan få point - Det virker pefekt.
Tak og god weekend

ok velbekom  - hvis der er noget, så bare spørg.