riepilogo date

Hai un problema con Excel?

Nuova discussione

riepilogo date
di biss73 (utente non iscritto) data: 27/03/2015 16:10:12
Salve a tutti,
un piccolo aiuto
riporto su un foglio di riepilogo il totale dei giorni di presenza ( cella di colore blu vale una presenza) di tutti i fogli, ( grazie a una macro del caro Vecchio Frac).
vorrei se possibile riportare anche la data delle presenze cioè:
totale giorni 4
1° 02/07/2013
2 01/01/2014
3° ecc
4° ecc
allego un file con il codice che conta le celle blu dei fogli
grazie anticipatamente

di biss73 (utente non iscritto) data: 30/03/2015 18:15:04
Salve a tutti,
sono riuscito a fare in parte cio che volevo
in pratica riesco a recepire con dei cicli for il giorno e il mese che assegno a delle variabili per ogni record
problema:
con una variabile nome = nome record
variabile nome1= giorno
variabile nome2 = mese
Dovendo riportare le 2 variabili ( nome1 & nome2) su un unica cella in modo da costruire una data es. 22/03
non so come fare
avendo questo passaggio del codice dove vado a scrivere il risultato

Set c = Sheets("riepilogo").Range("c:c").Find(nome)
c.Offset(, rrrr) = c.Offset(, rrrr) + nome1 qui dovrei aggiungere nome2 ma mi da errore

qualcuno puo darmi una dritta???
posto il codice che ho sviluppato

non spaventatevi per come è scritto
gradite critiche per come è svolto grazie
in attesa di un vostro esperto e graditissimo aiuto ringrazio tutti per la disponibilità

Sub giorni()
Dim conta As Integer
Dim ws As Worksheet
Dim rng As Range, row_ As Range, cell As Range, c As Range, row1_ As Range, rr As Long, rrr As Long
Dim tot_giorni As Integer, nome2 As String, f As String, nome As String, nome1 As String, ultimariga As Long, i As Long

ur = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Row ' ULTIMA RIGA PIENA
uc = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Column ' ULTIMA COLONNA PIENA

rr = 4 ' colonna di partenza presenze
rrr = 3 ' colonna di partenza nome record
rrrr = 2 '
For y = 7 To ur
Cells(y, rr).Select
For x = 4 To uc

If ActiveCell.Interior.ColorIndex = 5 Then

nome = Cells(y, rrr) 'nome record
nome1 = Cells(6, x) ' giorno
nome2 = Cells(5, x) ' mese

Set c = Sheets("riepilogo").Range("c:c").Find(nome)
c.Offset(, rrrr) = c.Offset(, rrrr) + nome1
rrrr = rrrr + 1

End If
Selection.Offset(, 1).Select
Next
rrrr = 2
Next

End Sub

Vuoi Approfondire?