Formato data errore #ND

[apocrimata75]

Spero qualcuno mi possa aiutare:
da un foglio xx copio delle celle (tutte nella stessa colonna) contenenti date.
Incollo (con incolla valori), sul foglio yy, i dati di cui sopra a partire dalla cella F4 a scendere.

Legata alla cella F4, nella cella AB4, vi è la seguente formula : =SE(F4<>"";CERCA.VERT(F4;$AA$1:$AC$2;3);""). Per chiarire le celle da aa1 a ac2 contengono delle date, per cui se il valore in f4 è all'interno di tale range si avrà in AB4 il valore C o il valore A.

Il problema consiste nel fatto che: se scrivo (digito) la data (esempio 01/01/2008) nella cella F4 del foglio yy, il risultato sarà "C" (giusto), ma se copio la stessa data dal foglio xx e la incollo (incolla valori, ma le ho provate tutte) il risultato in AB4 sarà: #ND.

Ho notato però che se entro nella cella F4 (dopo le operazioni di copiatura) con F2 e premo "Invio" la cella AB4 non restituisce più l'errore ma dà il risultato esatto.

Potrei ovviare con una macro che "entri" in tutte le celle della colonna F dalla nr 4 alla nr. 5.000, e dia l'invio ma non la so scrivere, potreste aiutarmi?

[apocrimata75]

qualcuno può aiutarmi?

[apocrimata75]

qualcuno potrebbe aiutarmi per inserire una macro che permetta di premere f2 e poi invio dalla cella f1 alla cella f1000.

Ho provato questa macro

Sub Macro1()
RigaI = 4
RigaF = 10
ColonnaI = 6
ColonnaF = 6
For TR = RigaI To RigaF
For TC = ColonnaI To ColonnaF
Cells(TR, TC).Value = Val(Cells(TR, TC))
Next TC
Next TR
End Sub


ma le celle contengono date e la macro di cui sopra le trasforma in 01/01/1900.

Come posso fare?

[Flash30005]

potresti allegare il file?
(togli dati sensibili ma lascia i campi "incriminati")

ciao

N.B. Non è corretto aprire più topic per lo stesso motivo, se non ricevi risposta un motivo c'è sicuramente, non credi?

[apocrimata75]

Ho risolto selezionando l'intera colonna, "dati in colonna" poi "fine". Non so perchè ma funziona. Ti ho mandato un mp

[apocrimata75]

Purtroppo "testo in colonne" non funziona sempre, qualcuno, in particolar modo flash3005, potrebbe spiegarmi come creare una macro che svolga la funzione di F"+invio dalla cella F2 alla cella F5000?.
Allego 2 files: il primo si chiama "dati" dal quale vanno copiate le date della colonna B, che poi vanno incollati nella colonna F del secondo file.

Questo è il link

http://www.filedropper.com/test_40

Per favore qualcuno mi può aiutare?

[Anthony47]

E' evidente che quei dati che copi non sono date ma sono stringhe.
Probabilmente puoi recuperare tutto con questa procedura:
-copi una cella vuote
-selezioni la colonna che contiene le finte date
-menu /incolla speciale /Valori; spunti Operazione "Addiziona"
-Ok

Eventualmente puoi registrare una macro, se devi ripetere spesso.

Ciao

[apocrimata75]

ho fatto una prova e sembra funzionare. Ma per la macro che chiedevo sapresti darmi una mano?

[Flash30005]

Puoi registrare il procedimento consigliato da Anthony e avrai realizzato la tua macro.

altrimenti puoi usare questa

Codice: Seleziona tutto

Sub Normalizza()
Application.Calculation = xlManual
UR = Range("F" & Rows.Count).End(xlUp).Row
For RR = 4 To 5000
If Range("F" & RR).Value = "" Then GoTo Esci
Range("F" & RR).Value = DateSerial(Mid(Range("F" & RR).Value, 7, 4), Mid(Range("F" & RR).Value, 4, 2), Mid(Range("F" & RR).Value, 1, 2))
Next RR
Esci:
Application.Calculation = xlCalculationAutomatic
End Sub

Ciao

[apocrimata75]

La macro faceva diventare le date in migliaia di euro. Ho notato che entrando nel formato celle, ed impostando data a 8 cifre gg/mm/aa non dava più errore, così la macro è diventata:


Application.Calculation = xlManual
UR = Range("F" & Rows.Count).End(xlUp).Row
For RR = 4 To 5000
If Range("F" & RR).Value = "" Then GoTo Esci
Range("F" & RR).Value = DateSerial(Mid(Range("F" & RR).Value, 7, 4), Mid(Range("F" & RR).Value, 4, 2), Mid(Range("F" & RR).Value, 1, 2))
Next RR
Esci:
Application.Calculation = xlCalculationAutomatic
Range("F4:F5000").Select
Selection.NumberFormat = "dd/mm/yy;@"
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("F4").Select
End Sub

[Flash30005]

Fermati dove indicato

Codice: Seleziona tutto

Application.Calculation = xlManual
UR = Range("F" & Rows.Count).End(xlUp).Row
For RR = 4 To 5000
If Range("F" & RR).Value = "" Then GoTo Esci
Range("F" & RR).Value = DateSerial(Mid(Range("F" & RR).Value, 7, 4), Mid(Range("F" & RR).Value, 4, 2), Mid(Range("F" & RR).Value, 1, 2))
Next RR
Esci:
Application.Calculation = xlCalculationAutomatic
Range("F4:F5000").Select
    Selection.NumberFormat = "dd/mm/yy;@"
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< togli tutto ciò che viene dopo
    With Selection.Font
        .Name = "Arial"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fino qui
    Range("F4").Select
End Sub

Ciao

[apocrimata75]

Ok, grazie, provo e poi ti faccio sapere.

[apocrimata75]

Ho provato, restituisce un errore di runtime, la seguente stringa evidenziata in giallo
Selection.NumberFormat = "dd/mm/yy;@"

le celle sono state corrette nel giusto formato.

[Flash30005]

Se ti dà errore ora significa che avevi anche prima l'errore mentre dici che la macro funzionante era quella da te postata.

Non ho fatto altro che togliere la formattazione font e bordi e ciò non va ad inficiare il codice che formattava la data
purché prima di quella riga sia rimasta la selezione del range

Codice: Seleziona tutto

...
Range("F4:F5000").Select
    Selection.NumberFormat = "dd/mm/yy;@"

Ciao

[apocrimata75]

la macro postata confermo funzionava. con le modifiche il risultato è perfetto solo che si ferma (dopo aver svolto il suo dovere) e premendo debug compare quella striscia di prima evidenziata in giallo. grazie per l'aiuto, non avrei potuto terminare il mio lavoro senza..

[Flash30005]

E allora togli anche queste ultime due righe

Codice: Seleziona tutto

Range("F4:F5000").Select
Selection.NumberFormat = "dd/mm/yy;@"

Ciao

[Anthony47]

Vi ho perduto

[apocrimata75]

Ok, flash3005, con l'ultima correzione sembra funzionare, ho eliminato le ultime 2 righe.