Jump to content
Fórum Script Brasil

Curso de Excel Grátis

Membros
  • Content Count

    28
  • Joined

  • Last visited

Community Reputation

0 Neutro

1 Follower

About Curso de Excel Grátis

Contatos

  • Website URL
    cursodeexcelgratis.com.br/canal

Perfil

  • Gender
    Female
  • Location
    São Paulo

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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")
  2. 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
  3. se você tem o resultado na planilha, não consegue pegar dela ?
  4. pode estar faltando criar a conexão odbc no painel de controle
  5. 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
  6. 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
  7. 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
  8. 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
  9. 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.
  10. 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
  11. 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 youtu
  12. 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
  13. 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"
×
×
  • Create New...