Pergunta : Auxílio de VBA

Olá!, o

I am using o código unido para filtrar 2 listboxes prima dentro.  Trabalhou para mim antes, mas agora, não filtrará e não indicará os resultados na folha da “análise”.  Indicará somente a série de dados completa.  Que modificações eu preciso de fazer de modo que o código filtre minha série de dados? class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 notpretty CommandButton3_Click secundários " do class= " do id= " codeSnippet763134 do 
 1 então ws2.UsedRange.Clear
ws1. [A1: AX1]. Destino da cópia: =ws2. [A16]

Ajustar o rng = o ws1.Range (ws1. [A17], ws1.Cells (ws1.Rows.Count, “A”). Extremidade (xlUp))

Para cada cel no rng
  Se UCase (sList1) = "" ou InStr (sList1, “|” & cel. Valor & “|") <> 0 então
     Se UCase (sList2) = "" ou InStr (sList2, “|” & cel. Offset (0, 1). Valor & “|") <> 0 então
  cel. Resize (1, 50). Destino da cópia: =ws2.Cells (ws2.Rows.Count, “A”). Extremidade (xlUp). Offset (1)
     Terminar se
  Terminar se
Cel seguinte

Descarregar-me

Application.ScreenUpdating = retificam

Submarino da extremidade

Submarino confidencial CommandButton4_Click ()
Descarregar-me
Terminar o submarino

Submarino confidencial UserForm1_Initialize ()
ListBox1.Selected (0) = retificam
ListBox2.Selected (0) = retificam

Submarino da extremidade
class= do

Resposta : Auxílio de VBA

Eu penso que seu código está copiando todas as fileiras por causa da estrutura do th do “se” cláusulas abaixo:

Para cada cel no rng
  Se UCase (sList1) = "" ou InStr (sList1, “|” & cel. Valor & “|") <> 0 então
     Se UCase (sList2) = "" ou InStr (sList2, “|” & cel. Offset (0, 1). Valor & “|") <> 0 então
  cel. Resize (1, 50). Destino da cópia: =ws2.Cells (ws2.Rows.Count, “A”). Extremidade (xlUp). Offset (1)
     Terminar se
  Terminar se
Cel seguinte

De fato o primeiro “se” picaretas a fileira para copiar o UM OU OUTRO se slist1 é em branco, ou se há um fósforo. O segundo “se” faz o mesmos para slist2.

Minha suposição é o que você pretendeu era algo como o código abaixo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Para cada cel no rng
  'se slist1 é em branco, a verificação slist2:
  Se UCase (sList1) = "" então
     Se InStr (sList2, “|” & cel. Offset (0, 1). Valor & “|") <> 0 então
     cel. Resize (1, 50). Destino da cópia: =ws2.Cells (ws2.Rows.Count, “A”). Extremidade (xlUp). Offset (1)
     terminar se
  mais
  'se slist1 não é verificação em branco para o fósforo em slist1
     se InStr (sList1, “|” & cel. Valor & “|") <> 0 então
     cel. Resize (1, 50). Destino da cópia: =ws2.Cells (ws2.Rows.Count, “A”). Extremidade (xlUp). Offset (1)
     terminar se
terminar se

Cel seguinte
Outras soluções  
 
programming4us programming4us