Salve gente,
eccomi con i miei rompicapi.
Stavolta niente di particolare.
La speigazione del problema è spiegata nel file e qui sotto lo allego (spero ci sia riuscito!) :
http://www.filedropper.com/ordinesportelliturni
Ciao a tuttiiii!!
Moderatori: Anthony47, Flash30005
Function PmShift(ByRef User As Range, ByRef ShPlan As Range, ByRef AllTab As Range) As Variant
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101551
Dim I As Long, AllIn(), myRank As Long, pmPlan(), pmForc(), myIn As Single
If User.Offset(0, -1) <> "" And User.Value <> "" Then
PmShift = User.Offset(0, -1).Value: Exit Function
End If
ReDim AllIn(1 To AllTab.Rows.Count)
ReDim pmForc(1 To AllTab.Rows.Count)
ReDim pmPlan(1 To ShPlan.Rows.Count)
'
myIn = User.Value + User.Row / 10000
For I = 1 To AllTab.Rows.Count
AllIn(I) = AllTab.Cells(I, 4).Value + AllTab.Cells(I, 4).Row / 10000
Next I
For I = 1 To AllTab.Rows.Count
If AllIn(I) <= myIn And AllIn(I) > 0.01 And AllTab.Cells(I, 3).Value = "" Then myRank = myRank + 1
Next I
If myRank > 0 Then
pmPlan = ShPlan.Value
For I = 1 To AllTab.Rows.Count
aaaa = pmPlan(1, 1) + pmPlan(2, 1) + pmPlan(3, 1) + pmPlan(4, 1) + pmPlan(5, 1)
If AllTab.Cells(I, 3) <> "" And AllTab.Cells(I, 4) <> "" Then
pmPlan(Application.Match(AllTab.Cells(I, 3).Value, pmPlan, 0), 1) = 0
End If
Next I
'
For I = 1 To UBound(pmPlan, 1)
If pmPlan(I, 1) > 0 Then jj = jj + 1
If jj = myRank Then
If pmPlan(I, 1) > 0 Then
PmShift = pmPlan(I, 1)
Else
PmShift = ""
End If
Exit For
End If
Next I
Else
PmShift = ""
End If
End Function
=PmShift(l'OrarioDiArrivoPomeridiano; LaTabellaConLaPosizioneDaOccupare;L'InteraTabellaTimbrature)
=PmShift(F15;$F$5:$F$10;$C$15:$G$22)
Sasyjoe ha scritto:se assegno un orario o al nome 7 o al nome 8
Torna a Applicazioni Office Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Modidica Formula Somma I Riferimenti Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 94 ospiti