hjælpe til makro - den skal gøre det modsatte

humm det er en formel du skriver med den kode... er det meningen!? eller er det værdien som skal overføres!?

Det er værdien

Ja fandt ud af den overførste en formel. Er ikke lige så stærk til det her.

Men ja det er værdien af fels celle(i,5)for de eneklte kundenumre(kolonne2) der skal overføres til den fil med kundenr+v til celle E7

Giver det mening eller er det for rodet skrevet

LN

Du har mappe med alle kunderne på. og en masse filer med kundenr + v !?

Skal den tage værdier fra kundearket over til kundenrarket.

Ja jeg har en masse kundefiler der ligger i samme mappe.

Og så har jeg et stort ark der indeholder en masse data for alle kunderne
I kolonne B4 - B.. står kundenummeret feks 2000 I kolonne c står kundenummer
I d står feks kundekonceptet

Disse skal så overføres til en masse filer med kundenummer +v dvs 2000v

LN

ok...
Det vil sige D1:D100 og E1:E100 Skal overføres ud for hvert kundenr+v i C1:C100 til den mappe som passer til de kundenr+v...

Hvor på det ark1 skal værdierne indsættes!? C? = E7 og C? = F9 eller hvordan..

sorry C = B

uhhh nu skal jeg lige tænke
Eksempel
B1:B110(eller mere - så mange rækker der nu er) til filer af navn kundenummer+v felt c3
C1:C110(eller mere - så mange rækker der nu er) til filer af navn kundenummer+v felt
c11
Den vil jeg overfører fra(og hvor knappen aktiveres). Hedder version og ligger i mappen \\sti\versionsstyring\ dvs

De enkelte filer ligger i samme mappe.

Men det samme skal gøres til nogle andre filer der ligger på mappen \\sti\
Og her er filnavnene kundenummer uden v dvs bare 2000 som eksempel.

Men en timg af gangen ;O)

LN

ok..

så fra det egne ark til flere i C3 og C11.
ud for hvert kundenr.

Ser lige på det...

Forsøg på udspil - måske kan det hjælpe lidt på vej - er lidt usikker på om det er den rigtige indgangsvinkel - ellers sig til:
Koden indlægges i Datafilen


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.xls", 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

Hmm den åbnede første fil, men låste så helt og måtte afbryde på den hårde måde - men prøver lidt mere.

Kan det have noget at gøre med at redigeringsdatoen sættes på de enkelte kundefiler hver gang når de redigeres og det gør de jo her

Prøver lige igen

LN

Og ja de enkelte filer er skrivebeskyttet.
Det må være her den fejler
Dvs når man kører makroen og sætter data ind skal den låse op og igen låse når den lukkes ned igen.

Kan det lade sig gøre.

LN

Den kommer med fejlmeddelelsen out of stack space
Der hvor jeg sætter redigeringsdato mm

LN

det fungerer fint - men en lille detalje.
ville det være muligt at man kunne få en fejlmeddelse med de filer den ikke kunne finde hvis der er nogle.
Har fået den tilrettet også så den låser filer op og i.

Husk at lægge svar

LN

OK -

FejlMeddelelse - suppler med ELSE & EFTERFØLGENDE LINIE :

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.xls", ræk
            ELSE
                MSGBOX("Kundenr. " + cstr(knr) + " kunne ikke findes!")
            End If
        End If
    Next ræk

som altid 1000 1000 tak

LN