Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

SCRIVI IL NUMERO DELLA RIGA SE ...

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi scanacc » 18/12/20 17:42

In pratica cosa vorrei fare?
Quando POSIZIONO il mouse:
sulla cella B10, vorrei che nella cella J3 comparisse il numero 1
sulla cella B11, vorrei che nella cella J3 comparisse il numero 2
sulla cella B12, vorrei che nella cella J3 comparisse il numero 3
....
e questo fino alla cella B60

Avevo pensato a una macro che riuscisse a capire il numero della riga in cui è posizionato il mouse (almeno nelle celle che vanno da B10 a B59), togliesse 9 e incollasse il risultato in J3.
Ma si può fare? E se SI come?
Grazie per il sicuro aiuto
scanacc
Utente Senior
 
Post: 292
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi Anthony47 » 18/12/20 20:02

Ad esempio:
-tasto dx sul tab col nome del tuo foglio di lavoro, scegli Visualizza codice; copia questo codice e incollalo nel frame di dx dell'editor vba cosi' aperto:
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CkArea As String
'
CkArea = "B10:B59"
If Application.Intersect(Target.Cells(1, 1), Range(CkArea)) Is Nothing Then
    Range("J3").ClearContents
Else
    Range("J3").Value = Target.Cells(1, 1).Row - 9
End If
End Sub

Torna su excel e prova...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi scanacc » 19/12/20 00:51

Perfetto!
Ma quando clicco su una casella qualsiasi che non sia nel range da "B10:B59" va in debug
scanacc
Utente Senior
 
Post: 292
Iscritto il: 06/12/15 10:30

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi Anthony47 » 19/12/20 10:18

Il codice lo hai copiato dal forum e incollato nel tuo vba, o l'hai trascritto?
Copia tutto il tuo codice e incollalo nel tuo prox messaggio

Comunque quale errore viene segnalato, su quale riga?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi scanacc » 26/12/20 23:46

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CkArea As String
'
CkArea = "B10:B59"
If Application.Intersect(Target.Cells(1, 1), Range(CkArea)) Is Nothing Then
    Range("J3").ClearContents
Else
    Range("J3").Value = Target.Cells(1, 1).Row - 9
End If
End Sub


e l'errore che mi da quando mi posiziono in un'altra cella qualsiasi (unita o non) è:
Errore di run-time 1004
Non è possibile eseguire l'operazione in una cella unita!

Mi viene in giallo la riga
Range("J3").ClearContents

BUON NATALEEEEEEEEEEEEEE
scanacc
Utente Senior
 
Post: 292
Iscritto il: 06/12/15 10:30

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi Anthony47 » 27/12/20 00:50

Disunisci J3 e ti troverai bene; poi spiega perche' J3 dovrebbe stare unita e ti spieghero' come scrivere Range("J3").MergeArea.ClearContents :D
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi scanacc » 29/12/20 21:33

... e come faccio a fare in modo che se posiziono il mouse in una cella che è al di fuori del range "B10:B59", la macro non fa niente e quindi lascia la cella J3 con il valore che c'è già?
scanacc
Utente Senior
 
Post: 292
Iscritto il: 06/12/15 10:30

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi Anthony47 » 29/12/20 21:41

Metti un "apostrofo" a inizio della riga Range("J3").ClearContents
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: SCRIVI IL NUMERO DELLA RIGA SE ...

Postdi scanacc » 04/01/21 14:40

Perfetto come sempre!
scanacc
Utente Senior
 
Post: 292
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows


Topic correlati a "SCRIVI IL NUMERO DELLA RIGA SE ...":


Chi c’è in linea

Visitano il forum: Nessuno e 43 ospiti