Extrair dados de uma Caixa de Diálogo
Enviado: 07 Mai 2020 às 08:02
por ccbairros
Bom dia !
Não tenho nem certeza do nome, mas eu recebi uma planilha assim:
Eu preciso tirar os dados das "caixas" e deixa-los puro na coluna. O problema já começa porque não sei o nome correto delas para saber pelo quê procurar a solução.
Obrigado.
Re: Extrair dados de uma Checkbox
Enviado: 07 Mai 2020 às 08:07
por ccbairros
Exemplo da planilha...
Re: Extrair dados de uma Checkbox
Enviado: 07 Mai 2020 às 08:27
por Kledison
Bom dia!
Para remover as caixas de testo, vc deve clicar na GUIA DESENVOLVEDOR, depois em MODO DESIGN.
Caso sua Guia Desenvolvedor não esteja ativada, procure no google como ativar.
https://www.aprenderexcel.com.br/2014/d ... r-no-excel
Att
Re: Extrair dados de uma Checkbox
Enviado: 07 Mai 2020 às 08:46
por ccbairros
Kledison escreveu:Bom dia!
Para remover as caixas de testo, vc deve clicar na GUIA DESENVOLVEDOR, depois em MODO DESIGN.
Caso sua Guia Desenvolvedor não esteja ativada, procure no google como ativar.
https://www.aprenderexcel.com.br/2014/d ... r-no-excel
Att
Opa já facilitou, vou procurar como caixa de diálogo, agora preciso extrair os valores delas pra celula do lado. Mas já tenho uma luz, muito obrigado
Re: Extrair dados de uma Caixa de Diálogo
Enviado: 07 Mai 2020 às 09:49
por Kledison
Para remover as caixas e manter o conteúdo, tente com o código abaixo, copie e cole em um módulo VBA e manda executar a macro.
Código: Selecionar todosSub Tester()
Dim o
For Each o In ActiveSheet.OLEObjects
If o.progID = "Forms.HTML:Text.1" Then
Debug.Print o.Name, o.Object.Value, o.TopLeftCell.Address()
'sometimes merged cells result from a HTML copy/paste,
' so don't just use .TopLeftCell to set the Value
o.TopLeftCell.MergeArea.Value = o.Object.Value
o.Delete
End If
Next o
End Sub
Extrair dados de uma Caixa de Diálogo
Enviado: 12 Mai 2020 às 09:45
por ccbairros
cara, voce é fo**, muito obrigado, funcionou perfeitamente. Resolvido, de uma maneira ímpar. Valeu mesmo