Ir para conteúdo
Fórum Script Brasil

benzadeus

Membros
  • Total de itens

    84
  • Registro em

  • Última visita

Posts postados por benzadeus

  1. 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

  2. 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

×
×
  • Criar Novo...