TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Programa Em VBA Para Entresacar Dados De Uma Tabela De Numeros De Excel

Monografias: Programa Em VBA Para Entresacar Dados De Uma Tabela De Numeros De Excel. Pesquise 859.000+ trabalhos acadêmicos

Por:   •  30/5/2014  •  764 Palavras (4 Páginas)  •  455 Visualizações

Página 1 de 4

'Função para gerar um relatorio a partir de uma tabela de dados numericos

'Esta função copia e pega os elementos de uma tabela de dados pra outro sheet

'Toma os numeros da coluna A(em número 1) quando na coluna K (em número 11) tem um numero dois

'É util quando voçê tem uma tabela com dados e precisa os dados quando se cumpre uma condição com algum outro numero da mesma fila

'Por exemplo, os seguintes dados são de uma simulação sobre um proceso real. Preciso selecionar os dados da primeira coluna quando

'o valor da ultima coluna é 2.

'176,497 END 18 0 1 11,3 109 5,18 172 176 1

'171,556 END 18 0 1 5,89 35,6 5,67 121 172 5

'169,711 END 18 0 1 0,5 27,8 9,21 160 170 0

'178,598 END 18 0 1 5,21 35,9 13,4 158 179 2

'174,949 END 18 0 1 7,63 78,1 7,32 171 175 1

'170,876 END 18 0 1 3,77 38,6 7,11 147 171 4

'191,133 END 18 0 1 23,5 344 7,65 191 191 0

'169,718 END 18 0 1 0 35,3 9,72 155 170 3

'179,099 END 18 0 1 2,89 99,5 16,2 169 179 1

'166,896 END 18 0 1 0,397 53,8 6,5 164 167 1

'175,91 END 18 0 1 3,63 77,2 12,3 173 176 1

'198,103 END 18 0 1 24,9 237 13,2 198 198 1

'178,562 END 18 0 1 7,17 93,9 11,4 167 179 2

'160 END 18 0 1 0,684 40,8 8,23 119 159 5

'184,556 END 18 0 1 11,1 128 13,5 185 185 1

'174,585 END 18 0 1 0 101 14,6 156 175 1

'176,74 END 18 0 1 4,23 77,4 12,5 174 177 0

'176,355 END 18 0 1 9,21 61,2 7,15 173 176 0

'165,902 END 18 0 1 0 67,9 15,9 143 166 4

'182,384 END 18 0 1 15 135 7,36 182 182 1

'166,094 END 18 0 1 0 114 6,09 161 166 2

'176,596 END 18 0 1 7,77 97,3 8,83 177 177 0

'171,024 END 18 0 1 0 24,9 11 155 171 4

'166,949 END 18 0 1 1,09 24,7 5,86 143 167 3

Sub Botão1_Clique()

l = 1

l2 = 1

Do Until Sheets("Plan1").Cells(l, 11)

...

Baixar como (para membros premium)  txt (2.3 Kb)  
Continuar por mais 3 páginas »
Disponível apenas no TrabalhosGratuitos.com