benzadeus

=MARRED(A1;0,05) e copie a fórmula abaixo.

Numere as colunas de 1 a 10, por exemplo, na coluna A e pinte o interior de cada uma dessas células da cor que desejar. Use esse código na classe dessa Planilha: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Columns("C")) Is Nothing Then Exit Sub Target.Offset(, 1).Interior.Color = Cells(Target, "A").Interior.Color End Sub

Poste aqui a macro com a linha que está dando erro ou disponibilize a Pasta de Trabalho para análise.

Qual código você está usando, já possui algum? Quais são os dados que precisa importar? É uma tabela? Dê mais detalhes.

Por que não usar a fórmula: =SOMA(B:B) ?

http://info.abril.com.br/forum/viewtopic.p...;p=52987#p52987

Aparentemente sua macro abre uma outra Pasta de Trabalho. Logo, obviamente, quando você envia a Pasta de Trabalho pra alguém, a que é aberta também deve ser enviada, certo? Sugiro que você sempre deixe as duas Pastas de Trabalho na mesma pasta. Dessa forma, você poderia usar o comando: Private Sub CommandButton1_Click() Workbooks.Open ThisWorkbook.Path & "\planilha.xls" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long ActiveSheet.Unprotect Columns("A").Locked = False For r = 1 To rLast(Columns("A")) Cells(r, "B").Resize(1, 2).Locked = (Cells(r, "A") = "") Next r ActiveSheet.Protect End Sub

Olá, Já resolvi esse problema uma vez e criei esta página para resolver essa questão: http://www.ambienteoffice.com.br/officevba...r_meta_de_soma/ Veja se ajuda.