Ir ao conteúdo
  • Cadastre-se

alexassa

Membros Plenos
  • Total de itens

    74
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

1

Sobre alexassa

  • Data de Nascimento 13/08/1979 (40 anos)

Informações gerais

  • Cidade e Estado
    Japao
  • Sexo
    Masculino
  1. @osvaldomp sim eu mudei no código de 4 para 5 mas nao deu certo.nao seu se viu a foto que postei aqui,, nao esta movendo tudo para baixo.
  2. estou tentando postar mas esta ficando oculto o post, porque será? adicionado 1 minuto depois estou usando este código. como a imagem que estou mandando ele nao mudo todo o conteúdo para baixo. Private Sub Workbook_Open() Dim k As Long 'If [W1] < Date Then [W1] = Date Else: Exit Sub With Sheets("在留確認") For k = .Cells(Rows.Count, 5).End(3).Row To 2 Step -1 If .Cells(k, 5) <> "" And .Cells(k, 5) <= Date Then .Cells(k, 2).Resize(, .Cells(k, Columns.Count).End(1).Column - 1).Cut .Cells(Rows.Count, 2).End(3)(2) .Cells(k, 2).Resize(, .Cells(.Cells(Rows.Count, 4).End(3).Row, Columns.Count).End(1).Column - 1).Delete End If Next k End With End Sub
  3. Private Sub Workbook_Open() Dim k As Long 'If [W1] < Date Then [W1] = Date Else: Exit Sub With Sheets("在留確認") For k = .Cells(Rows.Count, 5).End(3).Row To 2 Step -1 If .Cells(k, 5) <> "" And .Cells(k, 5) <= Date Then .Cells(k, 2).Resize(, .Cells(k, Columns.Count).End(1).Column - 1).Cut .Cells(Rows.Count, 2).End(3)(2) .Cells(k, 2).Resize(, .Cells(.Cells(Rows.Count, 4).End(3).Row, Columns.Count).End(1).Column - 1).Delete End If Next k End With End Sub estou usando este código. como a imagem que estou mandando ele nao mudo todo o conteúdo para baixo. Completo.xlsx
  4. estou usando este código. como a imagem que estou mandando ele nao mudo todo o conteúdo para baixo. Completo.xlsx
  5. @osvaldomp este aqui que você mandou.
  6. @osvaldomp Obrigado, ficou perfeito adicionado 26 minutos depois @osvaldomp Cara, deu e nao deu certo kkkkk tentei mexer no código mas nao deu certo,, nao entendo nada kkkkk este arquivo seria o completo com informação dentro, se puder me ajudar,Obrigado. Conpleto.xlsx
  7. @osvaldomp da uma olhada agora.; obrigado pelas respostas saida20200409.xlsx
  8. @osvaldomp da uma ajuda... tentei mudar o código mas da erro ...:(
  9. @osvaldomp KKKKKKKKKKKKKKKKKK nao deu certo hauhauaha saida.xlsx
  10. @osvaldomp deu certo,, tive que fazer um arquivo novo. como faço para ele mudar todas as informação que estiver na coluna?
  11. @osvaldomp cara tentei salvar o código ,,mas da um erro e nao salva,, meu pc esta em japonês e nao sei qual e o erro,, parece que ele pede o arquivo que tem a macro...
  12. @osvaldomp aqui esta, uma luz por favor saida.xlsx
  13. Salve Galera... Alguma Ideia??
  14. @deciog ate agora deu certo vlwww

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

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!