Problema com código

Senhores. Muito bom dia.

Venho mais uma vez recorrer ao conhecimento e experiência dos Srs.
Estou tentando fazer com que um módulo rode somente para uns itens específicos.
Explicando:

Tenho o módulo abaixo:

Public Sub Numerar()
Dim db As Database
Dim rs As Recordset
Dim rsaux As Recordset
Dim ctaux As Integer

Dim ct As Integer


Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from FIFICOTOT order by tagcarga")
rs.MoveFirst

While Not rs.EOF
Set rsaux = db.OpenRecordset("Select count(tagcarga) as qtde from fificotot where tagcarga='" & rs!tagcarga & "'")
ctaux = rsaux!qtde
If ctaux = 1 Then
rs.Edit
rs!teste = rs!tagcarga & "-00000"
rs.Update
rs.MoveNext
Else
For cont = 0 To ctaux - 1
rs.Edit
rs!teste = rs!tagcarga & "-" & Format(cont, "00000")
rs.Update
rs.MoveNext

Next cont
End If

Wend
MsgBox ("Fim")
End Sub


Porém quero que o módulo seja executado somente para os itens que na coluna "IDOPER" esteja preenchido com a informação "I1".

Poderiam me ajudar?

Desde já agradeço a atenção

Bom dia Carlao,

Por gentileza, poste aqui seu banco de dados (somente as partes envolvidas) para que os amigos do fórum possa encontrar uma solução.
Pelo que eu pude analisar, de cara, o procedimento pode ser utilizado somente um select com a soma das quantidades e filtrando o registro que contenha a informação "I1".

Att,

Alexandre

Alexandre.

Muito obrigado pelo interesse em ajudar.
Encontrei mais um erro no módulo.
A coluna "TesteFicar" foi preenchida a mão e mostra como deve ficar a coluna "Teste" após a execução do módulo.
O "-00000" deve ser colocado para os itens onde o Ativocarga for igual ao tagcarga e para os demais itens com tagcarga igual ele deve colocar o -00001; -00002; -00003 etc

Exemplo:


Ativocarga      TagCarga      Teste                 Idoper
121212           121212         121212-00000      I1
131516           121212         121212-00001      I1
141211           121212         121212-00002      I1
101010           101010         101010-00000      I1
202122           101010         101010-00001      I1
323231           101010         101010-00002      I1
404042           101010         101010-00003      I1
101520           101520         101520-00000      I1
182121           182121         182121-00000      I1
353535           353535                                  M1
474747           353535                                  I3
656565           353535                                  I3
858585           858585                                  M1


Anexo Bd.

Obrigado