in un modulo ho una macro per ricerca di dati differenti sul foglio reperiti tramite InputBox.
- Codice: Seleziona tutto
Dim cl As Object
Set Zona = Worksheets(1).Range("S:S")
'Dimmi = InputBox("Scrivi la parola da cercare")
'If Dimmi = "" Then Exit Sub
For Each cl In Zona
If cl.Value Like "*" & Dimmi & "*" Then
cl.Select
Selection.Interior.ColorIndex = 4
ActiveCell.Offset(0, -1).Select
Dim iRow, icol As Integer
iRow = ActiveCell.Row
icol = 18
While Cells(iRow, icol).Value = 0
iRow = iRow + 1
Wend
Cells(iRow, icol).Offset(0, 2) = "1a"
Cells(iRow, icol).Offset(0, 2).Interior.ColorIndex = 4
End If
Next
10:
In un secondo modulo ho una macro che li raccoglie e li somma e li etc. secondo quanto inserito nell'InputBox.
- Codice: Seleziona tutto
Set rng = Sh.Range("T:T")
For Each c In rng
Select Case c.Value
Case "1a"
dblRis = dblRis + c.Offset(0, -2).Value
End Select
Next
MsgBox dblRis, 0 + 64, "Risultato 1a"
Range("R65536").End(xlUp).Offset(2, 0) = dblRis
Range("R65536").End(xlUp).Interior.ColorIndex = 4
Set Sh = Nothing
Set c = Nothing
Set rng = Nothing
dblRis =
poi c'è "1b" e così via fino a 167a e 167b.
Nell'altro modulo ci sono 167
- Codice: Seleziona tutto
Set rng = Sh.Range("T:T")
For Each c In rng
Select Case c.Value
Case "1a"
dblRis = dblRis + c.Offset(0, -2).Value
End Select
Next
MsgBox dblRis, 0 + 64, "Risultato 1a"
Range("R65536").End(xlUp).Offset(2, 0) = dblRis
Range("R65536").End(xlUp).Interior.ColorIndex = 4
Set Sh = Nothing
Set c = Nothing
Set rng = Nothing
dblRis = 0
ed infine
- Codice: Seleziona tutto
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(C[3],""1a"")>=1,SUMIF(C[3],""1a"",C[1]),0)" [color=#0000FF](i totali sono tutti negativi)[/color]
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Chiedo se è possibile affiancare ai risultati ottenuti con la seconda macro (quindi 167x2 colonne) quanto inserito nell'InputBox con la prima macro. Cioè corrispondenza tra risultato ed articolo cercato.
In tutto il pomeriggio non sono riuscito a risolvere. Nel peregrinare nel web ho visto molti di Voi in tanti altri forum, addirittura dal 2007. Solo Anthony non ho incontrato. Ma forse ho capito con quale altro nome si maschera.
Un cordiale saluto
Enrico