Moderatori: Anthony47, Flash30005
totopc ha scritto:http://rapidshare.com/files/396958891/esempio.xls.html
ti mando questo esempio con la speranza di essermi spiegato bene
totopc ha scritto:al posto di andare sempre nel menu trova per cercare qualcosa non e che si potrebbe creare un sistema sul foglio excel dove io scriva le iniziali di un nome e mi trovi quello che voglio ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$H$8" Then Exit Sub
Call Cerca
End Sub
Sub Cerca()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
StrN = Len([C8])
For RR = 1 To UR
If Mid(Range("A" & RR).Value, 1, StrN) = [C8] Then
Range("A" & RR).Select
GoTo esci
End If
Next RR
esci:
End Sub
totopc ha scritto:hai ragione
ottimo
ma io non sono ferrato con excel
pero se la chiudo va via
non ce un sistema per tenerla fissa sul foglio ?
Sub MOSTRA_TROVAESOSTITUISCI()
'Cerca la barra Standard
NCB = Application.CommandBars.Count
For CBID = 1 To NCB
If Application.CommandBars(CBID).Name = "Standard" Then Exit For
Next
'Cerca il pulsante Trova
NCTR = Application.CommandBars(CBID).Controls.Count
For CTRID = 1 To NCTR
If CommandBars(CBID).Controls(CTRID).Caption = "&Trova..." Then Exit For
Next
'Lancia la funzione Trova
If CTRID > NCTR Then
A = MsgBox("Controllo Trova... NON TROVATO!", vbOKOnly + vbExclamation)
GoTo FINE
End If
Application.CommandBars(CBID).Controls(CTRID).Execute
Application.CommandBars(CBID).Controls(CTRID).Visible = True
FINE:
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call MOSTRA_TROVAESOSTITUISCI
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: marcoc e 59 ospiti