mahhgebara

alguém?

Pessoal, Bom dia. Preciso de uma ajuda: tenho várias arquivos csv (que já estão sendo abertos no excel) em uma pasta. Preciso abrir cada um deles, fazer um determinado filtro e colar em uma nova pasta, juntando todos eles. Criei o seguinte código: Sub Macro3() ' ' Macro3 Macro ' ' Selection.AutoFilter ActiveSheet.Range("$A:$AF").AutoFilter Field:=11, Criteria1:= _ "Criada pelo Sistema" Range("A2:AF2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Pasta1").Activate Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End Sub Ele faz os filtros, e joga para a outra planilha. Gostaria de ajuda para incrementar e conseguir abrir planilha por planilha, fazer os filtros, jogar para a nova planilha e fechá-la, criando um looping. Poderiam me auxiliar, por favor?

Olá, boa tarde. Estou criando um formulário no word e gostaria de inserir uma combobox onde existem alguns itens como: - pessoa física - pessoa jurídica - outros Dependendo do item que eu fosse selecionar, abaixo iria aparecer um quadro com vários itens para serem verificados, como um checklist. Caso a pessoa selecionasse outro item do comboBox, outros itens apareceriam abaixo e assim sucessivamente. Queria que fosse algo "condicional": Caso pessoa física seja selecionada, tais itens de verificação apareçam. Por fim gostaria de criar uma ListBox com os itens que foram verificados e que aqueles que fossem encontrados pudessem ser selecionados e transferidos para uma outra ListBox ao lado. Consegui criar a primeira ListBox, mas não consigo fazer essa seleção múltipla e a transferência para outra ListBox. Agradeço a ajuda desde já.