Buongiorno, vi chiedo se c'è modo di poter evidenziare una cella nel momento in cui viene selezionata tramite la ricerca sulla funzione "trova e seleziona" con un lettore scanner. Grazie

Question

Buongiorno, vi chiedo se c'è modo di poter evidenziare una cella nel momento in cui viene selezionata tramite la ricerca sulla funzione "trova e seleziona" con un lettore scanner.

Grazie

Answer 1

Ciao Daniele,

Ti ringrazio Norman, credo tu sia arrivato a soddisfare la mia richiesta.

Grazie davvero di cuore.

Ti auguro una buona giornata,

Un caro saluto,

Mi fa piacere che il codice ti sia stato utile e ti ringrazio per il cortese riscontro.

Per chiudere questa discussione, ti chiederei gentilmente di contrassegnare l'ultimo codice.

===

Regards,

Norman

Answer 2

Ciao Daniele,

https://onedrive.live.com/edit.aspx?resid=9E2FD84FDBAE1A2E!715&cid=9e2fd84fdbae1a2e&CT=1677566917739&OR=ItemsView Buongiorno, provo a condivedere nuovamente il file con un'altra estensione.

Purtroppo anche questo link non funziona per me 😊

Puoi inviarmi il file in privato utilizzando l'indirizzo email decifrabile che troverai cliccando sul mio profilo.

L'ultima versione che mi hai inviato non evidenziava la cella.

Quel codice evidenzia le celle in risposta all'inserimento di dati piuttosto che alla loro selezione. Per rispondere alla selezione di celle e limitare tale risposta alla tua colonna EAN, sostituisci quel codice con:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range, Rng2 As Range, rCell As Range 

Const sColonna\_EAN  As String = **"B:B"                 '<<=== Modifica** 

Set Rng = Me.Range(sColonna\_EAN) 

Set Rng2 = Intersect(Rng, Target) 

If Not Rng2 Is Nothing Then 

  Rng2.Interior.Color = vbYellow 

End If 

End Sub

'<<========

Ho aggiornato il mio file di prova Daniele20230227.xlsm

===

Regards,

Norman

Answer 3

Ciao Daniele,

prima di tutto ti ringrazio per aver risposto al mio quesito.

Dato che non grande dimistichezza con l'informatica ho scaricato direttamente il file che mi hai inviato te ed effettivamente il file si evidenzia . Il problema è che poi , al momento che cambio riga l'evidenziatura va via invece a me serve che rimanga.

Allora, sostituisci il codice precedente con:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Cells(1).Interior.Color = vbYellow 

End Sub

'<<========

Ho aggiornato il mio file di prova Daniele20230227.xlsm

===

Regards,

Norman

Answer 4

prima di tutto ti ringrazio per aver risposto al mio quesito.

Dato che non grande dimistichezza con l'informatica ho scaricato direttamente il file che mi hai inviato te ed effettivamente il file si evidenzia . Il problema è che poi , al momento che cambio riga l'evidenziatura va via invece a me serve che rimanga.

Answer 5

Ciao Daniele,

Buongiorno, vi chiedo se c'è modo di poter evidenziare una cella nel momento in cui viene selezionata tramite la ricerca sulla funzione "trova e seleziona" con un lettore scanner.

Non possiedo uno scanner ma prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static oLastRng As Range

On Error Resume Next

Target.Interior.Color = vbYellow

oLastRng.Interior.ColorIndex = xlColorIndexNone

Set oLastRng = Target 

End Sub

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm

Potresti scaricare il mio file di prova Daniele20230227.xlsm

===

Regards,

Norman