Question : Aide de VBA

Bonjour, le

I AM using le code joint pour filtrer 2 listboxes excellent dedans.  Cela a fonctionné pour moi avant, mais maintenant, il ne filtrera pas et ne montrera pas les résultats dans la feuille de travail de « analyse ».  Il montrera seulement l'ensemble de données complet.  Quelles modifications est-ce que je dois apporter de sorte que le code filtre mon ensemble de données ? class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
>Private " de l'id= " codeSnippet763134 de 
 1 puis ws2.UsedRange.Clear
ws1. [A1 : AX1]. Destination de copie : =ws2. [A16]

Placer le rng = le ws1.Range (ws1. [A17], ws1.Cells (ws1.Rows.Count, « A »). Extrémité (xlUp))

Pour chaque cel dans le rng
  Si UCase (sList1) = "" ou InStr (sList1, « | » et cel. Valeur et « |") <> 0 puis
     Si UCase (sList2) = "" ou InStr (sList2, « | » et cel. Excentrage (0, 1).Value et « |") <> 0 puis
  cel. Remettre à la côte (1, 50). Destination de copie : =ws2.Cells (ws2.Rows.Count, « A »). Extrémité (xlUp). Excentrage (1)
     Finir si
  Finir si
Prochain cel

Me décharger

Application.ScreenUpdating = rectifient

Sous-marin d'extrémité

Sous-marin privé CommandButton4_Click ()
Me décharger
Finir le sous-marin

Sous-marin privé UserForm1_Initialize ()
ListBox1.Selected (0) = rectifient
ListBox2.Selected (0) = rectifient

Sous-marin d'extrémité
class= de

Réponse : Aide de VBA

Je pense que votre code copie toutes les rangées en raison de la structure de Th du « si » des clauses ci-dessous :

Pour chaque cel dans le rng
  Si UCase (sList1) = "" ou InStr (sList1, « | » et cel. Valeur et « |") <> 0 puis
     Si UCase (sList2) = "" ou InStr (sList2, « | » et cel. Excentrage (0, 1).Value et « |") <> 0 puis
  cel. Remettre à la côte (1, 50). Destination de copie : =ws2.Cells (ws2.Rows.Count, « A »). Extrémité (xlUp). Excentrage (1)
     Finir si
  Finir si
Prochain cel

En effet le premier « si » sélections la rangée pour copier le L'UN OU L'AUTRE si slist1 est blanc, ou s'il y a une allumette. La seconde « si » fait la même chose pour slist2.

Est ma conjecture ci-dessous ce que vous avez prévu étiez quelque chose comme le code :
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :

Pour chaque cel dans le rng
  'si slist1 est blanc, le contrôle slist2 :
  Si UCase (sList1) = "" alors
     S'InStr (sList2, « | » et cel. Excentrage (0, 1).Value et « |") <> 0 puis
     cel. Remettre à la côte (1, 50). Destination de copie : =ws2.Cells (ws2.Rows.Count, « A »). Extrémité (xlUp). Excentrage (1)
     finir si
  autrement
  'si slist1 n'est pas contrôle blanc pour l'allumette dans slist1
     s'InStr (sList1, « | » et cel. Valeur et « |") <> 0 puis
     cel. Remettre à la côte (1, 50). Destination de copie : =ws2.Cells (ws2.Rows.Count, « A »). Extrémité (xlUp). Excentrage (1)
     finir si
finir si

Prochain cel
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us