Pesquisando a string em um texto em 1 coulmn

1

Sou muito novo na codificação VBA, gostaria de ter alguma ajuda, já que venho tentando há dois dias, tenho dados fixos na coluna A, gostaria de pesquisar uma string nessa coluna, por exemplo Data da declaração, se encontrada, extrair a data e criar uma nova coluna na próxima folha2, colocar a data da Declaração como cabeçalho e 01/01/2008 como detalhe, anexe a próxima ocorrência, se encontrada. Aqui está o meu código de novato.

Sub testing44()
 Dim intPasteRow As Integer
    intPasteRow = 1
    Dim intRow As Integer
    Dim Found As Range, FirstFound As String


Sheets("Sheet1").Select
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:="STATEMENT DATE *", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

If Err.Number = 91 Then
    MsgBox "ERROR: 'STATEMENT DATE:' could not be found."
    End
End If


On Error Resume Next
Selection.Find(What:="INITIAL MARGIN", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

If Err.Number = 91 Then
    MsgBox "ERROR: 'INITIAL MARGIN' could not be found."
    End
End If


intRow = ActiveCell.Row
Rows(intRow & ":" & intRow).Select
Selection.Copy

Sheets("Sheet2").Select
Range("A" & intPasteRow).Select
ActiveSheet.Paste

Sheets("Sheet2").Select
Rows(intRow + 1 & ":" & intRow).Select
End Sub
    
por user308401 17.03.2014 / 15:44

1 resposta

0

Não é exatamente claro o que você está tentando fazer, mas com base no que você nos disse até agora, tenho algumas sugestões específicas:

Ao criar novas planilhas a partir de dados existentes, eu geralmente passo através dos dados iniciais em um loop, procurando por características nas quais estou interessado, então copiando toda a fileira (ou células particulares que eu estou interessado) para o nova folha uma linha de cada vez. O que não está claro para mim é quantas novas folhas seu programa criará? Se mais de dois, sugiro que você repensar o exercício.

- isso torna o seu software muito mais simples de implementar

- considere criar uma folha de saída ÚNICA. Adicione uma coluna para "data da declaração" e, em seguida, utilize a opção "filter - autofilter" para permitir que os usuários finais selecionem por si mesmos o que é isso.

É mais fácil se os dados começarem como linhas, fazer a macro, criar linhas como saída. Eu vou dizer, o que faz essa coisa de copiar um pouco complicado é se os campos de entrada de dados individuais originais estão em formato de string ou formato numérico.

Se você insistir em uma nova planilha para cada "data da declaração" e precisar dos dados da coluna, então, como última etapa da macro, transponha as linhas para as colunas

    
por 17.03.2014 / 22:33