|
Login
  • Page:
  • 1
  • 2

TOPIC: Effettuare una query su foglio excelh

Effettuare una query su foglio excelh 5 years 3 weeks ago #9989

  • mojito
  • mojito's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 16
  • Karma: -1
ho provato cosi:
quantitaA quantitaB qunatitaC tipo
2 2 2 patate
3 3 3 carote
1 1 1 carote

E56 E57 E58 E59
carote 4 4 4
patate 2 2 2

codice:
Sub SommaValori()
Sheets("foglio1").Select
'---facciamo una lista unica dei codici
Dim v, e
Dim Codice(50)
Dim QuantitaA(50)
Dim QuantitaB(50)
Dim QuantitaC(50)

With Sheets("Foglio1").Range("F5:F40")
v = .Value
End With

With CreateObject("scripting.dictionary")
.comparemode = 1
i = 1
For Each e In v
If Not .exists(e) Then
.Add e, Nothing
Codice(i) = e
i = i + 1
End If
Next

End With

Max = i

Range("f5").Select



Do While ActiveCell.Value <> ""
For i = 1 To Max
If ActiveCell.Value = Codice(i) Then QuantitaA(i) = QuantitaA(i) + ActiveCell.Offset(0, -3).Value
If ActiveCell.Value = Codice(i) Then QuantitaB(i) = QuantitaB(i) + ActiveCell.Offset(0, -2).Value
If ActiveCell.Value = Codice(i) Then QuantitaC(i) = QuantitaC(i) + ActiveCell.Offset(0, -1).Value
Next i
ActiveCell.Offset(1, 0).Select
Loop


'----test output
Range("f50").Select
For i = 1 To Max
ActiveCell.Value = Codice(i)
ActiveCell.Offset(0, -3) = QuantitaA(i)
ActiveCell.Offset(0, -2) = QuantitaB(i)
ActiveCell.Offset(0, -1) = QuantitaC(i)

ActiveCell.Offset(1, 0).Select
Next i
End Sub
The administrator has disabled public write access.

Effettuare una query su foglio excelh 5 years 3 weeks ago #9990

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
mojito wrote:
ho provato cosi:...
ma non dici se hai risolto o meno.
ciao, Lo
The administrator has disabled public write access.

Effettuare una query su foglio excelh 5 years 3 weeks ago #9992

  • mojito
  • mojito's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 16
  • Karma: -1
scusa non ho risolto
The administrator has disabled public write access.

Effettuare una query su foglio excelh 5 years 3 weeks ago #9993

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
mojito wrote:
scusa non ho risolto
spendere due parole per dire che succede no vero?
Comunque la tua macro funziona se sono giusti i presupposti.
Ora, immaginando che quelli che sembrano numeri non siano numeri, ho fatto una leggera modifica al tuo codice. Scopri tu quale.
Riallego il file con la TUA macro.
Ciao, Lo

File Attachment:

File Name: VBAesempioelencounivoco_2015-07-13.xlsm
File Size: 19 KB
Last Edit: 5 years 3 weeks ago by lorenzo1957.
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.608 seconds