Jeg har et script som kontorllerer og evt. kopierer en celle. Men nu har jeg haft behov for at lave nogle formler i nogle af disse celler den "tæller" og nu tror den pluselig at der står noget i cellen selvom formlen i cellen returnerer "" (blank celle)

Jeg tror selv mit problem ligger i denne linie:
                If ActiveCell.Value <> 0 Then

Nogen som kan hjælpe?????????????





Nedenfor er resten af "tælle" funktionen.

            'Komponent rækker
            Do Until C = A
                C = C + 1
               
                If ActiveCell.Value <> 0 Then
                    Selection.Copy
                    Worksheets(NytArk).Select
                    ActiveCell.Offset(1, 0).Range("A1").Select
                    Selection.PasteSpecial Paste:=xlValues
                    Worksheets(KompArk).Select
                    ActiveCell.Offset(0, E).Range("A1:B1").Select
                    Selection.Copy
                    Worksheets(NytArk).Select
                    ActiveCell.Offset(0, 1).Range("A1").Select
                    Selection.PasteSpecial Paste:=xlValues
                    ActiveCell.Offset(0, -1).Range("A1").Select
                    Worksheets(KompArk).Select
                    ActiveCell.Offset(1, -E).Range("A1").Select
           
                Else
                    ActiveCell.Offset(1, 0).Range("A1").Select
               
                End If

Jeg har løst problemet med at kopi kommando istedet for på de celler som krævede en formel.

Men hvis nogen har en mere simpel løsning, hører jeg den gerne.

Hej Allan

Der var ingen af de 3 der virkede.

Min løsning var at inden jeg kørte mit script indlagde jeg følgende:

    Sheets("tæl").Visible = True
    Sheets("KOM-T-IQ3").Select
    Range("G7:N27").Copy
    Sheets("tæl").Select
    Range("F3").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
    Sheets("tæl").Visible = False

Herefter kørte jeg resten af scriptet uden de berørte celler.