20. januar 2020 - 11:09 Der er 1 kommentar og
1 løsning

Makro som åbner alle ark i en bestemt mappe og skal ændre en celle værdi i dem pba en værdi fra hovedarket

Jeg skal have modificeret en makro.
Det eneste der mangler er en kode som finder en værdi i hovedarket i celle A1. Denne værdi skal indsættes i celle A1, i alle de ark som bliver åbnet.

Foreløbig kode:

Sub Hent_Data()

Dim strF As String, strP As String
Dim wb As Workbook
Dim ws As Worksheet


Application.ScreenUpdating = False

'Mappe Stien
strP = ThisWorkbook.Path & "\Opfølgningsark"


strF = Dir(strP & "\*.xlsm") 'Sammensætter mappestien og ark som skal åbnes'


Do While strF <> vbNullString
   
    On Error GoTo Førslut
   
        Set wb = Workbooks.Open(strP & "\" & strF) 'Åbner ark ud fra den sammensatte sti'
        Set ws = wb.Sheets(1)
        wb.Close True
   
    strF = Dir()
Loop

Førslut: 'Ingentings-handling'
Application.ScreenUpdating = True

End Sub
Avatar billede Jan K Ekspert
20. januar 2020 - 11:40 #1
Dim Cellevrd as ???? afhængig af cell("A1).value

Og så for hvert ark inden du lukker arket

we.range("A1) = Cellevrd
20. januar 2020 - 12:06 #2
Og det spiller bare !
Fornemt
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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