Pesquisa resultou em 3854 ocorrências

Voltar à pesquisa avançada

Re: Reestruturar dados para criar arquivo de importação  [Resolvido]

Oi , Mauro. Agradeço o interesse em ajudar. O colega wzxnet7 conseguiu escrever um código para realizar a tarefa. Nesse caso eu só precisava que a planilha estivesse estruturada de forma que a primeira linha contivesse os cabeçalhos adequados, e o campo de Data saísse do cabeçalho e passasse a ser ...
por Mauro Coutinho
Sex Fev 16, 2018 12:59 pm
 
Fórum: VBA & Macros
Tópico: Reestruturar dados para criar arquivo de importação
Respostas: 6
Exibições: 53

Re: Zoom ao passar o mouse sobre uma figura  [Resolvido]

Como diz estar utilizando um mapa, eu sugiro em vez de utilizar o evento MouseMove, utilizar uma rotina para aumentar e diminuir a imagem qdo clicada, em um mapa você deve ter varios shapes ou imagens grudadas e com isto poderá ter resultados inesperados quando mover o mouse de um para outro, uma ve...
por Mauro Coutinho
Sex Fev 16, 2018 11:06 am
 
Fórum: VBA & Macros
Tópico: Zoom ao passar o mouse sobre uma figura
Respostas: 5
Exibições: 42

Re: Reestruturar dados para criar arquivo de importação  [Resolvido]

Eu sinceramente não entendi. Preciso preparar várias planilhas que serão importadas para o banco de dados de um software que utilizo no trabalho. Qual soft seria ? qual formato do arquivo o mesmo gera para ser importado ? qual o layout destes arquivos ? Eu já fiz alguns ajustes (pois estava pior) e ...
por Mauro Coutinho
Sex Fev 16, 2018 8:40 am
 
Fórum: VBA & Macros
Tópico: Reestruturar dados para criar arquivo de importação
Respostas: 6
Exibições: 53

Re: VBA - Contar se valores correspondem  [Resolvido]

Tente assim : Sub Count_If() Dim xCountif As WorksheetFunction Set xCountif = Application.WorksheetFunction Range("P3").Value = xCountif.CountIf(Plan1.Range("a:a"), "Elefante") Range("Q3").Value = xCountif.CountIf(Plan1.Range("a:a"), "Girafa&quo...
por Mauro Coutinho
Qui Fev 15, 2018 7:36 am
 
Fórum: VBA & Macros
Tópico: VBA - Contar se valores correspondem
Respostas: 6
Exibições: 42

Re: Macro para ajustar a foto em suas respectivas células  [Resolvido]

Segue o exemplo baseado no seu modelo:

Insere Fotos Celulas Mauro.rar


[]s
por Mauro Coutinho
Qua Fev 14, 2018 3:57 pm
 
Fórum: VBA & Macros
Tópico: Macro para ajustar a foto em suas respectivas células
Respostas: 15
Exibições: 131

Re: Macro para ajustar a foto em suas respectivas células  [Resolvido]

Se não conseguir, envie o seu modelo com a macro inserida para uma analise melhor.

[]s
por Mauro Coutinho
Qua Fev 14, 2018 3:02 pm
 
Fórum: VBA & Macros
Tópico: Macro para ajustar a foto em suas respectivas células
Respostas: 15
Exibições: 131

Re: Macro para ajustar a foto em suas respectivas células  [Resolvido]

Pra mim funcionou corretamente, você fez alguma alteração no layout ?

Capturar.JPG
por Mauro Coutinho
Qua Fev 14, 2018 2:56 pm
 
Fórum: VBA & Macros
Tópico: Macro para ajustar a foto em suas respectivas células
Respostas: 15
Exibições: 131

Re: Macro para ajustar a foto em suas respectivas células  [Resolvido]

Uma possibilidade Reinaldo, muito obrigado por ajudar. A única questão que ainda não funcionou foi redimensionar a imagem e enviá-la para seu quadro em referência! A imagem é inserida e redimensionada, porém fica em uma localização qualquer da planilha! Jair, troque a rotina que o Reinaldo postou p...
por Mauro Coutinho
Qua Fev 14, 2018 1:09 pm
 
Fórum: VBA & Macros
Tópico: Macro para ajustar a foto em suas respectivas células
Respostas: 15
Exibições: 131

Re: Formatação condicional

camalmeida, por falta de mais detalhes, segue uma rotina básica, nela estou supondo que na coluna G temos um cabeçalho e quanto a "contem certos valores" estou interpretando como numericos, é só associar a rotina a algum botão. Veja se é isto : Sub Pinta_Celula() Dim Linha As Long Dim sRG ...
por Mauro Coutinho
Sex Fev 09, 2018 8:02 pm
 
Fórum: VBA & Macros
Tópico: Formatação condicional
Respostas: 2
Exibições: 34

Re: Rolagem vertical automática  [Resolvido]

Supondo que está se referindo a Coluna A, se não for é só ajustar a rotina : Sub Scroll_Rows() Dim LastRow As Long LastRow = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row - 5 ActiveWindow.ScrollRow = LastRow ActiveSheet.Range("A" & LastRow + 6).Select End Sub...
por Mauro Coutinho
Sex Fev 09, 2018 12:58 pm
 
Fórum: VBA & Macros
Tópico: Rolagem vertical automática
Respostas: 6
Exibições: 66
Próximo

Voltar à pesquisa avançada