Avatar billede Rose Novice
21. august 2017 - 14:32 Der er 4 kommentarer og
1 løsning

Erstatte tekst på tværs af projektmapper

Hej,

i en folder har jeg 20 filer (i hver sin underfolder) med hver 52 faner.
Alle faner er ens i opbygning (indeholder en formular til udfyldelse)
Jeg skal erstatte teksten i celle B12 i alle faner i alle filer.
Kan jeg gøre det i ét hug (eller måske to :-))?
Avatar billede Jan Hansen Ekspert
21. august 2017 - 15:37 #1
Flyt filerne til somme mappe og så noget VBA!!
Avatar billede Jan Hansen Ekspert
21. august 2017 - 16:01 #2
noget ala:  ej testet



Dim wb As Workbook
Dim iBooks As Integer, iSheets As Integer
Sub ChangeB12()
    For iBooks = 1 To Workbooks.Count
        Set wb = Workbooks(iBooks)
        For iSheets = 1 To Sheets.Count
            wb.Sheets(iSheets).Range("B12").Value = "Ny Text"
        Next iSheets
    Next iBooks
End Sub


Jan
Avatar billede Rose Novice
23. august 2017 - 11:39 #3
Hej Jan. Tak for hjælpen. Vi har flyttet rundt på filer og ark i filerne faktisk også så vi er bedre rustet til opdateringer fremover. :-) Rose
Avatar billede Jan Hansen Ekspert
23. august 2017 - 12:00 #4
Ville i din situation nok have lavet et master ark som de andre henter ens data fra.
Avatar billede Rose Novice
23. august 2017 - 12:40 #5
Ja tak - kommer jeg også til. Dette var en haster på overtagne filer ifm ny jobstart :-)
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

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