Pesquisa resultou em 1643 ocorrências

Voltar à pesquisa avançada

Boa tarde!!

Use:

Código: Selecionar todosPrivate Sub Worksheet_Calculate()
    If Range("aleVBA") = 1 Then
        Rows(18).EntireRow.Hidden = True
    Else
        Rows(18).EntireRow.Hidden = False
    End If
End Sub


Favor baixar o anexo!

Att

Re: Colar parte de uma planilha no corpo do email

por alexandrevba ¦ 21 Nov 2017 às 16:55 ¦ Fórum: Macros e VBA ¦ Tópico: Colar parte de uma planilha no corpo do email ¦ Respostas: 5 ¦ Exibições: 1241

Boa tarde!!

Você precisa por um arquivo como anexo, uma guia, um intervalo?

Veja:
https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

Att

Re: Tratar dados em uma planilha e depois apaga-la

por alexandrevba ¦ 21 Nov 2017 às 13:47 ¦ Fórum: Macros e VBA ¦ Tópico: Tratar dados em uma planilha e depois apaga-la ¦ Respostas: 3 ¦ Exibições: 791

Boa tarde!! Favor adaptar de acordo com sua necessidade! Sub AleVBA_5818() 'Fonte: http://www.encodedna.com/excel/copy-data-from-closed-excel-workbook-without-opening.htm 'Fonte: https://www.rondebruin.nl/win/s9/win002.htm Dim wbName As String, wb As Workbook, ws As Worksheet Dim LR As Long, NR As L...

Re: Ampliar Uma Imagem  [resolvido]

por alexandrevba ¦ 21 Nov 2017 às 12:53 ¦ Fórum: Macros e VBA ¦ Tópico: Ampliar Uma Imagem ¦ Respostas: 7 ¦ Exibições: 1411

Bom dia!! Eu não baixei seu modelo. ===================[Opção 1]========================= Option Explicit 'Autor: Domenic Domenic (MrExcel MVP) 'Fonte: https://www.mrexcel.com/forum/excel-questions/611678-macro-zoom-picture.html Private Sub Picture_Click() Static Dict As Dictionary Static MyPics() A...

Re: Copiar e colar na primeira célula vazia  [resolvido]

por alexandrevba ¦ 21 Nov 2017 às 09:08 ¦ Fórum: Macros e VBA ¦ Tópico: Copiar e colar na primeira célula vazia ¦ Respostas: 3 ¦ Exibições: 821

Bom dia!! Seria isso? Sub AleVBA_5832() Sheets("Plan3").Range("L2:L14").Copy Sheets("Plan10").Range("O" & Rows.Count).End(xlUp)(2) End Sub Obs: (explique essa parte que eu não entendi...) vai pegar sempre o intervalo ("L2:L14") da guia PLan3 ? Do...

Re: Salvar arquivos em local especifico  [resolvido]

por alexandrevba ¦ 16 Nov 2017 às 16:31 ¦ Fórum: Macros e VBA ¦ Tópico: Salvar arquivos em local especifico ¦ Respostas: 4 ¦ Exibições: 1031

Boa tarde!! Tente adaptar a variável que é recebida pelo parâmetro Filename:= . Tipo... Filename:="C:\Users\robinson\Desktop\CAMPANHA 2017\" & ...etc Veja também: https://msdn.microsoft.com/pt-br/vba/excel-vba/articles/workbook-saveas-method-excel http://exceler.blogspot.com.br/2005/04...

Re: Descobrir e colar url de imagem

por alexandrevba ¦ 13 Nov 2017 às 15:36 ¦ Fórum: Macros e VBA ¦ Tópico: Descobrir e colar url de imagem ¦ Respostas: 1 ¦ Exibições: 507

Boa tarde!!

Detalhe melhor sua dúvida.

Onde está essas imagens(No seu PC, na rede local, em site, dentro do arquivo de excel etc)?

Att

Re: Copiar automaticamente células para outra folha  [resolvido]

por alexandrevba ¦ 10 Nov 2017 às 12:32 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Copiar automaticamente células para outra folha ¦ Respostas: 3 ¦ Exibições: 773

Bom dia!! Já tentou algo assim? Sub AleVBA_5786() Worksheets("Plan2").Range("B3").Value = Worksheets("Plan1").Range("C1").Value Worksheets("Plan2").Range("C3").Value = Worksheets("Plan1").Range("C10").Value Worksheets(&q...

Bom dia!!

Eu lhe sugiro postar seu arquivo modelo (com o código dentro) para que o pessoal da comunidade possa lhe ajudar!


Att

Re: Listbox data invertida  [resolvido]

por alexandrevba ¦ 08 Nov 2017 às 11:09 ¦ Fórum: Macros e VBA ¦ Tópico: Listbox data invertida ¦ Respostas: 5 ¦ Exibições: 1160

Bom dia!!

Vamos aguardar mais alguém que pode ajudar, pois eu não vi diferença na exibição do listbox!

Att

Re: Listbox data invertida  [resolvido]

por alexandrevba ¦ 08 Nov 2017 às 09:24 ¦ Fórum: Macros e VBA ¦ Tópico: Listbox data invertida ¦ Respostas: 5 ¦ Exibições: 1160

Bom dia!!

Eu não entendi.

Ao listar os dados da guia aparece com o formato americano?

Veja a imagem em anexo, está com o mesmo formato.

Att

Re: Abrir janela  [resolvido]

por alexandrevba ¦ 03 Nov 2017 às 13:40 ¦ Fórum: Macros e VBA ¦ Tópico: Abrir janela ¦ Respostas: 8 ¦ Exibições: 1328

Boa tarde!! Você disse no seu primeiro post Por favor como abro janela de importar da imagem pelo vba. Foi o que eu entendi!! Eu não entendi, veja se alguém que entendeu possa te ajudar... Leia: https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html https://m...

Re: Preenchimento de cor na seleção

por alexandrevba ¦ 03 Nov 2017 às 12:03 ¦ Fórum: Macros e VBA ¦ Tópico: Preenchimento de cor na seleção ¦ Respostas: 3 ¦ Exibições: 738

Bom dia!!

Tentei gerar uma macro automática, porém não deu certo...

Eu não entendi.

Onde está seu problema? Em gerar o atalho, o mesmo não funciona? Em selecionar a célula ativa ou especifica?

Att

Re: Abrir janela  [resolvido]

por alexandrevba ¦ 03 Nov 2017 às 11:56 ¦ Fórum: Macros e VBA ¦ Tópico: Abrir janela ¦ Respostas: 8 ¦ Exibições: 1328

Bom dia!! :( Sub Teste2() fileToOpen = Application.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True) If IsArray(fileToOpen) Then For Each fil In fileToOpen MsgBox fil Next fil Else ' MsgBox "Mensagem" End If End Sub Att

Re: Relatório com dois ou mais critérios  [resolvido]

por alexandrevba ¦ 03 Nov 2017 às 10:26 ¦ Fórum: Macros e VBA ¦ Tópico: Relatório com dois ou mais critérios ¦ Respostas: 6 ¦ Exibições: 1502

Bom dia!! Uma ideia seria filtrar( filtros são mais rápidos que loops ) colunas não adjacentes, seria... Sub AleVBA() Dim lr As Integer Dim b As Range Dim d As Range Dim f As Range Dim strInput As String lr = Range("A" & Rows.Count).End(xlUp).Row Set b = Range("B2:B" & lr...

Re: Abrir janela  [resolvido]

por alexandrevba ¦ 03 Nov 2017 às 09:31 ¦ Fórum: Macros e VBA ¦ Tópico: Abrir janela ¦ Respostas: 8 ¦ Exibições: 1328

Bom dia!!

Veja:
https://analysistabs.com/vba/open-file- ... mple-code/

Código: Selecionar todosSub Tente()
ActiveWorkbook.XmlImport URL:=Application.GetOpenFilename, ImportMap:= Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub


Att

Re: carregar diretamente na listview somente o que eu quero

por alexandrevba ¦ 01 Nov 2017 às 15:47 ¦ Fórum: Macros e VBA ¦ Tópico: carregar diretamente na listview somente o que eu quero ¦ Respostas: 1 ¦ Exibições: 509

Boa tarde!!

Faça um filtro via VBA, os dados filtrados envie para a ListView.

No mais, poste seu arquivo modelo!!

Att

Re: Relatório com dois ou mais critérios  [resolvido]

por alexandrevba ¦ 31 Out 2017 às 09:04 ¦ Fórum: Macros e VBA ¦ Tópico: Relatório com dois ou mais critérios ¦ Respostas: 6 ¦ Exibições: 1502

Bom dia!! Favor ler as regras do fórum! https://gurudoexcel.com/forum/viewtopic.php?f=5&t=4 Regra nº 11: Nós preferimos que os membros não façam postagens cruzadas (quando a mesma postagem é feita em diferentes fóruns). Mas quando isso ocorrer, os membros devem deixar claro os links para as post...

Re: Acessar 'Application.OnKey ='  [resolvido]

por alexandrevba ¦ 30 Out 2017 às 13:42 ¦ Fórum: Macros e VBA ¦ Tópico: Acessar 'Application.OnKey =' ¦ Respostas: 7 ¦ Exibições: 1586

Boa tarde!! Há um padrão comum no pacote office (especialmente Excel), que a instalação armazena uma " configuração " do usuário e também recebe a " configuração " de uma outra instalação. Exemplo: Se eu expandi minha barra de formula, salvar e fachar esse arquivo, qualquer insta...