Avatar billede ladelund Juniormester
30. september 2008 - 12:00 Der er 2 kommentarer og
1 løsning

Indsætte formel med VBA

Hej Experter

Jeg har følgende kode i mit regneark som jeg godt kan bruge lidt hjælp til:

Sub opdater()
    EnableCalculation = False
   
    ThisWorkbook.RefreshAll
   
    Dim cell As Range
   
    Sheets("Data_SalesLine").Select
        For Each cell In Range("F2:F10000")
        If cell.Offset(0, -1) <> "" Then
            cell.FormulaR1C1 = "=sum(rc[-3]-rc[-2])"
            Else
        End If
    Next
   
    Sheets("Data").Select
    For Each cell In Range("AB2:AB10000")
        If cell.Offset(0, -2) <> "" Then


            Her vil jeg gerne have den til at sætte følgende formel ind HVIS(ER.FEJL(FIND("Lager";AA2;1));HVIS(ER.FEJL(FIND("JVK lager";AA2;1));HVIS(ER.FEJL(FIND("lager";AA2;1));"Kundeordre";"");"");"")


            Else
        End If
    Next
       
    EnableCalculation = True
End Sub

Håber I kan hjælpe!
Avatar billede kabbak Professor
30. september 2008 - 13:25 #1
cell.Offset(0, -2).FormulaLocal = "=HVIS(ER.FEJL(FIND(""Lager"";AA2;1));HVIS(ER.FEJL(FIND(""JVK lager"";AA2;1));HVIS(ER.FEJL(FIND(""lager"";AA2;1));""Kundeordre"";"""");"""");"""")"
Avatar billede ladelund Juniormester
30. september 2008 - 14:12 #2
Tak for hjælpen Kabbak.
Avatar billede kabbak Professor
30. september 2008 - 15:55 #3
selv tak ;-))
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