contador de linhas sped fiscal

[leonardo092004]

Bom dia prezados(as),
precisava de uma formula que que contasse o numero de um determinado registro de uma coluna.. exemplo abaixo:
observação: o código precisa identificar quando for para contar os Registros "0200".
Tentei um modo onde combinava o valor da coluna 1 com a coluna 2.

9900| 0150| 193|
9900| 0190| 2|
9900| 0200| 3617| contar na coluna (1) os registro que for "0200" e gravar na célula da coluna (3)
9900| 0205| 14|contar na coluna (1) os registro que for "0205"e gravar na célula da coluna (3)
9900| 0400| 4|contar na coluna (1) os registro que for "0400" e gravar na célula da coluna (3)
9900| 0990| 1|contar na coluna (1) os registro que for "0900" e gravar na célula da coluna (3)
9900| 9001| 1|contar na coluna (1) os registro que for "9001" e gravar na célula da coluna (3)
9900| 9900| 46|contar na coluna (1) os registro que for "9900" e gravar na célula da coluna (3)
9900| 9990| 1|contar na coluna (1) os registro que for "9990" e gravar na célula da coluna (3)
9900| 9999| 1|
9990| 49|
9999| 104489|

[Julio Mangilli]

Poderia postar um modelo exemplo?
Eu imagino que queres contar para poder depois somar todos o registro para salvar o txt para poder importar depois, assim evitando o erro do PVA. Mas só estou imaginando porem se postar um modelo é mais fácil de ajuda-lo.

[leonardo092004]

Bom dia Julio,
sim, exatamente isso...
Mas é isso mesmo que você valou, é o que eu preciso..
o código abaixo e de uma macro gravada..
porem não resolve meu problema, pois eu teria que gerar uma macro para cada registro .. seleciona a celular e aplicar a macro..


Option Explicit
Sub Macro3()
'
' Macro3 Macro
'

ActiveCell.FormulaR1C1 = "=COUNTIF(C[-2],""0200|"")&""|"""
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-2],""0200|"")&""|"""
ActiveCell.Offset(1, 0).Range("A1").Select


End Sub

[leonardo092004]

teria um e-mail para lhe encaminhar a planilha ?
ficaria mais fácil para você visualizar ..

[Julio Mangilli]

Como eu não tenho seu exemplo de como está organizado seus dados eu tenho uma ideia..

Sub Contagem()
MsgBox ContaLinhas(Range("A2:A20"))
End Sub

Function ContaLinhas(area As Range) As Long
Dim celula As Range, TotalLinhas As Long
TotalLinhas = 0
For Each celula In area
If celula = "200" Then
TotalLinhas = TotalLinhas + 1
End If
Next
ContaLinhas = TotalLinhas
End Function

Essa macro vai te ajudar a contar , verifique se a quantidade da certo e se ela demonstra o resultado que queres.
Depois disso podes mudar para em vez de msgbox que ela cole em uma célula especifica.
Tente isso amigo.

[Julio Mangilli]

juliomangilli@hotmail.com