Previous page | 1 | Next page
Facebook  

Ricerca cella su altro foglio dopo selezione su doubleclick

Last Update: 6/5/2019 11:13 AM
Author
Print | Email Notification    
Post: 1
Registered in: 5/6/2019
Location: ROMA
Age: 55
Junior User
2016
OFFLINE
6/4/2019 12:41 PM
 
Modify
 
Delete
 
Quote

Buongiorno a tutti,
sono nuovo del forum e neofita per quanto rigurda non tanto l'utilizzo di excel ma dello svilluppo in VBA.
Vi ringrazio anticipatamente per tutti i suggerimenti che fornite sul forum e che trovo estremamente utili
sia come suggeriemnti che come effettive soluzioni.
Vorrei sottoporVi un problema che non riesco a risolvere, ovviamente per mia carenza,
Nel file allegato "Foglio1" ho creato delle celle riassuntive di argomenti che con attivazione su double click
vorrei rimandare al "Foglio2" che contiene info più di dettaglio dei diversi argomenti.
Ho provato diverse soluzioni (dopo aver configurato il double click) dal cell.find al goto ActiveWorkbook.Sheets etc. e sicuramente non riesco
a far prendere la variabile per la ricerca.
Le celle di partenza contengono info testo.
Un vostro aiuto sarebbe veramente gradito.
Grazie in anticipo.
Un saluto
Gigadipa
Menu veloce porta su altro sitoTestimoni di Geova Online...altro10/11/2019 6:23 PM by Amalia 52
Data una colonna di numeri (0 ed 1), contare quanti 1 ci sono dopo ogni sequenza di numeri ben definitadopo9/20/2019 9:53 AM by Melissa2018
Ricerca parole del Forum su googleAnkie & Friends - L&#...ricerca10/4/2019 9:00 PM by anklelock89
Post: 3,777
Registered in: 6/28/2011
Location: BINASCO
Age: 66
Master User
2007
OFFLINE
6/4/2019 5:27 PM
 
Modify
 
Delete
 
Quote

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rr As Long, Rg As Object, Msg As String
Msg = Target.Offset(0, 0)
If Not Intersect(Target, Range("A2:A4, C2:C4, E2:E4")) Is Nothing Then
If Msg = "" Then Exit Sub
Set Rg = Sheets("Foglio2").Range("A1:A1000").Find(Msg, LookIn:=xlValues, LookAt:=xlWhole)
    If Rg Is Nothing Then
        MsgBox "nessuna corrispondenza"
    Else
        r = Rg.Row
        MsgBox Sheets("Foglio2").Cells(r, 1) & " " & Sheets("Foglio2").Cells(r, 2) & " " & Sheets("Foglio2").Cells(r, 3)
    End If
End If
Set Rg = Nothing
End Sub
------------------------------------
Un saluto Excel 2007 (se riesco capire il 2013)
Post: 1
Registered in: 5/6/2019
Location: ROMA
Age: 55
Junior User
2016
OFFLINE
6/5/2019 8:43 AM
 
Modify
 
Delete
 
Quote

Grazie Raffaele, della risposta tempestiva.
Provo subito e ti faccio sapere.
Grazie
Un saluto
Stefano
Post: 2
Registered in: 5/6/2019
Location: ROMA
Age: 55
Junior User
2016
OFFLINE
6/5/2019 11:13 AM
 
Modify
 
Delete
 
Quote

Buongiorno Raffaele,
grazie per il supporto funziona perfettamente e mi ha molto aiutato anche a capire l'impostazione variabili.
Ho inoltre inserito un campo (colonna 4) in più nella visualizzazione msgBox finale così ho prewiew completa di descrizione sintetica e poi anche il rimando diretto al foglio2 (da cella selezionata) così ho tutte le info aggiuntive necessarie.
Allego la modifica fatta per condivisione:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rr As Long, Rg As Object, Msg As String
Msg = Target.Offset(0, 0)
If Not Intersect(Target, Range("A2:A4, C2:C4, E2:E4")) Is Nothing Then
If Msg = "" Then Exit Sub
Set Rg = Sheets("Foglio2").Range("A1:A1000").Find(Msg, LookIn:=xlValues, LookAt:=xlWhole)
If Rg Is Nothing Then
MsgBox "nessuna corrispondenza"
Else
r = Rg.Row
MsgBox Sheets("Foglio2").Cells(r, 1) & " " & Sheets("Foglio2").Cells(r, 2) & " " & Sheets("Foglio2").Cells(r, 3) & " " & Sheets("Foglio2").Cells(r, 4)
Application.Goto ActiveWorkbook.Sheets("Foglio2").Cells(r, 1)

End If
End If
Set Rg = Nothing
End Sub


Grazie mille
Un saluto
Stefano
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 5:19 PM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com