kopiere format fra celle i en fil til celle i en anden fil

prøv med

   
        .Sheets(1).Cells(3, 3).Copy Cells(ræk, 2) 'overførerkundenr
        .Sheets(1).Cells(4, 3).Copy Cells(ræk, 23) ' overfører stack fra kolonne 23 og  sætter ind i C3

ok mange tak det vil jeg prøve Når dog ikke at teste før onsdag. og vender så tilbage.

LN

de skulle lige vendes

Cells(ræk, 2).Copy  .Sheets(1).Cells(3, 3)
Cells(ræk, 23).Copy .Sheets(1).Cells(4, 3)

æv det virker slet ikke
der sker ikke noget overhovedet - den opdaterer heller ikke hvis jeg ændrer det der står i cellen - så nu gør den absolut intet. Men får ingen fejlmeddelelse

æv æv

LN

Nu kommer det jo an på hvilken af projektmapperne du har aktiv.

Du har . punktum foran .Sheets(1).Cells(3, 3)

så må du jo også have een linje med

With ThisWorkbook
eller
With ActiveWorkbook

eller andet for at det virker, så vis mere kode, så må vi se

Denne her???

ActiveWorkbook.Sheets(1).Activate

Beklager jeg er så dum til det her.
Jeg lavede dette i 2007 og har ikke kodet siden.
Men nu skal der ændres og optimeres.

LN

var kommet til at sætte punktum foran cells
uden dette punktum får jeg følgende meddelelse

Metoden copy for klassen Range mislykkes

LN

mere kode

Const DFræk1 = 3
Const Vsti = "C:\instruktioner\version\"  'tilpasses
Dim DFantalRæk
Sub data()
Dim knr
Rem find sidste række i DATAFIL
    ActiveWorkbook.Sheets(1).Activate
    DFantalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = DFræk1 To DFantalRæk
        knr = Cells(ræk, 2)
        If knr <> "" Then
       
Rem Undersøg om filen KUNDENR+v findes
            If findesVfil(CStr(knr) & "v") = True Then
           
Rem Hvis ja - opdater v-FILEN
                opdaterVfil CStr(knr) & "v.xlsm", ræk
            End If
        End If
    Next ræk
   
    MsgBox ("Opdatering af V-filer afsluttet")
End Sub
Private Function findesVfil(kid)
Dim fs, f, f1, fc, s
 
Rem Søg efter versions-fil
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Vsti)
    Set fc = f.Files
    For Each f1 In fc
        If InStr(f1.Name, kid) = 1 Then
            findesVfil = True
            Exit Function
        End If
    Next
    findesVfil = False
End Function
Private Sub opdaterVfil(kid, ræk)
Dim xls
    Set xls = CreateObject("Excel.application")
    With xls
   
Rem Åbn V-filen
        .Workbooks.Open Vsti + kid
        .Sheets(1).Cells(4, 5) = Cells(ræk, 5)          'Fra DATAFIL overføres Kolonne E & F til v-fil
        .Sheets(1).Cells(5, 5) = Cells(ræk, 6)
        .Application.DisplayAlerts = False
        .ActiveWorkbook.Save
    End With

Rem Lukker v-fil-objektet
    xls.ActiveWorkbook.Close
    xls.Application.Quit
    Set xls = Nothing
End Sub



En af årsagerne til at jeg skal ændre er at jeg er på 2010 nu og ja alt virker ikke lige godt

De filer jeg kopierer til er xlsm dvs med aktive makroer

LN

Rem Åbn V-filen
        .Workbooks.Open Vsti + kid
        Cells(ræk, 5).copy .Sheets(1).Cells(4, 5)  'Fra DATAFIL overføres Kolonne E & F til v-fil
      Cells(ræk, 6).Copy  .Sheets(1).Cells(5, 5)
        .Application.DisplayAlerts = False
        .ActiveWorkbook.Save
    End With


det er hvad jeg mener skal rettes

æn det er præcis det jeg gør og den kommer med fejl meddelelsen

run time error

Metoden copy for klassen range mislykkedes

LN

så har jeg ikke løsningen

æv

kan det være noget med at de filer der skal kopieres til er af formatet xlsm idet der er makroer i hver fil

LN