Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] - Ricerca dati per righe

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL] - Ricerca dati per righe

Postdi carmelo.nicita » 16/09/09 15:22

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!!
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42

Sponsor
 

Re: [EXCEL] - Ricerca dati per righe

Postdi Flash30005 » 16/09/09 16:12

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] - Ricerca dati per righe":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti