Pulsante e comando click

di il
2 risposte

Pulsante e comando click

Salve, essendo nuovo del forum colgo l'occasione per salutare tutti.
Il punto: ho un pulsante in excel che se cliccato mi scrive il valore A nella cella C8 (fatto con registratore macro). Vorrei modificare il codice in modo tale che se clicco il pulsante e nella cella C8 c'è già il valore A, scriva il valore nella cella C9.
Il parole povere ad ogni click devo avere il valore A prima in C8, poi in C9 ecc..
Premetto che non sono un programmatore e che ho provato a studiarmi le funzioni click, if...then, range.select e qualche altra ma non sono riuscito.

2 Risposte

  • Re: Pulsante e comando click

    Prova questo codice:

    Sub Button1_Click()
    Sheets("Sheet1").Select
    Range("C1000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(7, 0).Select
    If ActiveCell = "" Then
    ActiveCell = "A"
    Else
    ActiveCell.Offset(1, 0).Select
    ActiveCell = "A"
    End If
    End Sub
  • Re: Pulsante e comando click

    Opsss... problema, mi sono accorto adesso che qualcosa non va.
    Così divrebbe andare:

    Sub Button1_Click()
    Sheets("Sheet1").Select
    Range("C1000").Select
    Selection.End(xlUp).Select
    If ActiveCell = "" Then
    ActiveCell = "A"
    Else
    ActiveCell.Offset(1, 0).Select
    ActiveCell = "A"
    End If
    End Sub
Devi accedere o registrarti per scrivere nel forum
2 risposte