Eloize Teixeira

=CONT.SES($B$2:$B$19;E3;$C$2:$C$19;F2) Essa é a fórmula, sendo E3 = Nome do Responsável, ao arrastar a formula para outras linhas estará ok. Sendo F2 = Situação, ao inserir a mesma formula, substitua essa célula pelo intervalo da célula da situação específica. Se ajudou clieuq em curtir. Att, Pergunta, as situações e pessoas nunca mudarão?

Você tem um botão para pesquisar ou quando termina de colocar a opção ela ja aparece ou aperta enter? Seu arquivo está com erro ao baixar. Att,

é possível.. Você já habilitou a aba desenvolvedor no ppt? 'This example prints two uncollated copies of each slide ? whether visible or hidden ? from slide two to slide five in the active presentation. With Application.ActivePresentation .PrintOptions.PrintHiddenSlides = True .PrintOut From:=2, To:=5, Copies:=2, Collate:=msoFalse End With 'This example prints a single copy of all slides in the active presentation to the file Testprnt.prn. Application.ActivePresentation.PrintOut PrintToFile:="TestPrnt" é possível.. Você já habilitou a aba desenvolvedor no ppt?

Envie o arquivo o explique de forma mais clara... Att,

É possível.. Vá em na aba 'Dados' do Excel e clique em: "Da Web", abrirá um navegador, onde você deverá digitar a página da Internet onde se encontra os dados que deseja. Ex: Taxa de Câmbio Onde a pessoal poderia entrar em uma pagina da internet de investimentos. Porém, como todo bônus há um ônus, algumas páginas da Internet não disponinibilizam a extração em texto, sendo assim, pode ser que um site x não de para extrair tal informação e no site y dê. para saber se é possível baixar a tabela, aparecerá uma setinha amarela, onde voce deve clicar (ficará verde), e depois selecionar a opção Importar!. Qlq dúvida, postar! Att, @danielkson

Básicamente deve se referir a procura/tentativa de acessar uma planilha/arquivo ou mesmo uma dll/ocx, que não está presente no local esperado.Exemplo o codigo "tenta" ler (ou gravar) dados na planilha de nome "retorno"; porém o nome (vamos chamar de correto, o que está gravado no arquivo) é "retorna", então não achando o objeto em questão, devolve o erro. Execute o seu programa em modo de depuração (F8) e vá passo à passo, vendo o que executa e onde efetivamente o erro acontece.

exclui o .printquality e deu certo.. so queria tirar a borda que mostrei acima mesmo

em volta do cinza, esssa parte meio transparente com 'x vermelho' para fechar janela

tem como sumir essa janela do windows? em volta ?

Pretendo imprimir o form mesmo... nao consegui transforma-la em landscape, portando diminui o zoom para 85%, massssss agora o problema é que: os títulos das frames não aparecem na impressão :/ Exemplo Att

Código funciona perfeitamente, o erro em minha planilha é que meus dados começavam na linha 9, e no código estava descrito como linha 2... Esse campo deve ser preenchido com o número de linha em que começa os dados reais de sua planilha.

Crie seu próprio frm com os botões específicos

Em anexo dois exemplo... veja se atende. Se sim, clica em curtir. Filtra_ListBox_VBA_Custom.xlsm Form v2.xlsm

@Basole Inbox.. o resultado perfeito posto depois para ajudar os colegas/!! /Att,

Boa noite, Tenho um userform grande (Usa Scroll) e gostaria que a partir de um botão, pudesse imprimí-lo (sem a imagem do botão) e com todo o contéudo do form... Vi alguns códigos na net, mas que não funcionaram, pois tirava um print do form so na parte em que aparecia na tela, e preciso dele inteiro. Vi código como: UserForm1.PrintMe, mas que ao rodá-lo nada acontecia... Vocês saberiam me dizer como posso solucionar meu problema? Att

@osvaldomp Muito obrigada Osvaldo, você sempre muito bom!

Boa noite, Tenho uma dúvida, Preciso que ao abrir minha planilha, o Excel emita MsgBox, como lembretes que x pessoa está fazendo aniversário naquele dia. Essas informações seria retiradas de uma planilha de cadastro, onde a coluna C é o nome e a coluna F é a data de nasc. Peguei um cód na internet, mas ele não está funcionando: Em EstaPasta_de_trabalho: Private Sub Workbook_Open() Call Aniversariantes End Sub Num Módulo: Sub Aniversariantes() ilin = 2 elin = Sheets("Ani").Range("A65536").End(xlUp).Row m = Month(Now) d = Day(Now) Sheets("Ani").Activate Do While ilin <= elin If (d & m) <> (Day(Cells(ilin, 6)) & Month(Cells(ilin, 6))) Then ilin = ilin + 1 Else nome = Cells(ilin, 3) MsgBox ("Não se esqueça dos Parabéns para " & nome & "!!!") ilin = ilin + 1 End If Loop End Sub Dá erro em: If (d & m) <> (Day(Cells(ilin, 6)) & Month(Cells(ilin, 6))) Then Já tentei de tudo, mas não vai.. Desde já, agradeço! Att,

@osvaldomp Boa tarde Osvaldo, obrigada pelas explicações... estava tendo algumas msgs de erro e ao alterar para Unload apararentemente solucionou. Quanto ao outro form está pronto, e já inserir os códigos para pesquisa na tabela a abertura do mesmo, ou seja, Quando eu apertar em "GERAR'" do Form "Aval", o excel busca na aba "Avaliação" e abre o form "FichaAval" com os resultados, porém, existem três problemas: A caixa ComboBox6 está puxando informações da aba "Alunos", e deve-se puxar somente da aba "Avaliação"; O íntuito da "Página Inicial", é sempre ficar nela, e ao apertar o botão "Avaliação Física" abrir o Form, porém, se eu fizer isso o vba da erro e vai pro depurador. Resumindo, eu preciso estar na aba "Avaliação" para tudo funcionar direito. Há como funcionar tudo direito sem migrar para a aba "Avaliação"? (Em primeiro momento coloquei um código para ativar esta aba Este é o pior de todos...... Os resultados estão aparecendo atrasados ao apertar o botão "GERAR" do Form "Aval", se eu escolhi Rodrigo 1ª Avaliação antes, e agora escolho Eloize 1ª Avaliação, os resultado irão aparecer como Rodrigo 1ª Avaliação. Poderia (n0vamente) me ajudar? Arquivo atualizado em anexo. Att,MaxiTraining_Control_V1.xlsm

@osvaldomp Boa noite osvaldo! Muito obrigada, o código funcionou e carregou as informações. Uma pergunta? o que tinha de errado no código anterior? Quero que após clicar no botão "GERAR" ele abra uma nova form com infomações da de outros colunas equivalente a linha que escolhi no ComboBox 6 (Nome) e ComboBox7. Existe uma aba na planilha chamada "Avaliação". Na coluna A fiz um concatenar da informação Nome (B)&Nº Avaliação(D) e após aperta e, "GERAR" abrira um outro form que está em construção com informações das Colunas B, D, E, G H I até AV, que carregaria em caixas de texto. pergunta: Qual diferença entre o Hide e Unload? Desde já muito obrigada!

@osvaldomp Segue arquivo anexo. Na páginas Inicial terá o botão "Avaliação Física", no qual abrirá o UserForm que estou com dúvidas. Estou iniciando na programação, então pouco sei. rs 1ª dúvida na qual não consigo resolver. No UserForm denominado "Aval" contém duas abas: 1ª Aba - Cadastro: O item "Nome Completo" puxa informações da Aba da Planilha "Alunos" - Funcionando 2ª Aba - Pesquisa: O item "Nome Completo" puxa informações da Aba da Planilha "Avaliação" - Funcionando Parcialmente, pois gostaria que o item "Nº Avaliação" filtrasse resultados de acordo com o selecionado em "Nome Completo" Esperado: ComboBox6: Rodrigo ComboBox7: 1 ª Avaliação 2 ª Avaliação 3 ª Avaliação 4 ª Avaliação 5 ª Avaliação 6 ª Avaliação 7 ª Avaliação Atual: ComboBox6: Rodrigo ComboBox7: (Vazio) Objetivo e 2ª Dúvida: Juntar informações do ComboBox6(Nome Completo) + ComboBox7(Nº Avaliação) = Rodrigo1 ªAvaliação e utilizar Set c = .Find para procurar na Aba "Avaliação" A:A resultado citado acima (ComboBox6 + ComboBox7) Não sei se consegui explicar exatamente o que preciso. Rs Desde já, muito obrigada! Att, Eloize MaxiTraining_Control_V1.xlsm

Boa noite, tudo bem? Tenho uma dúvida, será que poderia me ajudar? Minha dúvida é igual a seguinte: Tenho uma worksheet do estilo, A B ABC 123 DEF 456 ABC 789 DEF 101112OU SEJA, tenho um formulário para inserir dados nas colunas A e B (Na coluna A os dados inseridos podem ser repetidos)...no formulário de pesquisa queria que a 1.ª Combobox apresentasse os valores da coluna A, sem estarem repetidos e ordenados...(neste caso apenas ABC e DEF uma única vez cada), e ao seleccionar um desses valores queria que a 2.ª Comobobox fosse preenchida com os valores a que corresponde na coluna B (Caso 1.ªCmb = ABC -> 2.ªCmb 123 e 789, e assim sucessivamente) Um cara tinha respondido pra esse o seguint código, mas não está funcionando: Option Explicit Private Sub UserForm_Initialize() Dim OCOLLECTION As New Collection Dim VARVALUE As Variant Dim I As Long On Error Resume Next For Each VARVALUE In Plan1.Range("A2:A" & Plan1.Range("A65536").End(xlUp).Row) OCOLLECTION.Add VARVALUE, VARVALUE Next For I = 1 To OCOLLECTION.Count ComboBox1.AddItem OCOLLECTION.Item(I) Next I End Sub Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ComboBox2.Clear Dim I As Long For I = 2 To Plan1.Range("A65536").End(xlUp).Row If ComboBox1.Value = Plan1.Range("A" & I).Value Then ComboBox2.AddItem Plan1.Range("B" & I).Value End If Next I End Sub A Box 2 não tá mostrando os valores. Poderia me ajudar? Att @osvaldomp poderia me ajudar ? pleaseee

Ex: Tenho um botâo que executa uma macro. No texto do botão está escrito "Salvar" e ao lado a imagem de um disquetinho. Como faço isso ?

@Patropi Boa tarde.. me ajuda parcialmente, gostaria de ir vendo os nomes sem pecisar clicar na setinha

Boa noite, Vi alguns códigos que pudessem me ajudar, mas não consigo trazer para minha realidade. Poderiam me ajudar? Preciso que ao ir digitando letras em uma célula espécifica, o excel me traga as opções de escolha do resultado que tenho a partir de um banco de dados. EX: Tenho cadastrado na Plan2 os nomes/clientes: Rodrigo Rodolfo Rodnei Roberval Roberta Na Plan1, quando digitar : Rob.. O excel me traga os nomes para que eu escolha entre: Roberval Roberta Desde já, obrigada

Vou enviar a planilha. poderia verificar pra moim ?! me passa seu email, pois nao posso deixar publico. att