Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 67 ocorrências

por Basole
Qua Jun 01, 2022 5:40 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Histórico de Impressão
Respostas: 3
Exibições: 1147

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
por Basole
Seg Abr 18, 2022 6:27 pm
Fórum: VBA Básico
Tópico: DIVIDIR BASE
Respostas: 3
Exibições: 1166

Re: DIVIDIR BASE

Quase isso
Queria que ele criasse arquivos com o nome de cada fornecedor e não abas com o nome deles.
Normalmente em condições normais de temperatura e pressão, referencia planilhas como abas

Veja agora com as alterações:
por Basole
Qui Abr 14, 2022 7:11 pm
Fórum: VBA Básico
Tópico: DIVIDIR BASE
Respostas: 3
Exibições: 1166

Re: DIVIDIR BASE

Veja se é isso que deseja
por Basole
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: 3534

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)
por Basole
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: 3534

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...
por Basole
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: 3534

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...
por Basole
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: 3534

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 ...
por Basole
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: 3534

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...
por Basole
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: 1588

Re: Inserir Imagem Dinamicamente em uma Célula

Boa Tarde!
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)
por Basole
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: 1588

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...