Excel VBA – Cerca un altro foglio sulla cella di clic

Sto cercando un modo per get eccellenza per cercare Sheet2 per lo stesso text nella cella che è stato cliccato su Sheet1.

Ad esempio: Sheet2 contiene nomi (colonna A), indirizzi (colonna B) e città (colonna c), mentre Sheet1 contiene un elenco degli stessi nomi (insieme a varie altre informazioni). Per semplicità, tutto quello che mi serve è poter fare clic su un nome su Sheet1 e restituirlo restituire il numero di row dello stesso nome su Sheet2. Visualizzare le informazioni in una casella di messaggi functionrebbe abbastanza bene.

  • File CSV non caricando correttamente in Excel
  • Salvare i valori di affilatore nel foglio di lavoro
  • Immagine di Excel in una cella
  • Quando si legge una colonna di file di Excel, come definire le coordinate delle celle senza select una cella?
  • File senza frontiere e foglio di calcolo di Perl :: ParseExcel
  • C # Excel RTD Server più istanze scolbind tutte le formule su un foglio interrompe le formule dall'altro
  • Qualche idea su come potrei riuscire a far funzionare questo problema? Ho difficoltà a trovare where cominciare.

  • Perché questo programma Excel 2007 VBA non riesce a replicare / assegnare una variabile Range?
  • Script per leggere e confrontare dati Excel
  • La function C # restituisce diversi tipi. Come posso dichiarare il valore restituito? Valutare il valore restituito?
  • Completamente fare riferimento a un foglio di lavoro per nome di codice
  • una serie aggiuntiva viene creata nella tabella in Excel 2011
  • Errore di selezione / cancellazione della gamma VBA
  • One Solution collect form web for “Excel VBA – Cerca un altro foglio sulla cella di clic”

    Inserisci questo codice in Sheet1 (Sheet1):

    sheet1

    Supponendo che i nomi dei fogli siano Sheet1 e Sheet2:

     Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If you select more than one cell, ignore If Target.CountLarge > 1 Then Exit Sub 'If you select a blank cell, ignore If Target.Value = vbNullString Then Exit Sub Dim Finder, ClickRange 'We want the event to fire if you click in column A anywhere Set ClickRange = Sheets("Sheet1").Range("A:A") 'If you click somewhere else, ignore If Intersect(Target, ClickRange) Is Nothing Then Exit Sub 'Look for the value in sheet 2 column A Set Finder = Sheets("Sheet2").Range("A:A").Find(Target.Value, LookAt:=xlWhole) 'If we don't find it, Exit Sub If Finder Is Nothing Then Exit Sub 'To display the row: MsgBox (Finder.Row) 'To Select it: 'If we find it, select sheet 2 and select the cell 'Sheets("Sheet2").Activate 'Finder.Select End Sub 
    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.