[EXCEL] - Ricerca dati per righe

[carmelo.nicita]

Ciao a tutti,

vi chiedo un aiuto per quanto riguarda la creazione di una procedura in VBA che permetta di copiare i dati contenuti in due colonne e salvare il tutto in una nuova colonna di un altro foglio di lavoro.
Per capirci meglio, seguendo la parte di dati da elaborare, dovrei sommare i dati delle 2 colonne in rosso e il risultato lo vorrei in una nuova colonna:

08.27 13.01 13.53 18.43 07.30 FROD 01.30 FRSD
07.49 13.00 14.14 17.58 07.45 FROD 00.45 FRSD
07.49 13.02 13.54 18.00 08.00 FROD 01.00 FRSD


07.51 13.02 13.49 18.00 08.00 FROD 01.00 FRSD
08.04 13.01 13.54 19.20 07.45 FROD 02.15 FRSD
07.46 12.50 13.55 17.55 07.45 FROD 00.45 FRSD
07.56 16.34 08.30 FROD 08.30
07.46 12.48 13.53 18.00 07.45 FROD 00.45 FRSD


08.05 12.33 13.54 18.45 07.15 FROD 01.45 FRSD

07.51 12.31 13.52 18.40 07.30 FROD 01.30 FRSD
07.47 12.45 13.51 18.23 07.45 FROD 01.15 FRSD
07.49 12.49 13.54 17.48 07.45 FROD 00.45 FRSD

Ho provato anche a creare due variabili in cui salvare i dati delle singole celle delle colonne, però il problema è che nella terza variabile in cui vado a salvare il risultato non riesco a ottenere un formato di ore "h.mm"...
Cmq questo che ho adottato io è un metodo abbastanza, per non dire molto, macchinoso quindi se mi potreste suggerire un metodo più "intelligente" sarebbe molto meglio.

Grazio in anticipo per l'aiuto!!

[Flash30005]

Ciao Carmelo

Quei dati sono visti da excel in fomato testo e non orario vedi il . (punto all'interno dell'ora)
quindi ti occorre una piccola macro che trasformi quei dati tipo questa:

Codice: Seleziona tutto

Sub ConvOra()
Ur = Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To Ur
For CC = 3 To 10
    Cells(RR, CC).Value = Replace(Cells(RR, CC).Value, ".", ":")
    Next CC
Next RR
End Sub

e nella cella corrispondente alla riga es. 4 puoi mettere questa formula

Codice: Seleziona tutto

=G4-I4
o
=I4-G4+1

(dove G4 è la colonna del primo valore in rosso e I4 la colonna del secondo)
e formattare questa cella in "hh:mm"
Utilizzerai la formula che soddisfa le tue esigenze, nella seconda dovrai inserire 1 che aggiunge 24 ore altrimenti andrebbe in errore

Ciao

premetto che se aggiungi alla precedente macro una sola riga non hai più bisogno della macro ConOra
facendo in questa maniera:

Codice: Seleziona tutto

    Stringa = Replace(Stringa, "*", "")
    Stringa = Replace(Stringa, "", "")
    Stringa = Replace(Stringa, "E", "")
    Stringa = Replace(Stringa, "F", "")
    Stringa = Replace(Stringa, "G", "")
    Stringa = Replace(Stringa, "H", "")
    Stringa = Replace(Stringa, "", "")   '<<<< righe esistenti

    Stringa = Replace(Stringa, ".", ":")    '<<<<<<<< riga da aggiungere alla macro dell'altro post

    If Trim(Stringa) = "" Then               '<<<< righe esistenti
        Rows(I & ":" & I).Delete Shift:=xlUp
    Else