Excel Forum

	Soluzioni Excel Domande e Risposte
		Inserisci valore X da coordinate

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Inserisci valore X da coordinate

Ultimo Aggiornamento: 02/09/2019 16:44

Mary-92

Post: 124

Registrato il: 06/07/2016

Città: BOLZANO

Età: 31

Utente Junior

2010

OFFLINE

02/09/2019 15:15

00#1

Ciao a tutti
qualcuno mi potrebbe per favore aiutare a completare questo file ?

cliccando una cella all’interno del range D6:O11 del foglio 1 la macro contenuta riporta i rispettivi valori di riga e colonna nelle celle D20 e K7 del foglio2

avrei bisogno,che allo stesso tempo , il valore presente nella cella A3 del (foglio 1 )venga inserito nella tabella del foglio 2 nella cella dove si incontrano le coordinate

ESEMPIO: al click sulla cella F9 del foglio 1 la macro possa inserire anche il valore contenuto nella cella A3 (foglio 1) in questo caso “ciao” nella cella H10 (foglio 2)

Grazie, saluti
Marilena

Download (17 KB)

dodo47

Post: 2.359

Registrato il: 06/04/2013

Utente Veteran

2010

OFFLINE

02/09/2019 16:07

00#2

ciao
sei sicura che nell'esempio va in H10 e non in G11?

Domenico
Win 10 - Excel 2016

Marius44

Post: 718

Registrato il: 24/06/2015

Città: CATANIA

Età: 80

Utente Senior

Excel2019

OFFLINE

02/09/2019 16:16

00#3

Ciao
Sostituisci la tua macro con questa (è la stessa implementata)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D6:O11")) Is Nothing Then
  Sheets("Foglio2").Range("k7") = Sheets("Foglio1").Cells(Target.Row, 3)
  Sheets("Foglio2").Range("d20") = Sheets("Foglio1").Cells(5, Target.Column)
  
  Sheets("Foglio2").Range("E8:J19").ClearContents
  rg = Application.Match(Sheets("Foglio2").Range("d20"), Sheets("Foglio2").Range("D8:D19"), 0) + 7
  cn = Application.Match(Sheets("Foglio2").Range("k7"), Sheets("Foglio2").Range("E7:J7"), 0) + 4
  Sheets("Foglio2").Cells(rg, cn) = Sheets("Foglio1").Range("A3")
  Sheets("Foglio2").Select
 End If

 
 End Sub

Ciao,
Mario

Mary-92

Post: 124

Registrato il: 06/07/2016

Città: BOLZANO

Età: 31

Utente Junior

2010

OFFLINE