Sono contento che abbia risolto
il problema lo hai capito da solo
in pratica se giorno è 1
usando la formula (giorno-1)*50 incrementi il passo delle pagine
42 è l'ultima riga della pagina di ogni foglio
quindi con questo codice
- Codice: Seleziona tutto
RRB = 42 + (Giorno - 1) * 50
URB = Worksheets("PRESENZE GIORNALIERE").Range("H" & RRB).End(xlUp).Row
Conti le righe piene a partire dal fondo pagine verso l'alto
il problema della condizione è dovuto al fatto che hai unito le celle della testata Cognome
quindi ho dovuto ripiegare con questa condizione
- Codice: Seleziona tutto
If Trim(Worksheets("PRESENZE GIORNALIERE").Range("H" & URB).Value) = "COGNOME" Then
URB = URB + 2 '<<< in caso di testata scriverà due righe più sotto
Else
URB = URB + 1 '<<< altrimenti solo una riga
End If
Comunque se decidessi di avere un foglio al giorno
credo si semplificherebbe tutto
ciao