Ir ao conteúdo
  • Cadastre-se

CasaDoHardware

Membros Plenos
  • Total de itens

    1.796
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

220

8 Seguidores

Sobre CasaDoHardware

  • Data de Nascimento 07-03-1975 (43 anos)

Informações gerais

  • Cidade e Estado
    Nova Iguaçu - RJ
  • Sexo
    Masculino

Outros

  • Interesses
    Informatica - Xadrez
  1. Vamos la entao!! O 0 na frente basta você formatar a celula de destino como texto. no caso a celula E7 da planilha proposta. Qto ao nome do arquivo é so você alterar a variavel nome Nome = WP.Range("X7").Value Faça as devidas alterações o nome do arquivo sera o que você estiver na celula X7 ou na celula que você indicar. Se ao invés do valor que estiver em X7 você quiser o valor de AK7 é so fazer assim: Nome = WP.Range("AK7").Value
  2. Se eu entendi isso atende sua necessidade Sub IMPRESSAO_AUT() Dim WB As Worksheet Dim WP As Worksheet Dim Caminho As String Dim Nome As String Dim WBLinha As Long Set WB = Sheets("BASE") Set WP = Sheets("PROPOSTA") WBLinha = 2 Caminho = "Informe aqui o caminho do arquivo" Nome = WP.Range("X7").Value Do While WB.Cells(WBLinha, 1).Value <> "" WP.Range("E7").Value = WB.Cells(WBLinha, 1).Value WP.PrintOut COPIES:=2 ChDir Caminho WP.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & Nome & ".pdf" WBLinha = WBLinha + 1 Loop End Sub
  3. Em que formulario você quer o filtro não identifiquei. Qto a impressão de dados da listbox você precisa passar essas informações para uma planilha para que seja possivel a impressão. E por ultimo nao entendi bem o segundo userform de alteração. Eu colocaria os dados do banco abaixo e nao como você fez. Fica mais amigavel para o usuario.
  4. Não encontrei na planilha o codigo que faz a gravação na planilha relatorio. Entao ve se ajuda!! PLANILHA IEVG 2.zip
  5. Uma pergunta! porque transferir para o Word ao invés de manter no Excel? Seria bem mais simples manter no excel.
  6. Sendo assim!! Use este codigo. Considerei o titulo na linha 1. Sub ocultarcoluna() Dim Coluna As Integer For Coluna = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column If Cells(1, Coluna).Value <> "a" _ And Cells(1, Coluna).Value <> "c" Then Columns(Coluna).EntireColumn.Hidden = True End If Next Coluna End Sub
  7. É so fazer assim em G5: =SE(soma(D5:F5)=0;"";soma(D5:F5)) Depois basta arrastar
  8. As celulas G5:G64 possuem formulas que você preenche. Sendo assim você precisa apagar os dados de onde alimenta essas celulas Vamos supor que as celula G5 tenha essa formula =A5*F5 Entao em G5 coloque um SE = SE(A5*F5)=0;"";(A5*F5)), repita para as demais celulas da coluna. Ou seja Se o Resultado da formula for 0 você deixa a celula Vazia Pessoalmente prefiro usar a formatação condicional.
  9. A tabela Dinamica na Listview nao. Penso que o ideal seria você apenas ocultar as guias que o usuario nao deva ter acesso, e liberar o acesso apenas a tabela dinamica ou ao que ele possa operar como formularios de impressão por exemplo. Da ate para deixar as guias de forma que o usuario nem sabia de sua existencia. Se você me perguntar se é seguro, isso depende do conhecimento do seu usuario e do qto ele é curioso. Veja um exemplo de como o arquivo pode ser Nesta planilha tem 3 guias Planilha 1 ele tem acesso Planilha 2 esta oculta e o usuario pode encontrar com facilidade Planilha 3 ele nem sabe que existe. exemplo planilha oculta.xlsx
  10. Uma Tabela dinamica deixaria isso muito, mas muito mais leve. Não tenha duvida!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×