REALIZZARE UN COPIA COMMISSIONE ! - ESEMPIO CC.xls (0/1)

[LAPAZZA]

Ciao a Tutti,
scusate se torno sull'argomento ma non sono riuscita a risolvere il
mio problema...allora lavoro in un magazzino con circa 300 articoli
composti da 20 aziende diverse....mi serve di sapere quanto hanno
speso e l'enco da stampare come foglio di copia commissione !

Ho allegato un esempio :
nel foglio 1 "elenchi prodotti" esiste l'inventario con i prezzi e lo
spazio per inserire le quantità

nel foglio 2 "ordinato" solo l'effettivo ordinato con il totale dei
pezzi ed il relativo importo .

COME SI FA ?

Un grazie a tutti

Enjoy

Lapazza

[LAPAZZA]

Post by LAPAZZA
Ciao a Tutti,
scusate se torno sull'argomento ma non sono riuscita a risolvere il
mio problema...allora lavoro in un magazzino con circa 300 articoli
composti da 20 aziende diverse....mi serve di sapere quanto hanno
speso e l'enco da stampare come foglio di copia commissione !
nel foglio 1 "elenchi prodotti" esiste l'inventario con i prezzi e lo
spazio per inserire le quantità
nel foglio 2 "ordinato" solo l'effettivo ordinato con il totale dei
pezzi ed il relativo importo .
COME SI FA ?
Un grazie a tutti
Enjoy
Lapazza

ELENCHI PRODOTTI FOGLIO 1

CODICE DESCRIZIONE PREZZO QUANTITA' TOTALE

1 A1 PENNA 10 1 10
2 A2 VITE 15 0
3 A3 DADO 20 3 60
4 A4 MATITA 12 0
5 A5 GOMMA 14 0
6 A6 FOGLIO 23 4 92
7 A7 TAPPO 16 0
8 A8 PINZA 8 3 24
9 A9 MARTELLO 17 0

*****************************************************************************************
ORDINATO FOGLIO 2
CODICE DESCRIZIONE PREZZOQUANTITA' TOTALE

1 A1 PENNA 10 1 € 10,00
3 A3 DADO 20 3 € 60,00
6 A6 FOGLIO 23 4 € 92,00
8 A8 PINZA 8 3 € 24,00

TOTALE 11 € 186,00

ops...così è meglio !!!!!

[Mauro Gamberini]

Post by LAPAZZA
scusate se torno sull'argomento ma non sono riuscita a risolvere il
mio problema...allora lavoro in un magazzino con circa 300 articoli
composti da 20 aziende diverse....mi serve di sapere quanto hanno
speso e l'enco da stampare come foglio di copia commissione !

Prova questo, addattandolo ai tuoi bisogni.
In questo caso la mia tabella va da A1:E11
nel Foglio1 e le intestazioni di colonna sono quelle
da te postate.

Nel modulo del Foglio2:


Private Sub Worksheet_Activate()

Dim x As Integer
Dim y As Integer

With Foglio2

.Range("A1:E15") = ""

For x = 1 To 11
If Foglio1.Range("D" & x).Value > 0 Then
y =
Application.WorksheetFunction.CountA(.Range("A1:A11")) + 1
.Range("A" & y).Value = Foglio1.Range("A" & x).Value
.Range("B" & y).Value = Foglio1.Range("B" & x).Value
.Range("C" & y).Value = Foglio1.Range("C" & x).Value
.Range("D" & y).Value = Foglio1.Range("D" & x).Value
.Range("E" & y).Value = Foglio1.Range("E" & x).Value
End If
Next

.Range("B" & y + 2).Value = "TOTALE"
.Range("D" & y + 2).Value =
Application.WorksheetFunction.Sum(.Range("D2:D" & y))
.Range("E" & y + 2).Value =
Application.WorksheetFunction.Sum(.Range("E2:E" & y))
.Range("E" & y + 2).Select

End With

End Sub

Private Sub Worksheet_Deactivate()
Foglio2.Range("A1:E15") = ""
End Sub

[LAPAZZA]

Il Tue, 14 Sep 2004 10:05:26 +0200, "Mauro Gamberini"

Post by Mauro Gamberini

Post by LAPAZZA
scusate se torno sull'argomento ma non sono riuscita a risolvere il
mio problema...allora lavoro in un magazzino con circa 300 articoli
composti da 20 aziende diverse....mi serve di sapere quanto hanno
speso e l'enco da stampare come foglio di copia commissione !

Prova questo, addattandolo ai tuoi bisogni.
In questo caso la mia tabella va da A1:E11
nel Foglio1 e le intestazioni di colonna sono quelle
da te postate.
Private Sub Worksheet_Activate()
Dim x As Integer
Dim y As Integer
With Foglio2
.Range("A1:E15") = ""
For x = 1 To 11
If Foglio1.Range("D" & x).Value > 0 Then
y =
Application.WorksheetFunction.CountA(.Range("A1:A11")) + 1
.Range("A" & y).Value = Foglio1.Range("A" & x).Value
.Range("B" & y).Value = Foglio1.Range("B" & x).Value
.Range("C" & y).Value = Foglio1.Range("C" & x).Value
.Range("D" & y).Value = Foglio1.Range("D" & x).Value
.Range("E" & y).Value = Foglio1.Range("E" & x).Value
End If
Next
.Range("B" & y + 2).Value = "TOTALE"
.Range("D" & y + 2).Value =
Application.WorksheetFunction.Sum(.Range("D2:D" & y))
.Range("E" & y + 2).Value =
Application.WorksheetFunction.Sum(.Range("E2:E" & y))
.Range("E" & y + 2).Select
End With
End Sub
Private Sub Worksheet_Deactivate()
Foglio2.Range("A1:E15") = ""
End Sub

scusa non ho molta dimestichezza con queste formule puoi inviarmi un
allegato per favore ?...grazie tante ...tantissime !!!!!

enjoy

[Mauro Gamberini]

Post by LAPAZZA
scusa non ho molta dimestichezza con queste formule puoi inviarmi un
allegato per favore ?...grazie tante ...tantissime !!!!!

Ok, lunedì(20/09) te lo mando.

[LAPAZZA]

Il Sun, 19 Sep 2004 11:02:39 +0200, "Mauro Gamberini"

Post by Mauro Gamberini

Post by LAPAZZA
scusa non ho molta dimestichezza con queste formule puoi inviarmi un
allegato per favore ?...grazie tante ...tantissime !!!!!

Ok, lunedì(20/09) te lo mando.

il mio indirizzo è ***@fastwebnet.it

grazie !!!!!!!

[Mauro Gamberini]

il mio indirizzo è ********

Non mettere *mai* in chiaro il tuo
indirizzo e-mail nei post di un
ng!
Se non fossi stato in grado di inviarti
il file, te lo avrei chiesto io.

[LAPAZZA]

Il Mon, 20 Sep 2004 10:12:21 +0200, "Mauro Gamberini"

Post by Mauro Gamberini

il mio indirizzo è ********

Non mettere *mai* in chiaro il tuo
indirizzo e-mail nei post di un
ng!
Se non fossi stato in grado di inviarti
il file, te lo avrei chiesto io.

ok....sorry...grazie della info!!!!