fjern fejl melding

Du kan fjerne trekanten, ved at gå ind i "Fil", "indstillinger", "Formler", og fjern fluebenet fra "Aktiver fejlkontrol i baggrunden"
Så burde den være væk, også når du kører din makro.

Hej ebea, den kendte jeg godt, men tænkte at det ville være ret hvis jeg ikke skulle dt.

KW

Hvis du ved, at værdien i cellen altid et et tal "forklædt" som tekst, kan du benytte denne lille makro linje:

Celle.Value = Celle.Value * 1

Hej Dan
Det er det, hvordan for jeg den til at vide det er kolonne K hvergang

KW

Du skriver det er hver gang du kører makroen, så måske det kan bygges ind.

Ja har jeg prøvet men det lykkes ikke

Hvis du bruger din "nye kode", så udskift delen af koden, med denne, i dit Module1

        If ws.Name <> wsConsol.Name Then
            On Error Resume Next
                lngLastRow = ws.Range("A:I").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            On Error GoTo 0
            If lngLastRow >= 2 Then
                ws.Range("A2:I" & lngLastRow).Copy Destination:=wsConsol.Range("K" & lngPasteRow)
                lngPasteRow = wsConsol.Range("K:S").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
               
            End If
           
            Range("K9:K15000").NumberFormat = "General"
            Range("K9:K15000").Value = Range("K9:K15000").Value
        End If

Jeg kender ikke din kode, men et eller andet sted må du kunne indsætte noget i stil med:

Range("K" & Counter).Value = Range("K" & Counter).Value  * 1

...eller, måske gøre som #7 skriver:

Range("K9:K15000").Value = Range("K9:K15000").Value

Den ser sådan ud

Sub Rektangelafrundedehjørner4_Klik()

    Dim ws As Worksheet, wsConsol As Worksheet
    Dim lngLastRow As Long, lngPasteRow As Long
 
    Application.ScreenUpdating = False
 
    Set wsConsol = ThisWorkbook.Sheets("Bestilling")
    lngPasteRow = 9 'Starting Row number for the consolidation of the sheet data in 'wsConsol'.
 
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> wsConsol.Name Then
            On Error Resume Next
                lngLastRow = ws.Range("A:I").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            On Error GoTo 0
            If lngLastRow >= 2 Then
                ws.Range("A2:I" & lngLastRow).Copy Destination:=wsConsol.Range("K" & lngPasteRow)
                lngPasteRow = wsConsol.Range("K:S").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
            End If
        End If
    Next ws
   
   
 
    Application.ScreenUpdating = True
   
    Sheets("Bestilling").Select
    Macro1

End Sub

Tak for hjælpen allesammen det fungere.

KW

#10 - Du er velkommen ;-)