"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
'Autor: Eneias dos Santos Pedroso
'
Dim i As Object
Dim Intervalo As Range
Set Intervalo = Range("A1:C10")
'Intervalo onde estão as células na cor vermelha
For Each i In Intervalo
If CorFundo(i) = 3 Then ' [ 3 ]= Vermelho
qtde = qtde + 1
End If
Next i
[D1] = qtde
'Célula que receberá a informação de quantas repetições houve
End Sub
Function CorFundo(vRange As Range)
If Selection.Areas.Count = 1 Then
CorFundo = vRange.Interior.ColorIndex
Else
CorFundo = Null
End If
End Function
----------
Maiores esclarecimentos, acesse o link que está no título deste post !
terça-feira, maio 17, 2005
Assinar:
Postar comentários (Atom)
2 comentários:
Eu tenho uma planilha com cadastro de mercadorias, e atualizo sempre que chega novas mercadorias, e depois classifico por ordem crescente dos nomes da mercadoria.
A questão é: eu faço um controle das mercadorias que são vendidas em uma outra planilha que por sua vez é atualizada automaticamente, mas quando a planilha de (estoque)é classificada na ordem de A a Z, os dados das colunas 'QUANTIDADE' E 'TOTAL'da planilha de vendas permanece como estávam ficando assim os dados errados.
PERGUNTO - tem alguma fórmula que fizesse com que os dados das colunas citadas a cima, acompanhacem os dados da coluna 'PRODUTO'?
Ex. da plhanilha:
Plan Estoque
Colunas: Quant./Produtos/Preço
Obs.: Quant.- se refere a quantidade em estoque.
Plan Vendas
Coluna: Quant./Produtos/Preço/Total
Obs.: Quant.- se refere a quantidade que foi vendido.
Eu tenho uma planilha com cadastro de mercadorias, e atualizo sempre que chega novas mercadorias, e depois classifico por ordem crescente dos nomes da mercadoria.
A questão é: eu faço um controle das mercadorias que são vendidas em uma outra planilha que por sua vez é atualizada automaticamente, mas quando a planilha de (estoque)é classificada na ordem de A a Z, os dados das colunas 'QUANTIDADE' E 'TOTAL'da planilha de vendas permanece como estávam ficando assim os dados errados.
PERGUNTO - tem alguma fórmula que fizesse com que os dados das colunas citadas a cima, acompanhacem os dados da coluna 'PRODUTO'?
Ex. da plhanilha:
Plan Estoque
Colunas: Quant./Produtos/Preço
Obs.: Quant.- se refere a quantidade em estoque.
Plan Vendas
Coluna: Quant./Produtos/Preço/Total
Obs.: Quant.- se refere a quantidade que foi vendido.
Postar um comentário