Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 22-02-2018, 07.43.47   #1
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Ricerca di un Determnato dato e copiare L'intera riga di dati da un altra parte del

Ciao a Tutti mi chiamo Maurizio
E il mio Problema e questo : Sul Foglio1 sto tentando di creare un mio Database e fin qui tutto bene.
Il Problema viene fuori quando attraverso una ListBox inserita in un Userform dovrebbe ricercare il nome ho il cognome che sia di un determinato cliente.
però se lascio inserito solo le prime tre voci mi coordina il tutto in modo perfetto ; E mi copia i dati provati nella Riga (J2) in poi.
Al contrario però : Se tento di estendere a tutto il resto del Database la mia procedura continua ad impallarsi.

In poche parole Vorrei che tutte le volte che trova un dato desiderato e faccio click su di esso , mi possa andare a copiare tutto il suo report a partire dalla Cella J2 in poi Grazie
La mia Procedura e questa :

Codice:
Option Compare Text

Private Sub CmdCerca_Click()

' ricerca per Cognome o nome

Dim ric As String
ric = TextBox1.Text
Call cerca(ric)
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Label2_Click()

End Sub

Private Sub ListBox1_Click()

' inserisce nelle celle il valore della listbox selezionato

    rig = ListBox1.ListIndex
    Cells(2, 10) = ListBox1.List(rig, 0)
    Cells(2, 11) = ListBox1.List(rig, 1)
    Cells(2, 12) = ListBox1.List(rig, 2)
    Cells(2, 13) = ListBox1.List(rig, 3)
    Cells(2, 13) = ListBox1.List(rig, 4)
    Cells(2, 13) = ListBox1.List(rig, 5)
    Unload UserForm1
End Sub

Function cerca(Optional ric As String) As Integer

uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If OptionButton1.Value = True Then cln = 1 Else cln = 5
a = 0
'ListBox1.Clear

For i = 4 To uRg
    If Cells(i, cln) Like ric Then
        ListBox1.Visible = True
        ListBox1.AddItem Cells(i, 1).Text
        ListBox1.List(a, 1) = Cells(i, 2).Text
        ListBox1.List(a, 2) = Cells(i, 3).Text
        ListBox1.List(a, 3) = Cells(i, 4).Text
        ListBox1.List(a, 4) = Cells(i, 5).Text
        ListBox1.List(a, 5) = Cells(i, 6).Text
        a = a + 1
    End If
Next i
End Function
Files allegati
Tipo file: zip Database_Maury.zip (18,8 Kb, 1 visite)
A.Maurizio non è collegato   Rispondi citando
Vecchio 23-02-2018, 21.54.11   #2
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Ricerca di un Determnato dato e copiare L'intera riga di dati da un altra parte

....... Non capisco .... non potrà mai funzionare.
Concettualmente è errato agire in questo modo, quando apri la form il ListBox non si vede, (proprietà visible = false ....... ) poi si devono considerare i doppioni e .....

ci sono molti metodi per cercare una frase in un range, hai scelto quello più ingarbugliato...per esempio prova questo codice

Codice:
Sub Trova_Azienda()
Dim Azienda As String
Azienda = InputBox("Inserisci nome Azienda da cercare:")
Set Cerca = Cells.Find(Azienda, ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False) 'devo cercare solo nella colonna dell'aziende che è la I=9
    If Cerca Is Nothing Then
        MsgBox ("Azienda non presente nel databse JPS!")
    Else
        Cerca.Select
        MsgBox ("Azienda trovata in: " & ActiveCell.Address)
    End If
End Sub
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Corso VBA Alexsandra Guide 85 16-11-2016 12.11.51
File criptati e modificati nell'estensione finale con .enc.rtf Andrea60 Virus 160 16-07-2014 22.54.55
copiare dati da un foglio all'altro boozta Office suite 0 02-02-2010 12.28.46

Orario GMT +2. Ora sono le: 00.37.19.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.