benzadeus
-
Total de itens
84 -
Registro em
-
Última visita
Posts postados por benzadeus
-
-
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)
?
-
-
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.
Arredondar Números
em Microsoft Office
Postado
=MARRED(A1;0,05) e copie a fórmula abaixo.