Sto provando a creare una macro che, dopo una selezione dell'intervallo, mi dirà quanti contenitori da 20 piedi o 40 piedi sono stati trovati nel campione.
La macro cerca fondamentalmente la stringa "1x20" o "1x40" e quando viene trovata una, le variabili cont20 o cont40 aumenteranno di 1.
il codice che ho:
Sub containercount()
Dim count20 As Integer
Dim count40 As Integer
count20 = 0
count40 = 0
For Each cell In Selection
If Not ActiveCell.Find("1x20", LookAt:=xlPart, MatchCase:=False) Is Nothing Then
count20 = count20 + 1
End If
If Not ActiveCell.Find("1x40", LookAt:=xlPart, MatchCase:=False) Is Nothing Then
count40 = count40 + 1
End If
Next cell
MsgBox ("Number of 20ft containers: " & count20 & vbNewLine & "Number of 40ft containers: " & count40)
End Sub
Ma il risultato è sempre zero ... Gradirei il tuo aiuto.
CountIf