Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 67 ocorrências
- Qua Jun 01, 2022 5:40 pm
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Histórico de Impressão
- Respostas: 3
- Exibições: 1289
Re: Histórico de Impressão
Experimente... Assim como o tomas citou: Private Sub Workbook_BeforePrint(Cancel As Boolean) With Worksheets(1) .Cells(.Cells(Rows.Count, "k").End(xlUp).Offset(1).Row, "k").Value = VBA.Now Cancel = True End With End Sub * cole o codigo acima no modulo de EstaPasta_de_trabalho
- Seg Abr 18, 2022 6:27 pm
- Fórum: VBA Básico
- Tópico: DIVIDIR BASE
- Respostas: 3
- Exibições: 1300
Re: DIVIDIR BASE
Normalmente em condições normais de temperatura e pressão, referencia planilhas como abasQuase isso
Queria que ele criasse arquivos com o nome de cada fornecedor e não abas com o nome deles.
Veja agora com as alterações:
- Qui Abr 14, 2022 7:11 pm
- Fórum: VBA Básico
- Tópico: DIVIDIR BASE
- Respostas: 3
- Exibições: 1300
Re: DIVIDIR BASE
Veja se é isso que deseja
- Sex Abr 01, 2022 2:38 pm
- Fórum: VBA Básico
- Tópico: como user uma textbox para pesquisar em toda a colunas da planilha
- Respostas: 13
- Exibições: 3861
Re: como user uma textbox para pesquisar em toda a colunas da planilha
Mas "planilha 1" é diferente de "planilha1" para o VBA o espaço entre caracteres é considerado. Então esse pequenos detalhes pode gerar erros. Tente setar pelo índice da planilha. Se a mesma estiver na posição 1 será ajustado corretamente. Exemplo: Set ws = ThisWorkbook.Sheets(1)
- Sex Mar 25, 2022 4:46 pm
- Fórum: VBA Básico
- Tópico: como user uma textbox para pesquisar em toda a colunas da planilha
- Respostas: 13
- Exibições: 3861
Re: como user uma textbox para pesquisar em toda a colunas da planilha
nesta linha (Set ws = ThisWorkbook.Sheets("Planilha1") porem o erro que dá é subincrito fora do intervalo Como eu havia dito, voce precisa adptar o exemplo ao seu cenario. O erro é porque a aba Planilha1, não esta presente na sua Pasta_de_trabalho. Tem que alterar colocando no nome da aba...
- Qua Mar 23, 2022 3:36 pm
- Fórum: VBA Básico
- Tópico: como user uma textbox para pesquisar em toda a colunas da planilha
- Respostas: 13
- Exibições: 3861
Re: como user uma textbox para pesquisar em toda a colunas da planilha
No userform voce insira o codigo abaixo, *Altere o nome do botão se necessario Private Sub CommandButton1_Click() Call FindAllMatches End Sub Private Sub FindAllMatches() Dim SearchRange As Range Dim FindWhat As Variant Dim FoundCells As Range Dim FoundCell As Range Dim lSearchCol As Long Dim lLastR...
- Ter Mar 22, 2022 5:03 pm
- Fórum: VBA Básico
- Tópico: como user uma textbox para pesquisar em toda a colunas da planilha
- Respostas: 13
- Exibições: 3861
Re: como user uma textbox para pesquisar em toda a colunas da planilha
Voce tem que adaptar ao seu cenário. Mas já esta quase mastigado, voce precisa alterar os nomes dos controles, listbox textbox, e respct. colunas No evento do seu botão ou no evento change da textbox pesquisa, coloque uma chamada a sub FindAllMatches Exemplo: Private Sub CommandButton1_Click() call ...
- Ter Mar 22, 2022 2:26 pm
- Fórum: VBA Básico
- Tópico: como user uma textbox para pesquisar em toda a colunas da planilha
- Respostas: 13
- Exibições: 3861
Re: como user uma textbox para pesquisar em toda a colunas da planilha
Com a função FindAll by Chip Peasron que faz a busca em toda a aba Exemplo: Private Sub FindAllMatches() Dim SearchRange As Range Dim FindWhat As Variant Dim FoundCells As Range Dim FoundCell As Range Dim lSearchCol As Long Dim lLastRow As Long Dim ws As Worksheet Dim msg As String Set ws = ThisWork...
- Sex Mar 18, 2022 5:11 pm
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Inserir Imagem Dinamicamente em uma Célula
- Respostas: 5
- Exibições: 1724
Re: Inserir Imagem Dinamicamente em uma Célula
Boa Tarde!
Altere a fórmula abaixo, no intervalo nomeado
Altere a fórmula abaixo, no intervalo nomeado
Código: Selecionar todos
=ÍNDICE('BANCO DE IMAGEM'!$C$3:$C$6;CORRESP('INSERIR RESULTADOS'!$B$8&'INSERIR RESULTADOS'!$B$9;'BANCO DE IMAGEM'!$A$3:$A$6&'BANCO DE IMAGEM'!$B$3:$B$6;0);0)
- Qui Mar 17, 2022 3:23 pm
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Inserir Imagem Dinamicamente em uma Célula
- Respostas: 5
- Exibições: 1724
Re: Inserir Imagem Dinamicamente em uma Célula
1 - Crie um intervalo nomeado: Aperte a tecla [ F3] na janela coloque por exemplo o nome: List_img Na janela refere-se a, insira a foruma abaixo: =ÍNDICE('BANCO DE IMAGEM'!$B$3:$B$5;CORRESP('INSERIR RESULTADOS'!$B$8;'BANCO DE IMAGEM'!$A$3:$A$5;0)) 2 - Agora veicule a imagem ao intervalo nomeado. Sel...