Ciao a tutti.
Ho un problema con una macro vba in excel. In pratica ho una tabella contenente nomi, tipo di carburante e litri e vorrei creare una macro che permetta
di eseguire un "ordinamento" in modo da riunire tutti i clienti con lo stesso nome della colonna O (con i nomi) e a questo punto dovrei ottenere:
-
la separazione tra un cliente e l'altro anche in base al tipo di carburante usato (indicato nella colonna H, con l'aggiunta di due righe, nella prima delle quali inseriremo la parola "totale" nella colonna E
-
l'inserimento nella colonnaG, sempre nella prima delle due righe aggiunte, di una formula che cerchi, a salire, tutti gli importi relativi ai litri di carburante per tipologia di quel cliente, e sommi gli importi in modo da ottenere un totale cliente.
Allego il file di esempio della tabella e del risultato che vorrei ottenere.
Avevo iniziato scrivere la macro ma non funziona.
Sub MacroCerca() With Worksheets("Foglio1 (2)").Range("O1:O3000")
Dim code, MyValue code = "paolo"
MyValue = code
Dim X As String
X = MyValue
Set c = .Find(X, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then firstAddress = c.Address
Do
Set c = .FindNext(c) Loop While Not c Is Nothing And firstAddress <> c.Address
c.Offset(1, 0).Select
ActiveCell.EntireRow.Insert Shift:=xlDown
ActiveCell.EntireRow.Insert Shift:=xlDown end If
End With
End Sub