Excel Forum

	Soluzioni Excel Domande e Risposte
		Inserimento in una cella

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Inserimento in una cella

Ultimo Aggiornamento: 05/12/2019 21:48

Post: 1

Registrato il: 02/01/2012

Città: RAVENNA

Età: 58

Utente Junior

Office 2010

OFFLINE

04/12/2019 12:10

00#1

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

Download (21 KB)

[Modificato da gabonik46 04/12/2019 12:14]

ABCDEF@Excel

04/12/2019 15:02

00#2

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

00#3

Re:

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.

ABCDEF@Excel

05/12/2019 12:58

00#4

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

00#5

Re:

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

ABCDEF@Excel

05/12/2019 21:48

00#6

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