• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Luxo

privat Sub

10 mensagens neste tópico

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Fazes ALT+F11 para abrir o editor e depois duplo-click na worksheet que queres usar o código e usas esse código.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas entao quando carrego no Run Sub nao esta nenhuma macro a funcionar. basta por a formula na celula é?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

já vi que esta a dar!obrigada lol não sabia que não era preciso macro para poder funcionar com esse código  lol

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Dessa forma funciona sempre que modificas um valor no range definido ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Numa macro podes calcular apenas a média utilizando:

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

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