Ciao
alla mia prima per quanto riguarda l'aggiornamento dei calcoli ho per
adesso sopperito aggiungendo due pulsanti che aprono il foglio 1 e 2. Il
primo foglio à la classica battaglia navale il foglio à diviso in due
aree dove dicevo inserisco le inziali, poi tramite una funzione nel
secondo e terzo foglio una volta scelta una riga tramite una combo i
dati riguardanti la persona vengono caricati e quindi trasformati e
trascritti in una nuova colonna, posto la function :
Function trasforma (dato as String) as String' as String'Controllo
numerico e trasformazione stringhe
Dim ora as Long
ora = 0
If IsNumeric(dato) = TRUE Then
If dato > ora Then
trasforma = "Straordinario"
ElseIf dato < ora Then
trasforma = "Anticipo"
Else
trasforma = " "
End If
Else
If UCase(dato) = "IS" Then
trasforma = "Isaia"
ElseIf UCase(dato) = "G" Then
trasforma = "Giovanni"
ElseIf UCase(dato) = "R" Then
trasforma = "Rododendro"
ElseIf UCase(dato) = "F" Then
trasforma = "Festivo"
ElseIf UCase(dato) = "LO" Then
trasforma = "Loren"
ElseIf UCase(dato) = "L937" Then
trasforma = "L. 937/77"
ElseIf UCase(dato) = "LS" Then
trasforma = "Lo so"
ElseIf UCase(dato) = "GMF" Then
trasforma = "SA. GMF"
ElseIf UCase(dato) = "CT" Then
trasforma = "Cure termali"
ElseIf UCase(dato) = "RD" Then
trasforma = "Riposo"
ElseIf UCase(dato) = "RC" Then
trasforma = "Ricovero"
ElseIf UCase(dato) = "LT" Then
trasforma = "Latina"
ElseIf UCase(dato) = "LC" Then
trasforma = "Leoncino"
ElseIf UCase(dato) = "TI" Then
trasforma = "Timperi"
ElseIf UCase(dato) = "MS" Then
trasforma = "Milde sorte"
ElseIf UCase(dato) = "X" Then
trasforma = "x-file"
ElseIf UCase(dato) = "TR" Then
trasforma = "Trans europe express"
ElseIf UCase(dato) = "LM" Then
trasforma = "Limonge"
'ElseIf UCase(dato) = "CO" Then
'trasforma = "Comandi"
Else
trasforma = "Dato errato"
End If
End If
End Function
Le due aree sono create da inserisci-->nomi-->definisci e vengono
ricavate dall'indice della combo e della colonna che viene inserito con
la funzione INDICE(AREA;RIGA;COLONNA). Comunque nei fogli 2 e 3 poi a
seconda del dato trasformato vengono effettuati svariati calcoli con
formule e controlli condizionali 36 colonne x 81 righe x 2 fogli, penso
sia solo una questione di avvio iniziale , in quanto una volta poi
aggiornato il calcolo il programma va spedito, per poi rallentare all'
apertura del foglio 3, a meno che non sia un problema con la funzione
indice. Il mio quesito per quanto riguarda la lista era per un'altra sub
nel foglio 2 e 3 . Che scrive deglio orari in base alla presenza di
alcuni script in 2 celle , quindi una volta controllate le condizioni
scrive in altre celle, visto che le stringhe da controllare erano tante
volevo sapere se era possibile inserirle in un'unica lista per poi fare
il controllo all'interno, non posto la funzione perchà penso che
prenderei pià di 150 righe, comunque si tratta sempre di controlli IF ,
ma quelli rallentano il programma solo quando li avvio sempre tramite
pulsante quindi à contemplato , spero di essere stato chiaro il
programma à molto vasto , controlla gli orari di ingresso ed uscita di
persone ed in base al lavoro svolto calcola straordinari e compensi .
P.S: à un pà di tempo che quando invio una mail alla lista mi ritorna
indietro una mail di barbara che ha cambiato indirizzo , qualcuno ha un
worm ????????
Grazie
