makro til automatisk ændring af kritere i flere celler
Hej. Jeg sidder og bokser med et ark, hvis primære mål er at indtaste I så få indtastningsark, som det er muligt. Herefter har jeg I andre ark ved hjælp af sum.hviser opstillet en række kriterier, som når de er opfyldt, automatisk opsummeres I de enkelte celler. Da dette er en løbende process, ved jeg allerede nu, at jeg til næste år skal ændre et årstalskriterie. Skal jeg vitterligt ind I hver celle og gøre dette? eller kan man lave en makro der ændrer eksempelvis 2017 til 2018? Og da jeg har ret mange varenumre, kunne det være super fedt blot at kunne ændre et enkelt bogstav I formlen, via en makro, frem for at skulle ind på hver enkelt celle og gøre det. Min formel ser sådan ud: =SUM.HVISER('Produktion Lindeman'!J:J;'Produktion Lindeman'!H:H;"E226";'Produktion Lindeman'!I:I;"Classic";'Produktion Lindeman'!A:A;"2017";'Produktion Lindeman'!C:C;"2")*0,0398
Det eneste jeg reelt ønsker at ændre I ca 400 celler er E226 til A226, altså I dette tilfælde E'et byttes ud med et A.
Er ikke den store makro haj, men hvis jeg indspiller en makro, mens jeg foretager ændring, kan jeg ikke bruge makro når jeg stiller mig på en anden celle. Så ændrer makroen på de øvrige cellereferencer, så eksempelvis J:J bliver til L:L ???
Håber på et skarpt input derude fra. På forhånd tak. Jacob
Hvis du i stedet for E226 skriver INDIREKTE(X101) og så i X101 skriver E226 så skulle du bare kunne ændre det her til A226. Det kræver selvfølgelig at dine formler skal ændres overalt. Til gengæld er det fremtidssikret.
Public Sub Test() Dim ptFormel As String, nyFormel As String Dim ræk As Integer, kol As Integer, skp As Integer Application.ScreenUpdating = False For ræk = 88 To 100 For kol = 3 To 19 Step 2 ptFormel = Cells(ræk, kol).Formula
nyFormel = Replace(ptFormel, "E226", "A226", , , 2) Cells(ræk, kol).Formula = nyFormel Next kol Next ræk End Sub
Synes godt om
Ny brugerNybegynder
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.
