Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Luxo

privat Sub

Mensagens Recomendadas

Luxo    0
Luxo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
        If Target.Value <> "" Then
            Range("A11").Value = WorksheetFunction.Average(Range("A1:A10"))
        End If
    End If
End Sub

Algem me sabe dizer como faço para trabalhar com um privat Sub!Como é chamo este exemplo com uma macro?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Luxo    0
Luxo

olha e este código funciona também numa macro?tipo eu tenho uma macro num ficheiro que me abre cria noutro ficheiro, tipo uma base de dados. e eu estou a colocar os valores numa células e queria que ele me calcula se a media de determinadas células e depois apagava esses valores das células mas mantinha os valores da media?fiz me entender?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Luxo    0
Luxo

Ya funciona numa macro normal, mas numa macro que abra outro ficheiro nao estou a conseguir, ou seja que va buscar valores que estao nas celulas desse ficheiro. por acaso nao sabes se da

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Luxo    0
Luxo

Bons dias jpaulino

Olha naquela funçãoque me arranjas te

Range("A11").Value = WorksheetFunction.Average(Range("A1:A10"))

Porque é que se eu colocar assim:

oSheet1.Cells(3, 3).Value = WorksheetFunction.Average(oSheet.Cells(56, 7), oSheet.Cells(56, 9)

ele calcula a média mas conta me as células vazias?consegues me explicar?ou fazer algo do genero que so me fize se a média das celulas preenchidas?se puderes responde me?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade