Mantenere la stessa formattazione con Errore

[danibi60]

Ciao, sembrerà un assurdità ma non lo è e ho bisogno del vostro aiuto

Nel file che vi allego denominato "File Maser" le colonne Ce F hanno una formattazione che presenta il classico triangolino con errore

qui il file: https://www.dropbox.com/scl/fi/rwlm5rsj ... 5ouvt&dl=0

In quest'altro file denominato "File fatturazione Ottobre" vorrei che sempre le stesse colonne C e F si formattino e le possa formattare alla stessa maniera e quindi mantenendo l'errore, solo che non so come fare: è possibile innanzitutto?

qui l'altro file https://www.dropbox.com/scl/fi/hf9j57gj ... rjhyc&dl=0

Grazie

[Raffaele53]

Secondo me non dovresti preoccuparti del triangolino verde, rimane sempre un numero però memorizzato come testo (fai una prova, in I2 metti =C2+0 e vedrai 2,02302E+12)
Solo formattando la cella in NUMERO togliendo i due decimali vedrai il numero reale, comuque basta un ciclo moltiplicando per uno

Codice: Seleziona tutto

Sub Numero()
Dim X As Long, Ur As Long
Ur = Range("C" & Rows.Count).End(xlUp).Row
Columns("C:C").NumberFormat = "0"
    For X = 2 To Ur
        If IsNumeric(Cells(X, 3)) Then Cells(X, 3) = Cells(X, 3) * 1
    Next X
    For X = 2 To Ur
        If IsNumeric(Cells(X, 6)) Then Cells(X, 6) = Cells(X, 6) * 1
    Next X
MsgBox "Fatto"
End Sub

[Raffaele53]

Oppure se selezioni C2:C1387 noterai vicino C2 un triangolino (basta scegliere converti in numero)

[danibi60]

Ciao Raffaele forse mi sono spiegato male, io voglio che il dato in rimanga con il triangolino ... e non che me lo tolga riformattando la cella, inoltre se faccio come mi dici e carico in I2 =C2+0 mi indica " Valore?"

La macro che mi hai scritto dove la devo collocare se la metto nel file dove dovrebbe finire per logica mi dice : fatto ma non succede nulla...

[Raffaele53]

Allora non capisco io, cosa desideri fare?

>>> una formattazione che presenta il classico triangolino con errore
Se desideri togliere il triangolino leggi il mio secondo post.

>>>io voglio che il dato in rimanga con il triangolino
Il triangolino non formatta la cella e solo un0avviso all'utente

>>>C2+0 mi indica " Valore?"
Questa poi non la capisco, da me funziona in un modo e da te fa altro?
Facciamo cosi, seleziona cella C2. Adesso nella barra dove inserisci le formule vedi 2023020047287 posizionati col mouse a destra del 6 finale e premi invio. Ora cosa vedi?

[Anthony47]

Confermo quanto detto da Raffaele:
-i triangolini che vedi nel foglio TRACCIATO_FATTURA sono l'indicazione di una situazione anomala, nel caso specifico "La cella contiene un Numero che pero' è stato caricato come Testo" (questo succede spesso quando si ricevono fogli in formato Excel da altri sistemi gestionali)

Per visualizzare "quei" triangolini nell'altro foglio dovresti anche lì creare una situazione di errore.
Per la colonna F sarebbe facile, perche' la colonna contiene numeri; basta quindi convertire i numeri in stringhe per avere la visualizzazione del simbolo di Errore.
Una macro che fa questo:

Codice: Seleziona tutto

Sub CreaErr()
Dim Colonna As String, wArr, I As Long
'
Colonna = "F"
wArr = Range(Cells(3, Colonna), Cells(2, Colonna).End(xlDown)).Value
For I = 1 To UBound(wArr)
    wArr(I, 1) = "'" & wArr(I, 1)
Next I
Cells(3, Colonna).Resize(UBound(wArr), 1).Value = wArr
End Sub

La colonna C invece (del secondo file) contiene delle Stringhe (es 25ORD28171) e non mi viene in mente una situazione in cui in Excel questa stringa possa essere considerata un errore.
Se proprio vuoi puoi creare in queste celle un disegnino che appaia simile a quello di errore
Una macro che fa questo:

Codice: Seleziona tutto

Sub Triangola()
Dim myC As Range, Shp As Shape, Colonna As String
'
Colonna = "C"
For Each myC In Cells(1, Colonna).Resize(Cells(Rows.Count, Colonna).End(xlUp).Row)
    If myC.Value <> "" Then
    Set Shp = ActiveSheet.Shapes.AddShape(msoShapeHalfFrame, myC.Left, myC.Top, _
       7, 7)
        Shp.Fill.ForeColor.RGB = RGB(0, 180, 80)
        Shp.Line.Visible = 0
        Shp.Name = "ZZCC_" & myC.Address(0, 0)
    End If
Next myC
End Sub


Ovviamente questi "disegnini" sono forme indipendenti dal contenuto, per toglierle vanno cancellate; una macro che selettivamente cancella questi disegnini sul foglio attivo:

Codice: Seleziona tutto

Sub Detriangola()
Dim Shp As Shape
'
For Each Shp In ActiveSheet.Shapes
    If Left(Shp.Name, 5) = "ZZCC_" Then
        Shp.Delete
    End If
Next Shp
End Sub


Vedi se questi suggerimenti ti aiutano a realizzare il disegno che avevi in mente.

Che però secondo me e' un disegno contorto, perchè invece di voler eliminare le indicazioni di errore (i triangolini nelle celle che contengono situazioni anomale) vuoi creare o simulare le stesse situazioni anomale; e onestamente non ne vedo il vantaggio.