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

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 )
fai offset di una cella in basso
incolli
elimini riquadro di copia
torni su a2

[TheMaster1983]

Originariamente inviato da 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

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 )
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

http://rapidshare.com/files/12885192...costi.xls.html

[zuper]

Originariamente inviato da TheMaster1983

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

http://rapidshare.com/files/12885192...costi.xls.html

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

[TheMaster1983]

Originariamente inviato da zuper

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]

Originariamente inviato da TheMaster1983

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]

Originariamente inviato da TheMaster1983

Lo script è perfetto, ti ringrazio moltissimo

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

nn è difficile

[TheMaster1983]

Originariamente inviato da zuper

nn è difficile

No ok l ho capito