Moderatori: Anthony47, Flash30005
Sub Baam()
Dim I As Long, J As Long, ValMin As Long
Dim oArr(), ValIn As Long, oInd As Long
'
ValMin = Range("CB2").Value '<<< Dove trovo scritto il Min valore
'
ReDim oArr(1 To Cells(Rows.Count, "BC").End(xlUp).Row - 3, 1 To 90)
For I = 4 To Cells(Rows.Count, "BC").End(xlUp).Row
oInd = oInd + 1
For J = 1 To 90
ValIn = Application.WorksheetFunction.CountIf(Cells(I, "BC").Resize(1, 25), J)
If ValIn >= ValMin Then
oArr(oInd, J) = J
End If
Next J
Next I
Cells(4, "CB").Resize(UBound(oArr), 90).Value = oArr
MsgBox ("Completato")
End Sub
Sub Baam2()
Dim I As Long, J As Long, ValMin As Long
Dim ValIn As Long
'
ValMin = Range("CB2").Value '<<< Dove trovo scritto il Min valore
'
Range("CB4").Resize(Cells(Rows.Count, "BC").End(xlUp).Row - 3, 90).ClearContents
For I = 4 To Cells(Rows.Count, "BC").End(xlUp).Row
For J = 1 To 90
ValIn = Application.WorksheetFunction.CountIf(Cells(I, "BC").Resize(1, 25), J)
If ValIn >= ValMin Then
Range("CB1").Cells(I, J) = J
End If
Next J
Next I
MsgBox ("Completato")
End Sub
For i = 1 To i
Vs
For I = 4 To Cells(Rows.Count, "BC").End(xlUp).Row
Cells(3 + i, 79 + j).Value = Application.WorksheetFunction.Count(Range(Cells(3 + i, 54), Cells(i + 79))) = Cells(1, 80).Value
Vs
ValIn = Application.WorksheetFunction.CountIf(Cells(I, "BC").Resize(1, 25), J)
If ValIn >= ValMin Then
Range("CB1").Cells(I, J) = J
End If
Torna a Applicazioni Office Windows
[Excel] Non far visualizzare valore FALSO Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 19 ospiti