Non rieco a convertire le celle in formato hh:mm:ss

Question

L'indirizzo a cui si trova il file è il seguente

https://onedrive.live.com/?cid=4E8529DB43CFA3A4

N.B. nella riga gialla tutto è apposto anche la formula funziona, viceversa

tutte le celle delle righe che seguono non hanno lo stesso formato delle celle gialle.

Infatti se clicco nella cella gialla che contiene 16:30, nella barra della formula compare 16:30:00 

Grazie per l'aiuto.

Answer 1

Ciao Maurizio,

Ho scaricato il file 'vergine' e ho capito subito il problema!

Il mio codice affrontava le celle con la formattazione condizionale, piuttosto che le celle di convalida dati, come inteso: posso solo ipotizzare una distrazione o follia momentanea - oppure che il vino fosse molto  più forte di quanto avessi immaginato!

Hai già una soluzione grazie a Mauro, ma, per motivi di completezza, il mio codice modificato sarebbe stato:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Set WB = ThisWorkbook

    For Each SH In WB.Worksheets

        On Error Resume Next

        Set Rng = SH.Cells.SpecialCells(xlCellTypeAllValidation)

        On Error GoTo 0

        If Not Rng Is Nothing Then

            Rng.Validation.Delete

        End If

    Next SH

End Sub

'<<=========

Le celle di convalida dati che sono stati trovati erano:

Foglio	Celle
Impostazioni	F21,F31,F29,F27,F25,F33,F23,I41
Gennaio	E8:M38,H50
Febbraio	E8:M38,H50
Marzo	E8:M38,H50
Aprile	E8:M38,H50
Maggio	E8:M38,H50
Giugno	E8:M38,H50
Luglio (2)	H50,E8:E19,E21:E38
Luglio	E8:E19,E21:E38,H50
Agosto	H50,E8:M38
Settembre	E8:M38,H50
Ottobre	E8:M38,H50
Novembre	E8:M38,H50
Dicembre	E8:M38,H50
Ferie	E8:M38,H50

Resta solo di chiedere scusa sia da te che  da Mauro!

Ora vado a finire quel vino!

===

Regards,

Norman

Answer 2

Si scusa, io ho sbagliato a scriverlo qui con due B

Ma nella macro ho fatto copia e incolla di quello scritto nel 3d e non funziona

Ho fatto una macro da "utonti" e cioè registrato io quello che si deve fare e poi la applico su tutti i fogli.....

• Apri il file
• ALT+F11 (premili assieme e ti trovi nell'editor del vb)
• Inserisci-->Modulo
• Copia Incolla questo nel modulo:

Public Sub m()

    Dim sh As Worksheet

    Application.DisplayAlerts = False

    For Each sh In ThisWorkbook.Worksheets

        sh.Select

        sh.Cells.Select

        Selection.Validation.Delete

        sh.Range("A1").Select

    Next

    Application.DisplayAlerts = True

    Set sh = Nothing

End Sub

• ALT+F11 e torni in Excel
• ALT+F8
• Seleziona m()
• Esegui

Answer 3

Visto. Ma non ci cavo fuori i piedi.

Ho inviato il file ad un Fratello. Vediamo se risolve il rovello.

Vi siete accorti che c'è una convalida dati?

Provato a rimuoverla?

Answer 4

L'indirizzo a cui si trova il file è il seguente

https://onedrive.live.com/?cid=4E8529DB43CFA3A4

N.B. nella riga gialla tutto è apposto anche la formula funziona, viceversa

tutte le celle delle righe che seguono non hanno lo stesso formato delle celle gialle.

Infatti se clicco nella cella gialla che contiene 16:30, nella barra della formula compare 16:30:00 

Grazie per l'aiuto.

Tutte le celle che seguono sono in formato Testo e non Ora.

Infatti nella colonna OreLavorate (J) i risultati sono tutti sbagliati.

Devi sostituire il punto con i due punti per avere le ore effettive.

Usa la funzione Trova/Sostituisci e sostituisci il punto con i due punti in un colpo solo.

Answer 5

L'indirizzo a cui si trova il file è il seguente

https://onedrive.live.com/?cid=4E8529DB43CFA3A4

N.B. nella riga gialla tutto è apposto anche la formula funziona, viceversa

tutte le celle delle righe che seguono non hanno lo stesso formato delle celle gialle.

Infatti se clicco nella cella gialla che contiene 16:30, nella barra della formula compare 16:30:00 

Grazie per l'aiuto.

Ciao Mago, purtroppo l'indirizzo che hai fornito non è accessibile. Metti il file nella cartella Pubblica di OneDrive e linka il nuovo indirizzo. Grazie.