Rigenerazione automatica tabella?

[leo21583]

Salve a tutti!

Ho un problema che credo sia estremamente semplice da risolvere per gli esperti.. Ho una macro che crea due colonne di numeri in funzione del valore nella cella A1. Il problema è che vorrei che le due colonne si aggiornassero automaticamente nel momento in cui cambio il valore della cella in A1. Qualcuno sa dirmi come modificare la macro?

Private Sub Diag()
d = 0.5
L = Cells(1, 2).Value
n = (L / d) + 1
For j = 1 To n
Cells(7 + j, 1).Value = j * d - d
Cells(7 + j, 2).Value = -Cells(5, 2) + Cells(4, 2) * Cells(7 + j, 1) - Cells(2, 2) * Cells(7 + j, 1) ^ 2 / 2
Next j
End Sub

[Flash30005]

Togli il "Private" alla macro ma lascia solo
Sub Diag()

poi vai nel vba del foglio (dove cambi il valore della cella A1)
e inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Call Diag
End Sub

Al solo variare della cella A1 si attiverà la macro che ricrea la tabella casuale come da te programmata

ciao

[leo21583]

Grazieeeeee! Funziona ma ci sono due problemi:

1) Non so come fare a far cancellare i numeri automaticamente; perchè se creo una tabella più corta mi restano i numeri nelle altre righe;
2) se cambio numero non mi cambia subito i valori in tabella ma devo andare di nuovo col mouse sulla casella ( che strano!).

[Flash30005]

Per il punto 1)
inserisci questa riga nella tua macro

Codice: Seleziona tutto

Private Sub Diag()
Range("A2:B10000").ClearContents  '<<<< questa riga qui, aumenta il valore 10000 a più righe se ne hai bisogno
d = 0.5
L = Cells(1, 2).Value
n = (L / d) + 1
For j = 1 To n
Cells(7 + j, 1).Value = j * d - d
Cells(7 + j, 2).Value = -Cells(5, 2) + Cells(4, 2) * Cells(7 + j, 1) - Cells(2, 2) * Cells(7 + j, 1) ^ 2 / 2
Next j
End Sub

per il punto 2) correggi il codice da me postato (cancella il precedente)
con questo (è in worksheets_Change e non SelectionChange)

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Call Diag
End Sub


Ciao

[leo21583]

Allora, adesso funziona bene la macro ma è sorto un altro problema (te pareva..).. Ho gia una Private sub Worksheet_Change nello stesso foglio e se ne metto due si blocca tutto e posso chiudere solo da gestione attività. Poi ho provato a mettere le istruzioni insieme nella stessa Private Sub Worsheet_Change e a quel punto mi funziona solo la prima delle due mentre l'altra viene ignorata. Si può risolvere? Grazie mille!

[Flash30005]

Non puoi inserire due "Private Sub Worksheet_Change"
Quindi i codici vanno inseriti nella stessa "routine" modificando così

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then goto Salta
Call Diag
Salta:

'Tuo codice
'...
'...


End Sub


Ciao

[leo21583]

Grazie davvero! Adesso funziona tutto