Línguas
Páginas
Legal
Microsoft Excel - vba compara copia no comuns [Modo de Compatibilidade]
Produtos SaberExcelhttp://www.saberexcel.com.brPRODUTOS SABEREXCELColeo 15.000 Macros Microsoft Excel VBADVD 14.000 Planilhas ExemplosMicrosoft Excel VBACurso CompletoMicrosoft Excel VBADVD 1.800 Apostilas e Ebooks Microsoft Excel VBA e Excel AvanadoCOMO FAZER - Programao Microsoft Excel VBA (Vrios Mdulos)Seja um assinante do nosso sitePlanilhas de programao fantsticasTudo sobre o Aplicativo Microsoft Excel VBAQualquer dvida, visite nosso site ou envie-nos um email.http://[email protected]
[email protected]://www.saberexcel.comhttp://www.saberexcel.com.br
PrincipalCopia no duplicados e ordena crescenteAprenderVerificaoFunesDADOSPlanilhasMdulosSaberexcelRotinasNO COMUNSVBACompararAVALIADOSMacrosDadosObjetosClculosMtodosSaberexcelPropriedadesDeterminaoPropriedadesVontadeEventosNecessidadeMacrosClulasLinhasColunasVBEUserformsUserformsPlanilha faz parte do Mdulo Como Fazer - Microsoft Excel VBA_IV -Saberexcel
Visualizar macros na Tela ou VBEvisualizar explicao (macro) na tela1) Copie a lista na coluna BA, classificar sem duplicados " "OK, veja "
2) Aps editar o arquivo (clicando em um boto), cpia da lista na coluna BB, tipo sem duplicatas e em ordem crescente.
2b) Compare a lista de coluna da coluna BA e BB, se um nome de coluna BA no est mais na lista de coluna de Pesquisa com o Co(BB) (Por favor preencha o Lista de "Dados" dos tens na coluna Dados ) + Copy o TEM na folha de Auxiliar celula(B7) B7 e imprimir a folha, ento a mensagem " tem avaliado enviado para lista de impresso, com certeza o tem foi separado para impresso imprido.
Se vrios nomes j no esto na lista da coluna BB, repito: verificao com (Por favor preencha o formulrio de "Palavras" DADOS ) + Copia o tem na folha de Auxiliar celula (B7) e tambm faz uma relao dos tens no comuns na clula A8 em diante. interessante voce observar que se ir copiando as colunas os codigos estaro sempre verificando a Verificao com a ultima linha copiada.e tambm para a rea de impresso dos tens(palavras, nomes) o comuns, em seguida, mensagem de "verificao do tem "Palavra " foi impresso(se optar por imprimir.....
3) Suponhamos que sua lista fosse mudada a cada semana ou diariamente, e gostaria de manter o histrico, veja o que o macro faz, copia novamente a cada execuo para coluna seguinte e, e faz a anlise com os dados da coluna(C), ao executar o macro ir copiar os dados para coluna seguinte e ser comprarada novamente, verificar a coluna BB e BC, se uma coluna de nome j no na lista BB coluna BC, emitir a mensagem e vai inserir na lista de avaliados , isto ,(Preencher o a lista de avaliados com os nomes em comuns ) , tambm a cada volta do loop, insere na folha de planilha Auxiliar, uma vez, o tem em comum, e ser emitida a mensagem que tambm ser enviada para a uma lista especial, neste caso vai para impresso, .....Observer que o cdigo estar enviando a mensagem para dois locais, deixei assim com intutito didtico. ok....e assim por diante, checa as colunas e dados a cada modidificao....Espero que o exemplo lhes seja til - Fiquem com Deus, Expedito MarcondesLimpar para realizao do teste....Copiar e OrdenarMACRO COPIA DADOS NO DUPLICADOS, ORDENA, COMPARA DADOS E MONTA LISTA DE NO COMUNSSub Copiar_dados_em_comum() Dim vUltimaLinColC As Long, vUltimaLinOrdem As Long, vUltimaColLin As Integer Dim vUltimaLin1 As Long, vUltimaLin2 As Long, vLinha As Long, Rng As Range Dim vProcura As String 'o que faremos na planilha principal, usa o with para no ficar repetindo o nome da planilha With Sheets("Principal") [A8].Select ' localizar ltima linha da coluna C vUltimaLinColC = .Range("C" & Rows.Count).End(xlUp).Row ' ultima coluna usada na linha 1 vUltimaColLin = .Cells(1, Columns.Count).End(xlToLeft).Column + 1 ' Se esta coluna for
Top Related