Qualcuno sa usare le macro di excel?

[TheMaster1983]

Mi trovo davanti ad un problema vi spiego:

Ho una tabella prezzi esempio

acqua 1 euro
vino 2 euro
birra 3 euro

Adesso ho fatto un tasto vicino ad ogni articolo e quando ci clicco mi si aggiunge ad un altra tabella, io la macro l ho fatta però vorrei che quando ci clicco mi aggiunge l'articolo nella prima riga libera non solamente in quella dove faccio la macro, mi sono spiegato?

Se io come macro metto che quando clicco su a1 mi aggiunge quella cosa in b1 vorrei esempio che ci riclicco me lo aggiunge anche in B2..

[zuper]

Range("A2").Select
Selection.Copy
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select

in a1 e b1 hai il titolo delle colonne....almeno parti dalla riga 2 se no la mia macro scazza :D:D

selezioni a2
copi
selezioni b1
vai all'ultima riga scritta
vai in fondo al foglio
torni all'ultima riga scritta (sembra un doppione...ma serve :D:D)
fai offset di una cella in basso
incolli
elimini riquadro di copia
torni su a2

[TheMaster1983]

Range("A2").Select
Selection.Copy
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select

in a1 e b1 hai il titolo delle colonne....almeno parti dalla riga 2 se no la mia macro scazza :D:D

selezioni a2
copi
selezioni b1
vai all'ultima riga scritta
vai in fondo al foglio
torni all'ultima riga scritta (sembra un doppione...ma serve :D:D)
fai offset di una cella in basso
incolli
elimini riquadro di copia
torni su a2

ho provato ma non ci riesco questo e il file in questione mi daresti una mano?

La macro e sotto Fatturazione il primo pulsante per il toner nero:D

http://rapidshare.com/files/128851925/Programma_gestione_costi.xls.html

[zuper]

ho provato ma non ci riesco questo e il file in questione mi daresti una mano?

La macro e sotto Fatturazione il primo pulsante per il toner nero:D

http://rapidshare.com/files/128851925/Programma_gestione_costi.xls.html

ma le macro deove le hai salvate che non le vedo nel foglio?

[TheMaster1983]

ma le macro deove le hai salvate che non le vedo nel foglio?

L'unica macro fatta l avevo fatta sul pulsante toner nero sotto fatturazione ed è questa...

Sub nero2600()
'
' nero2600 Macro
' Macro registrata il 11/07/2008 da gigi
'

Range("I5").Select
ActiveCell.Value = Now()
Range("J5").Select
ActiveCell.FormulaR1C1 = "Q6000A nero"
Range("K5").Select
ActiveCell.FormulaR1C1 = "Hp 2600n"
Range("L5").Select
ActiveCell.FormulaR1C1 = "47"
Range("L6").Select
MsgBox "Toner nero aggiunto"
End Sub

ma non riesco a ripremere il pulsante e aggiungere di nuovo quella voce sotto...

[zuper]

L'unica macro fatta l avevo fatta sul pulsante toner nero sotto fatturazione ed è questa...

Sub nero2600()
'
' nero2600 Macro
' Macro registrata il 11/07/2008 da gigi
'

Range("I5").Select
ActiveCell.Value = Now()
Range("J5").Select
ActiveCell.FormulaR1C1 = "Q6000A nero"
Range("K5").Select
ActiveCell.FormulaR1C1 = "Hp 2600n"
Range("L5").Select
ActiveCell.FormulaR1C1 = "47"
Range("L6").Select
MsgBox "Toner nero aggiunto"
End Sub

ma non riesco a ripremere il pulsante e aggiungere di nuovo quella voce sotto...

Sub nero2600()
'
' nero2600 Macro
' Macro registrata il 11/07/2008 da gigi
'

Range("H27").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Now()
Range("i27").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "Q6000A nero"
Range("j27").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "Hp 2600n"
Range("k27").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "47"
Range("L6").Select
MsgBox "Toner nero aggiunto"
End Sub


dagli un okkio :)

[TheMaster1983]

Lo script è perfetto, ti ringrazio moltissimo:)

Sto solo cercando di "leggerlo" per capire cosa ho fatto:)

[zuper]

Lo script è perfetto, ti ringrazio moltissimo:)

Sto solo cercando di "leggerlo" per capire cosa ho fatto:)

nn è difficile :D

[TheMaster1983]

nn è difficile :D

No ok l ho capito:D