none
incluir linha e copiar dados de acordo com a quantidade de caracteres incluso em uma célula. RRS feed

  • Pergunta

  • Boa tarde!

    Em uma linha tenho algumas informações preenchidas e separadas por varias colunas. Quando uma determinada célula de uma coluna ex. G:4 ultrapassar os 50 caracteres que estão preenchidos na célula, queria que automaticamente incluísse uma outra linha copiasse todos os dados das outras colunas, e copiar na coluna G:4 os caracteres que ultrapassaram, e em uma outra célula queria incluir a numeração 2, como se fosse uma continuação. 

    Caso alguém tenha uma outra forma para o resolução do problema, peço por favor, que me informe como fazer.

    Obrigada!


    • Editado Thaís29 segunda-feira, 16 de outubro de 2017 20:52
    segunda-feira, 16 de outubro de 2017 20:51

Todas as Respostas

  • Sub teste()
    
    'verifica se possui mais de 50 caracteres
    
    If Len(ThisWorkbook.Sheets("Planilha1").Range("G4").Value) > 50 Then
    
    
    
    End If
    
    
    
    End Sub


    Anderson Diniz

    terça-feira, 17 de outubro de 2017 02:19
  • Option Explicit
    
    Sub teste()
    
    'verifica se possui mais de 50 caracteres
    
    If Len(ThisWorkbook.Sheets("Planilha1").Range("G4").Value) > 50 Then
    
    'insere uma linha acima
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    
    End If
    
    
    
    End Sub


    Anderson Diniz

    terça-feira, 17 de outubro de 2017 02:22
  • Option Explicit
    
    Sub teste()
    
    'verifica se possui mais de 50 caracteres
    
    If Len(ThisWorkbook.Sheets("Planilha1").Range("G4").Value) > 50 Then
    
    'insere uma linha acima
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    'copia os 50 caracteres da esquerda para a linha que foi acrescentada
    ThisWorkbook.Sheets("Planilha1").Range("G4").Value = Left(ThisWorkbook.Sheets("Planilha1").Range("G5").Value, 50)
    
    End If
    
    
    
    End Sub


    Anderson Diniz

    terça-feira, 17 de outubro de 2017 02:27
  • Agora vou ter que ver algum esforço de sua parte em criar mais algumas linhas de código. Se você postar um código já quase pronto, pode ser que eu possa te ajudar a concluir.

    Anderson Diniz

    terça-feira, 17 de outubro de 2017 02:30