Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

CasaDoHardware

Membros Plenos
  • Total de itens

    1.695
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

195

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. Se é na vazia tente o que o Patropi propos ou isso Range("C "& Rows.Count).end(xlup).offset(1,0).select
  2. O que esta acontecendo neste exemplo é que o arquivo contem vinculos com outro arquivo O nome desse arquivo que solicita para abrir, nao tem nada relacionado ao codigo, é 2018 Contr Geral Veic 1.xlsx Qto ao problema de deletar a linha errada troque no codigo esta parte do codigo .Rows(LinhaTotal - 1) Por esta .Rows(LinhaTotal - 2) O codigo vai sempre atuar 2 linhas acima da ultima linha de dados.
  3. Troque isto: Columns("C:C").Select Por isso: Range("C "& Rows.Count).end(xlup).select
  4. Seria melhor disponibilizar uma planilha ao invés da imagem. Mas pode tentar com somarproduto.
  5. As celulas mescladas nos titulos aparentemente sao a causa disso. Realmente nao sei se ha como resolver.
  6. No codigo que postei nao tem nenhuma informação de senha. Como você nao postou sua planilha com o codigo nao consigo reproduzir para corrigir Não excluir linhas com dados não foi informado no post inicial, logo nao houve preocupação para com isso. Colocar uma mensagem de confirmação é bem simples. Se tivesse no primeiro post postado a planilha como modelo a resposta seria mais completa Aguardando postar a planilha com os codigos que você esta usando porque no que postei nao precisa de senha para bloquear nem desbloquear. Compacte o arquivo para postar.
  7. Tenta assim Somarproduto((coluna placa = placa)*(coluna data inicial >= data inicial)*(coluna data final <= data final)*(coluna motorista)) Placa, data inicial e data final funcionam melhor se você informar esses valores em uma celula ao invés da formula. Importante: Informe a data completa nao apenas o dia. Ex ao invés de informar dia 06 informe 06/01/2018
  8. Experimente estes codigos. Cole todos em um unico modulo. Public LinhaTotal As Long Sub Inserir() With Sheets("Planilha1") 'troque planilha1 pelo nome da guia que você vai usar o codigo. .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Rows(LinhaTotal - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Protect End With End Sub Sub Apagar() With Sheets("Planilha1") .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Range("A5:L" & LinhaTotal - 1).ClearContents .Protect End With End Sub Sub Deletar() With Sheets("Planilha1") .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Rows(LinhaTotal - 1).Delete .Protect End With End Sub
  9. Nao entendi bem mas você quer ao terminar selecionar a coluna C? Se for isso é so acrescentar no codigo Columns("C:C").Select
  10. Tente assim Private Sub cmd_exit_Click() Range(Cells(lClient, 3), Cells(lClient, 5)).ClearContents Unload Me End Sub
  11. Dependendo da versao do seu office você precisa instalar um suplemento. Se nao me engano a a partir do 2013 ja vem no office. Da uma pesquisada no assunto você vai conseguir
  12. Se estas informações sao sigilosas, sugiro colocar no googledocs apenas o necessario.

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

×