Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

userform di ricerca con più dati uguali EXCEL

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

userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 03/03/14 16:39

scusate h ocercato ma non sono riuscito a far coincidere quanto trovato con il mio caso..
il mio problema è che ho creato un userform di ricerca per un dato specifico nella colonna "N" e in automatico compila le test box relative ai campi di cui ho bisogno..solo che se ad esempio nella colonna N ho due dati uguali me ne trova uno solo..come posso fare o cosa devo aggiungere al codice sotto riportato per far si che mi esca un messaggio o qualche altra cosa che mi facciapresente che ci sono più dati associati a quel valore? oppure in alternativa un ulteriore texbox o una casella di controllo che mi dice che ci sono più dati collegati a quello della colonna N trovato...
ecco il codice confido nella vs. professionalità !! grazie in anticipo

Codice: Seleziona tutto
Option Explicit

Private wk As Workbook
Private sh As Worksheet

Private Sub Frame1_Click()

End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Initialize()
   
   
    Dim lUltRiga As Long
    Dim lng As Long
    Set wk = ThisWorkbook
  With wk
        Set sh = .Worksheets("Riepilogo")
    End With
   
End Sub

Private Sub CommandButton1_Click()
    Call mCerca(Me.TextBox1.Text)
End Sub


Private Sub mCerca(ByVal vValore As Variant)

    Dim rng As Range
       
    With sh
       
       
        Set rng = _
            .Range("n:n").Find( _
                What:=vValore, _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlRows, _
                SearchDirection:=xlNext, _
                MatchCase:=True)
               
    End With
   
 
    If rng Is Nothing Then

        MsgBox "Nessun contratto Associato"
   
        Me.TextBox2.Text = ""
    Else
       
        Me.TextBox2.Text = _
            rng.Offset(0, -7).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox3.Text = ""
    Else
       
        Me.TextBox3.Text = _
            rng.Offset(0, -8).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox4.Text = ""
    Else
     
        Me.TextBox4.Text = _
            rng.Offset(0, -9).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox5.Text = ""
    Else
       
        Me.TextBox5.Text = _
            rng.Offset(0, 5).Value
    End If
    If rng Is Nothing Then
     
        Me.TextBox6.Text = ""
    Else
       
        Me.TextBox6.Text = _
            rng.Offset(0, 4).Value
    End If
    If rng Is Nothing Then
     
        Me.TextBox7.Text = ""
    Else
       
        Me.TextBox7.Text = _
            rng.Offset(0, -5).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox8.Text = ""
    Else
     
        Me.TextBox8.Text = _
            rng.Offset(0, -6).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox9.Text = ""
    Else
       
        Me.TextBox9.Text = _
            rng.Offset(0, -2).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox10.Text = ""
    Else
     
        Me.TextBox10.Text = _
            rng.Offset(0, -3).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox11.Text = ""
    Else
       
        Me.TextBox11.Text = _
            rng.Offset(0, 2).Value
    End If
    If rng Is Nothing Then
       
        Me.TextBox12.Text = ""
    Else
       
        Me.TextBox12.Text = _
            rng.Offset(0, -1).Value
    End If
   
    Set rng = Nothing
   
End Sub


Private Sub UserForm_Terminate()
   
    Set sh = Nothing
    Set wk = Nothing
End Sub


EDIT Flash ore 23:15 - Inserito l'intero codice nell'apposito Tag Code
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Sponsor
 

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 04/03/14 00:24

Ciao.
Puoi risolvere usando FindNext; una possibile soluzione
Codice: Seleziona tutto
Private Sub mCerca(ByVal vValore As Variant)
Dim rng As Range, I As Long, msg As String
Dim rColl As Collection
    Set rColl = New Collection
    With sh.Range("n:n")
        Set rng = .Find( _
                What:=vValore, _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlRows, _
                SearchDirection:=xlNext, _
                MatchCase:=True)
        If Not rng Is Nothing Then
            primo = rng.Address
            Do
                rColl.Add rng
                Set rng = .FindNext
                If Not rng Is Nothing Then
                    secondo = rng.Address
                End If
            Loop Until (rng Is Nothing) Or (primo = secondo)
            If rColl.Count = 1 Then
                For I = 2 To 12
                    Set rng = rColl(I)
                    Me.Controls ("TextBox" & I), Text = rng.Offset(0, -5 - I).Value
                Next I
            Else
                msg = "indirizzi delle corrispondenze trovale:" & vbCrLf
                For I = 1 To rColl.Count
                    Set rng = rColl(I)
                    msg = vbTab & "Cella " & rng.Address & vbCrLf
                Next I
                MsgBox msg, vbExclamation
            End If
        Else
            MsgBox "Nessun contratto Associato"
            For I = 2 To 12
                Me.Controls ("TextBox" & I), Text = ""
            Next I
        End If
    End With
    Set rng = Nothing
    Set rColl = Nothing
End Sub

Se vengono trovati più valori, viene visualizzata una MsgBox con i valori elencati.
E' solo un esempio, e devi decidere cosa vuoi fare coi valori duplicati...
Tieni presente comunque che ho scrittoil codice a memoria senza poterlo eseguire, potrebbero esserci degli errori.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 04/03/14 10:42

mmm..mi dà un errore qui:
primo = rng.Address
dice variabiel non definita....
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi ricky53 » 04/03/14 12:04

Ciao,
leggi l'ultima frase di 0°K
Tieni presente comunque che ho scrittoil codice a memoria senza poterlo eseguire, potrebbero esserci degli errori.


Definisci le variabili mancanti e riprova, se ne trovi altre definiscile in
Codice: Seleziona tutto
Dim rng As Range, I As Long, msg As String, tutte le variabili mancanti
e ... alla fine ne uscirai.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 04/03/14 17:22

Tieni presente comunque che ho scritto il codice a memoria senza poterlo eseguire, potrebbero esserci degli errori.

Chiedo scusa a donbadi ; moltissimi errori, in realtà.
Ecco la versione "riveduta e corretta"
Codice: Seleziona tutto
Private Sub mCerca(ByVal vValore As Variant)
Dim rng As Range, I As Long, msg As String, primo As String, secondo As String
Dim rColl As Collection
Dim sh As Worksheet
    Set rColl = New Collection
    Set sh = Foglio1
    With sh.Range("n:n")
        Set rng = .Find( _
                What:=vValore, _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlRows, _
                SearchDirection:=xlNext, _
                MatchCase:=True)
        If Not rng Is Nothing Then
            primo = rng.Address
            Do
                rColl.Add rng
                Set rng = .FindNext(rng)
                If Not rng Is Nothing Then
                    secondo = rng.Address
                End If
            Loop Until (rng Is Nothing) Or (primo = secondo)
            If rColl.Count = 1 Then
                Set rng = rColl(1)
                Me.TextBox2.Text = rng.Offset(0, -7).Value
                Me.TextBox3.Text = rng.Offset(0, -8).Value
                Me.TextBox4.Text = rng.Offset(0, -9).Value
                Me.TextBox5.Text = rng.Offset(0, 5).Value
                Me.TextBox6.Text = rng.Offset(0, 4).Value
                Me.TextBox7.Text = rng.Offset(0, -5).Value
                Me.TextBox8.Text = rng.Offset(0, -6).Value
                Me.TextBox9.Text = rng.Offset(0, -2).Value
                Me.TextBox10.Text = rng.Offset(0, -3).Value
                Me.TextBox11.Text = rng.Offset(0, 2).Value
                Me.TextBox12.Text = rng.Offset(0, -1).Value
            Else
                msg = "indirizzi delle corrispondenze trovale:" & vbCrLf
                For I = 1 To rColl.Count
                    Set rng = rColl(I)
                    msg = msg & vbTab & "Cella " & rng.Address & vbCrLf
                Next I
                MsgBox msg, vbExclamation
            End If
        Else
            MsgBox "Nessun contratto Associato"
            For I = 2 To 12
                Me.Controls("TextBox" & I).Text = ""
            Next I
        End If
    End With
    Set rng = Nothing
    Set rColl = Nothing
    Set sh = Nothing
End Sub
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 06/03/14 09:38

grazie...funziona ma c'è un ma..purtroppo...a questo punto dopo che mi ha detto che ce ne sono più di uno e dove sono..dovrei poter scegliere uno dei due...ora provo a trovare uan soluzione partendo da quanto mi avete detto..se ho problemi però mi tocca rompervi le scatole ehehehehehe grazie ancora
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi Anthony47 » 06/03/14 10:10

Allora devi ricorrere a uno strumento piu' sofisticato del textbox, ad esempio puoi usare un ListBox multicolonne: lo disegni sull form, imposti tra le proprieta' il numero di colonne e il rowsource, ed e' pronto; nel tuo caso i dati row non sono fissi ma sono da creare, quindi la cosa e' piu' articolata.
Per cominciare guarda questa discussione: viewtopic.php?f=26&t=93824 ti dara' qualche spunto di base.
E quando sei pronto per domande specifiche siamo (in tanti) qui...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 06/03/14 10:42

Io in casi analoghi uso questa soluzione: utilizzo una collection per memorizzare i valori multipli (rColl in questo caso) e, nel caso ci siano più valori, faccio apparire una piccola userform con la sua listbox, che mi visualizza i risultati e mi permette di selezionare quello che voglio.
Se ti piace l'idea, posso farti vedere come farei.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 06/03/14 10:50

@zero kelvin te ne sarei molto grato perchè stò impazzendo..non riesco a collegare quell oche hai detto al codice...eheeheh
attendo!!!
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 06/03/14 18:51

Per sistemare un pò le cose, mi serve sapere la colonna in cui cominciano i dati e di quante colonne è composta la tua tabella di dati. Se poi tu potessi allegare un file di esempio, privo di dati sensibili, su cui lavorare, sarebbe molto meglio.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 07/03/14 14:12

al momento non ho il fiel sottomano...
...i dati cominciano dalla colonna "N" ossia quella dei seriali dei prodotti per i quali faccio la ricerca e mi serve sapere se ci sono più contratti associati colonna "E"(valore -9 text box 4 ) se riesco ti allego il file appena posso...
tutti gli altri dati che riempiono le colonen sono a scalare partendo dalal colonna N ...spero che per il momento questo possa darti un idea...
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 07/03/14 17:16

Qui trovi un file di esempio:elenco2.xlsb
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 08/03/14 22:40

funziona e crredo di poterlo adattare al mio caso..solo che se seleziono il primo risultato che esce fuori mi dà errore 9 e mi evidenzia questa riga " Set rng = fSelezione.Seleziona(rColl) " .
se invece seleziono altre righe si compilano le testbox...
p.s. piccoal domanda flash...ho creato una macro che mi crera in automatico un commento di cella su una determinata cella e funziona (con stupore :D :D :D ) solo che visto che il commento è bello corposo devo sempre andare a modificarlo a mano ..non c'è un modo per farlo uscire già in automatico più grande...ho provato con .autosize ma non cambia nulla ..ho provato con start=...niente...sapete darmi aiuto?^ :?:
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi Zer0Kelvin » 08/03/14 23:28

C'è un errore nel codice della form che mostra i risultati (che tra l'altro mi sembrava di aver corretto :-? )
Codice: Seleziona tutto
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Result = Me.ListBox1.ListIndex
    Me.Hide
End Sub
avrebbe dovuto essere
Codice: Seleziona tutto
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Result = Me.ListBox1.ListIndex +1
    Me.Hide
End Sub

Quanto al quesito "flash", non è così rapido come potrebbe sembrare, almeno per mè; io non sono in grado di risponderti.
Magari ....Flash? :D :D :D
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 20/03/14 09:29

scusa il ritardo ma è doveroso ringraziarti/vi per l'aiuto che mi avete dato...
colgo l'occasione per risolvere anche l'ultimo problemino flash scritto poco sopra...ho risolto facendo così:
Codice: Seleziona tutto
Range("E100").End(xlUp).Offset(0, 0).Select
Selection.AddComment
Selection.Comment.Visible = False
Selection.Comment.AutoSize = False
Selection.Comment.Shape.ScaleWidth 4.1, msoFalse, msoScaleFromTopLeft
Selection.Comment.Shape.ScaleHeight 4.1, msoFalse, msoScaleFromTopLeft
Selection.Comment.Text Text:=TextBox12.Text
With Selection.Comment.Shape.TextFrame.Characters.Font
            .Name = "Trebuchet MS"
            .Size = 9
           
           
           
          End With

così il mio commento è bello è sistemato come mi serve!!! :D :D :D
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 24/03/14 11:52

@ZeroKelvin
donbadi ha scritto:approfitto della tua gentilezza..eheheh
in merito al file che hai postato in questa discussione:
viewtopic.php?f=26&t=101451
ti volevo chiedere come fare a popolare la listbox che esce fuori con il doppio dato con altri campi presi dalle altre colonne
nello specifico
Codice: Seleziona tutto
Option Explicit

Private Result As Long

Public Function Seleziona(rngColl As Collection, Optional nColonne As Long = 1) As Range
Dim i As Long
    Set Seleziona = Nothing
    Me.ListBox1.Clear
    For i = 1 To rngColl.Count
        Me.ListBox1.AddItem rngColl.Item(i)
    Next i
    Me.Show
    If Result <> -1 Then Set Seleziona = rngColl.Item(Result)
End Function

Private Sub CommandButton1_Click()
    Result = -1
    Me.Hide
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Result = Me.ListBox1.ListIndex
    Me.Hide
End Sub

Private Sub UserForm_Activate()
    Result = -1
End Sub


vorrei che oltre al dato che esce fuori dalla ricerca se ci sono più risultati mi mettesse in colonna anche altri dati presi dalle colonne vicine...spero di essere stato abbastanza chiaro
grazie in anticipo
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 27/03/14 09:38

uppettino...
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 27/03/14 11:13

..stò diventando grullo... :eeh: :eeh: :eeh: non mi riesce popolare la list box una volta che ho un valore doppio...cioè...non mi riesce far comparire in colonna a fianco del risultato doppio trovato tutti gli altri dati per poterlo identificare..
partendo dal file di esempio postato da zer0K se metto pippo mi esce la list box con tutti i i pippo trovati e fin qui bene..ora non mi riesce far comparire al fianco di quel pippo anche i dati di riferimento per poterlo identificare..ho provato ad intervenire qui..
Codice: Seleziona tutto
Public Function Seleziona(rngColl As Collection, Optional nColonne As Long = 1) As Range
Dim i As Long
    Set Seleziona = Nothing
    Me.ListBox1.Clear
    For i = 1 To rngColl.Count
        Me.ListBox1.AddItem rngColl.Item(i)
      With Me.ListBox1
        .ColumnCount = 6
    End With
       
    Next i
    Me.Show
    If Result <> -1 Then Set Seleziona = rngColl.Item(Result)
End Function

ma quello che riesco a tirare fuori me lo prende come unico dato e non per tutti i risultati usciti...maremma che confusione...sono ad un passo dall'abbandonare...
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Re: userform di ricerca con più dati uguali EXCEL

Postdi Anthony47 » 27/03/14 16:01

Te l' avevo detto di usare una listbox...
Vai nel vba editor, Menu /Inserisci /Userform
Disegna una userform come questa
Immagine
image hosting
In alto c' e' un Textbox (Textbox1) con una sua label descrittiva; accanto un Pulsante (CommandButton1) per la ricerca del codice (oggetto di questo messaggio), e un altro pulsante (CommandButton2) che serve a fare qualcosa col codice che poi sceglierai.
Il grosso e' costituito da una ListBox (casella di riepilogo).
Premi F7, e inserisci questo codice:
Codice: Seleziona tutto
Private Sub CommandButton1_Click()
Dim I As Long, J As Long
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = 10
Me.ListBox1.ColumnHeads = True
For I = 1 To Cells(Rows.Count, "N").End(xlUp).Row
    If Cells(I, "N") = Me.TextBox1.Text Then
        Me.ListBox1.AddItem (Cells(I, "N").Value)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = I
        For J = 2 To 9
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, J - 0) = Cells(I, J)
        Next J
    End If
Next I
End Sub


Su un modulo standard inserisci una macro dl tipo
Codice: Seleziona tutto
Sub Cerca ()
    UserForm2.Show
End Sub

(la mia userform si chiama Userform2; se nel tuo esempio si chiama diversamente aggiorna la macro)
Associala a un pulsante sul foglio che contiene il tuo elenco.

A questo punto se lanci la userform potrai scrivere nel textbox1 il codice da cercare e poi premere il pulsante "Cerca codice". Il risultato sara' del tipo:
Immagine
hosting immagini
Il listbox ha un limite di 10 colonne; uso la prima per il codice, la seconda per IL NUMERO della RIGA su cui il codice e' presente, e le altre 8 colonne per le prime 8 colonne del tuo foglio; volendo puoi ovviamente riportare altre informazioni piu' significative.

Seleziona nel listbox la riga che ti interessa e premi il Pulsante Scegli Selezionato.
Nella macro di questo pulsante dovrai fare quello che ti serve; io mi limito a dirti che con queste istruzioni potrai leggere (dalla colonna B del listbox) la riga dell' informazione prescelta, memorizzandola nella variabie "xxx":
Codice: Seleziona tutto
Private Sub CommandButton2_Click()
If Me.ListBox1.ListIndex > 0 Then
    xxx = ListBox1.List(Me.ListBox1.ListIndex, 1)
Else
    MsgBox ("Nessuna selezione.. Riprova")
    Exit Sub
End If
'
'QUI LE ALTRE ISTRUZIONI PER MANIPOLARE I DATI PRESCELTI, CHE SONO NELLA RIGA XXX
'
End Sub


Prova e fai sapere dove arrivi...
Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: userform di ricerca con più dati uguali EXCEL

Postdi donbadi » 28/03/14 17:51

grazie per la dritta...ci stò smanettando ...compare ciò che voglio che compaia ....ma come al solito c'è un ma dato dalal mia inesperienza...
al doppio clik sul risultato ottenuto vorrei che mi si popolassero le textbox ma per il momento non ci stò riuscendo...lavoro in parallelo con il lavoro di zer0 kelvin e con il tuo...dove riuscirò...solo dio lo sà..grazie per il momento antony...
@zero se passi di qui e riesci a svelarmi l'arcano illustrato qualche post più sù te ne sarei grato...
office 2003
donbadi
Utente Junior
 
Post: 24
Iscritto il: 21/02/14 14:49

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "userform di ricerca con più dati uguali EXCEL":


Chi c’è in linea

Visitano il forum: Nessuno e 20 ospiti