Flytning af værdi i celle til andet regneark på server.

Prøv med denne makro

Sub overførsel()
    Application.ScreenUpdating = False
    x = Sheets("ark1").Range("a6")      'gemmer værdien i celle a6, fra ark1 (ret selv arknavn)

    Dim wb As Workbook
    Set wb = Workbooks.Open("g:\test2.xlsm", True, False) 'åbner filen på serveren, ret til eget filnavn
   
    wb.Sheets("ark2").Range("a6") = wb.Sheets("ark2").Range("a6") + x  'plusser de 2 tal (ret selv arknavn)
   
    Application.DisplayAlerts = False  'slår meddelelse om at filen gemmes, fra
    wb.Save                            'gemmer filen på serveren
    wb.Close                            'lukker filen på serveren
    Application.DisplayAlerts = True    'slår fejlmeddelelser til igen
    MsgBox ("Data er exporteret")
End Sub

Cool. virker super.. send et svar:-)

Det kommer her :-)