Reinaldo, boa tarde.
Desculpe, o arquivo que enviei estava incompleto mesmo. O que acontece é que a aba Dados1 será oculta e as pessoas que utilizarem nao poderam ver o preço que esta definido. Estes usuarios so poderam escolher dados na aba Dados 2 e colocar a quantidade. o Gerente marcara a opção de aprovado e ai realizado a multiplicação da coluna quantidade com o preço e este valor será incluido em outra celula.
Segue o codigo que fiz. apesar de estar com dados diferente a logica e a mesma. O problema é que nao quero pegar apenas uma celula, como estou fazendo e sim pegar toda a coluna, pois o usuario pode preencher mais de uma coluna para aprovação do gerente.
Qualquer duvida, estou aqui.
Obrigado.
Sub Custo()
Dim j1 As String 'Fornecedor
Dim j2 As String '
Dim j3 As String ' Local
Dim j4 As String ' Conta
Dim j5 As String ' Serviço
Dim AbaPlanilha As String
j1 = Worksheets("Contas").Cells(5, 1).Value
j2 = Worksheets("Contas").Cells(6, 1).Value
j3 = Worksheets("Contas").Cells(5, 2).Value
j4 = Worksheets("Contas").Cells(5, 3).Value
If j1 = "VETTA" And j3 = "OPERADORA" And j4 = "LEGADO" Then
Worksheets("Contas").Cells(6, 1).Value = "te"
Else
MsgBox (Erro)
End If
Postado : 04/07/2013 10:44 am