Ir para conteúdo
Fórum Script Brasil

benzadeus

Membros
  • Total de itens

    84
  • Registro em

  • Última visita

Tudo que benzadeus postou

  1. =MARRED(A1;0,05) e copie a fórmula abaixo.
  2. 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
  3. Poste aqui a macro com a linha que está dando erro ou disponibilize a Pasta de Trabalho para análise.
  4. Qual código você está usando, já possui algum? Quais são os dados que precisa importar? É uma tabela? Dê mais detalhes.
  5. Por que não usar a fórmula: =SOMA(B:B) ?
  6. http://info.abril.com.br/forum/viewtopic.p...;p=52987#p52987
  7. 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
  8. 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
  9. 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.
×
×
  • Criar Novo...