Se vc aplicou formatação condicional, seria difícil contar as cores, mesmo por VBA, porque a cor não está na célula.

Por outro lado, vc pode contar pelo critério que vc colocou na formatação condicional.

Vc pode anexar a planilha? Ficaria mais fácil.

Boa tarde!!

Leia:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

http://www.cpearson.com/excel/cfcolors.htm

Att

E um loop na coluna A informando se o numero inserido já existe ? APÓS ESTAS INSTRUÇÕES
Private Sub OK_Click()
ThisWorkbook.Worksheets("romaneio").Activate
If TextBox2 = "" Then
MsgBox "Digite a NF de um cliente"
Exit Sub
End If
If TextBox1.Text = "" Then
TextBox1.Value = Now
End If
Range("A3").Select
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox2.Value
ActiveCell.Offset(0, 1).Value = ComboBox1
ActiveCell.Offset(0, 2).Value = TextBox1

Usar validação de dados, como nesse tópico, não te ajuda?

viewtopic.php?f=10&t=13730

Para "ver" se o valor no Textbox2 já consta no arquivo, voce pode "procurar" o valor se existir avisa, caso contrario segue .
O código ficaria +/- assim

Private Sub OK_Click()
ThisWorkbook.Worksheets("romaneio").Activate
Dim vTem As Variant
If TextBox2.Text = "" Then
MsgBox "Digite a NF de um cliente"
Exit Sub
End If
If TextBox1.Text = "" Then
TextBox1.Text = Now
End If
Range("A3").Select
vTem = Application.Match(TextBox2, Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row), 0)
    If IsError(vTem) Then
        Cells(vTem + 1, 1).Value = TextBox2.Text
        Cells(vTem + 1, 1).Value = ComboBox1
        Cells(vTem, 2).Value = CDate(TextBox1.Text)
    Else
        MsgBox "Nota já cadastrada, na linha: " & vTem + 1
    End If
End Sub

A VALIDAÇÃO FUNCIONOU DIGITANDO DIRETO NA CELULA, PORÉM CADASTRANDO PELO TEXTBOX, NÃO VALIDA , CONTINUA ACEITANDO DUPLICIDADE.

A ideia do Rlm da ' tipos incompativeis nesta linha '

Cells(vTem + 1, 1).Text = TextBox2.Text

Não tem essa linha no que passei, mas sim --> Cells(vTem + 1, 1).Value = TextBox2.Text

E como disse, é =/- , deve ser adaptado a sua realidade, que convenhamos, não sei qual é;
Normalmente não respondo tópicos sem exemplo, pois 99.9% dos casos dá tilt.

segue anexo. tem o cadastro diario onde é impresso os romaneios . e tem o "MENSAL " . No OK ele salva tanto na lista do "romaneio" , como no "geral", porem se o que ele lançou já existir no "geral" , o excel precisa informar q este numero já existe.

senha 100606

senha 100606

Romaneio cadastra sem checar, checa somente no Mensal? Se existir em mensal o que fazer?

De uma olhada.