Curso de Excel Grátis

você poderia usar um VBA para carregar as empresas, basicamente faz um clear no componente e depois vai fazer additem outra forma seria usar a função filtro do excel aqui a coluna C tem o nome da emrpesa e a D tem o status =FILTRO(C2:D4;D2:D4="Ativo")

boa tarde você pode fazer um looping que passa pelas linhas e outro pelas colunas, algo assim for linha = 1 to 7 for coluna = 1 to 14 if cells(linha,coluna) = valorprocurado then 'pintar end if next coluna next linha mas provavelmente da pra fazer sem VBA também no meu canal no youtube tenho alguns videos com os primeros passos de VBA www.cursodeexcelgratis.com.br/canal

se você tem o resultado na planilha, não consegue pegar dela ?

posta o codigo que você fez pf

pode estar faltando criar a conexão odbc no painel de controle

bom dia, se você tiver uma versão nova do excel, não precisa usar VBA, poderia usar o unirtexto() você tem essa função disponível ? Aproveite para acessar e assinar meu novo canal no youtube http:\\cursodeexcelgratis.com.br\canal

bom dia @ricardo.ssantoseu tentaria via VBA usar o comando sendkeys para mandar a "setinha para baixo" , se você colocar no google sendkeys vba seta para baixo vai ver um exemplo de como você pode fazer isso Aproveite para acessar e assinar meu novo canal no youtube http:\\cursodeexcelgratis.com.br\canal

bom dia, pode ser que seja a versão do excel, pois o sumifs é relativamente recente Aproveite para acessar e assinar meu novo canal no youtube http:\\cursodeexcelgratis.com.br\canal

obrigado por se inscrever ! 🙂

estimado , bom dia, se puder compartilhar o codigo atual ajudaria a entender melhor o problema Aproveite para acessar e assinar meu novo canal no youtube http:\\cursodeexcelgratis.com.br\canal

bom dia, o with é usando quando você quer fazer varias coisas com um objeto, e no lugar de você repetir o nome do objeto com você coloca with objeto e sai fazendo tudo, por exemplo no lugar de cells(1,1).select cells(1,1).color = 123 cells(1,1).text= "fasdfa" você faria with cells(1,1) .select .color = 123 .text= "fasdfa" end with então é mais para organizar o código, se puder, disponibiliza sua planilha num link para dar uma olhada nela.

você acabou abrindo duas vezes o mesmo post .. você pode usar o application.ontime pra isso, junto com o evento change Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then If Target.Text = "1" Then Range("B1") = 1 ElseIf Target.Text = "0" Then Call Application.OnTime(DateAdd("s", Range("c1"), Now()), "zerarb1") End If End If End Sub tem um exemplo no meu canal de uso no evento change para atualizar tabela dinamica a funcao zerarb1 você cria um num modulo Sub zerarb1() Range("B1") = 0 End Sub Aproveite para acessar e assinar meu novo canal no youtube http:\\cursodeexcelgratis.com.br\canal

estimado, se você vai em configurar página e em seguida cabeçalho / rodapé e deixa configurado lá, não da certo ao gerar o pdf ? eu fiz um gravar macro, e gravei a planilha como pdf, o resultado foi a macro abaixo ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Admin\Documents\pdfpdf.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True e gerou o pdf com cabealho e rodapé configurado aproveito para te convisar para meu canal no youtube http://cursodeexcelgratis.com.br/youtube

você pode usar o application.ontime pra isso, junto com o evento change Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then If Target.Text = "1" Then Range("B1") = 1 ElseIf Target.Text = "0" Then Call Application.OnTime(DateAdd("s", Range("c1"), Now()), "zerarb1") End If End If End Sub tem um exemplo no meu canal de uso no evento change para atualizar tabela dinamica a funcao zerarb1 você cria um num modulo Sub zerarb1() Range("B1") = 0 End Sub Aproveito para te convisar a assinar meu canal e ver os videos de VBA

Estimado, fiz duas funções para ficar mais organizado, numa primeira função pego o nome do mês e transformo na ordem dele e na outra função uso a ordem do mês para fazer o clear contents que você precisa Private Sub LimparCelulas(ByVal mes As String) Range("O" & 11 + ordemMes(mes) & ":O23").ClearContents End Sub Private Function ordemMes(ByVal mes As String) As Integer Select Case LCase(mes) Case "janeiro" ordemMes = 1 Case "fevereiro" ordemMes = 2 Case "março" ordemMes = 3 Case "abril" ordemMes = 4 Case "maio" ordemMes = 5 Case "junho" ordemMes = 6 Case "julho" ordemMes = 7 Case "agosto" ordemMes = 8 Case "setembro" ordemMes = 9 Case "outubro" ordemMes = 10 Case "novembro" ordemMes = 11 Case "dezembro" ordemMes = 12 End Select End Function se gostou, te convido a se inscrever meu canal do youtube, tenho uns videos de vba cursodeexcelgratis.com.br/canal