| | Post: 1 | Registrato il: 02/01/2012
| Città: RAVENNA | Età: 58 | Utente Junior | Office 2010 | | OFFLINE |
|
04/12/2019 12:10 | |
E' possibile fare in modo che all'invio il risultato si inserisca nella seconda cella successiva ? Cerco di chiarire, vorrei che SOLO in questo foglio,dopo aver immesso un dato in B2 all'invio andasse direttamente in D2, effettuando naturalmente il calcolo in C2.Naturalmente in tutto il foglio.
Grazie [Modificato da gabonik46 04/12/2019 12:14] |
|
|
04/12/2019 15:02 | |
Come da esempio, questo VBA sposta da B in D
Mà la domanda è in D cosa esiste? Una formula oppure un'altro dato da immettere? Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
ur = Range("B" & Rows.Count).End(xlUp).Row + 10 '(mettiamo 10 righe in più)
If Not Intersect(Target, Range("B2:B" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
End Sub |
| | Post: 1 | Registrato il: 02/01/2012
| Città: RAVENNA | Età: 58 | Utente Junior | Office 2010 | | OFFLINE |
|
05/12/2019 10:28 | |
ABCDEF@Excel, 04/12/2019 15.02:
Come da esempio, questo VBA sposta da B in D
Mà la domanda è in D cosa esiste? Una formula oppure un'altro dato da immettere? Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
ur = Range("B" & Rows.Count).End(xlUp).Row + 10 '(mettiamo 10 righe in più)
If Not Intersect(Target, Range("B2:B" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
End Sub
Si, in D va inserito un altro dato.
|
|
05/12/2019 12:58 | |
>>>effettuando naturalmente il calcolo in C2
Mi stavo chiedendo il significato della frase sopra?
La cella attiva sarà in D, mà in altra cella ci sarà la formula che calcola la percentuale...
Comunque per essere sicuri col copia/incolla di più celle, inserisci la riga sotto prima di Dim ur As Long
If Target.Cells.Count > 1 Then Exit Sub |
| | Post: 2 | Registrato il: 02/01/2012
| Città: RAVENNA | Età: 58 | Utente Junior | Office 2010 | | OFFLINE |
|
05/12/2019 16:47 | |
ABCDEF@Excel, 05/12/2019 12.58:
>>>effettuando naturalmente il calcolo in C2
Mi stavo chiedendo il significato della frase sopra?
La cella attiva sarà in D, mà in altra cella ci sarà la formula che calcola la percentuale...
Comunque per essere sicuri col copia/incolla di più celle, inserisci la riga sotto prima di Dim ur As Long
If Target.Cells.Count > 1 Then Exit Sub
Chiedo scusa,non sono stato molto preciso, le celle in andrò ad inserire manualmente le cifre sono : B - D - F - H - J,è nelle altre che deve rimanere la formula di calcolo..
|
|
05/12/2019 21:48 | |
In tal caso potresti usare Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim ur As Long
ur = Range("B" & Rows.Count).End(xlUp).Row + 10 '(mettiamo 10 righe in più)
If Not Intersect(Target, Range("B2:B" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
If Not Intersect(Target, Range("D2:D" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
If Not Intersect(Target, Range("F2:F" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
If Not Intersect(Target, Range("H2:H" & ur)) Is Nothing Then Target.Offset(0, 2).Activate
End Sub |
|
|