Notes

Procedura per il controllo e la correzione dei dati della torre anemometrica

Aprire tutti i file txt con TextPad

Aprire un foglio xls vuoto ed impostare il formato personalizzato sulla colonna a aa/mm/gg

Selezionare solo la parte di testo contenente i dati e copiarla su xls

Copiare la collonna della data e incollarla su un editor di testo

Impostare la colonna delle date come formato testo ed incollare il contenunto di notepad

Ciudere il file txt e passare aldo until successivo

Sub ControlloDatiEolo()
’
’ ControlloDatiEolo
’ Macro registrata il 12/02/2007 da .
’

Dim EndLoop As Boolean
Dim i As Long
Dim NumClone As Integer

EndLoop = False
i = 1
NumClone = 0

Do Until EndLoop
i = i + 1
Cells(i, 1).Select
DataRecord = Cells(i, 1) & Cells(i, 2)

’Controllo se ?? una data valida
If Not IsDate(DataRecord) Then
EndLoop = True
Else
If DataRecord = Cells(i + 1, 1) & Cells(i + 1, 2) Then

Rows(i + 1 & ":" & i + 1).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

NumClone = NumClone + 1

End If
End If

Loop
MsgBox NumClone
End Sub

Sub CorreggiDatiEolo()
’
’ ControlloDatiEolo
’ Macro registrata il 12/02/2007 da .
’

Dim EndLoop As Boolean
Dim i As Integer
Dim NumClone As Integer

EndLoop = False
i = 1
NumClone = 0

Do Until EndLoop
i = i + 1
Cells(i, 1).Select
DataRecord = Cells(i, 1) & Cells(i, 2)

’Controllo se ?? una data valida
If Not IsDate(DataRecord) Then
EndLoop = True
Else
If DataRecord = Cells(i + 1, 1) & Cells(i + 1, 2) Then

DoEvents

If i = 5000 Then
MsgBox ""
End If

Rows(i + 1 & ":" & i + 1).Select
Selection.Delete Shift:=xlUp

i = i - 1
’ With Selection.Interior
’ .ColorIndex = 6
’ .Pattern = xlSolid
’ End With

NumClone = NumClone + 1

End If
End If

Loop
MsgBox NumClone
End Sub