kaleo.rs

Boa tarde! Essa MACRO foi criado pelo GRANDE wzxnet7, muito bom. Ao adaptar para a minha necessidade ocorre um erro. Quando a MACRO é executada na aba PLAN1, que está ativa, ela funciona bem, porém quando ela é chamada de outra aba que está ativa, da erro no comando a baixo. Como se não encontrasse a PLAN1 na hora de carregar a matriz. matriz = w.Range(Cells(2, 5), Cells(ulinhaprodutos, 5)) mais vendidos sugestão.zip

Bom dia pessoal, Preciso da ajuda, tenho uma macro que monitora uma faixa de células e preciso saber como identificar quando a macro por iniciada se foi teclado ENTER ou TAB?

Boa tarde, pessoal! Existe uma forma de alterar os botões do comando vbYesNo, pois preciso questionar se o usuário quer atualizar DIA ou MÊS resultado = MsgBox("Você deseja Atualizar um Dia ou Mês inteiro?", vbYesNo, "Atualizar Valores") Ao invés de aparecer o botão com o texto SIM e o outro botão com o texto NÃO iria aparecer no lugar do SIM, o texto DIA e no lugar do NÃO aparecer o texto MÊS.

Me passaram a solução. Para quem possa interessar segue abaixo. =SOMARPRODUTO(N(DIREITA($A$1:A$15;2)="P1"))

Pessoal! Estou precisando saber a quantidade de linhas, conforme um determinado critério na célula. Ao usar a função CONT.SES e passar o parâmetro INTERVALO A1:A15 a função considera somente a informação completo da célula, porém o que eu preciso, é fazer uma contagem onde quero usar uma parte da informação e assim atender o parâmetro CRITÉRIO. Exemplificando: Na coluna A todas as informações são diferente, porém pode existir no final dela o conteúdo "P2" e é este critério que eu quero contar quantos existem. tentei usar a seguinte função, mas não funcionou: CONT.SES(ARRUMAR(DIREITA(A1:A15;2));"P2") Alguém teria uma solução? A REC 2222 REC 2210 REC 2215 P1 REC 2215 P2 REC 2189 REC 2216 REC 2221 REC 2201 REC 2207 P1 REC 2207 P2 REC 2209 REC 2211 REC 2218 REC 2204 REC 2176

osvaldomp Muito obrigado funcionou.

Pessoal, Estou com um problema para monitorar as alterações em determinadas células. Ao selecionar uma célula e teclar DEL o Excel limpa a célula sem ocasionar um erro na MACRO, entretanto ao selecionar mais de uma célula e teclar DEL a MACRO da um erro. Preciso as vezes limpara mais de um célula sem que a MACRO entenda que algo foi alterado neste caso. Private Sub Worksheet_Change(ByVal Faixa As Range) ' Dim monitorar As Range ' Set monitorar = Range("A4:D20") ' ' O ERRO OCORRE NA LINHA ABAIXO E MOSTRA ESSA mensagem: "ERRO EM TEMPO DE EXECUÇÃO 13: TIPOS INCOMPATIVEIS" If Faixa.Value = "" Then Exit Sub Else If Not Intersect(Faixa, monitorar) Is Nothing Then xCol = Faixa.Column If xCol = 1 Then MsgBox "Foi alterado a coluna A " ElseIf xCol = 2 Then MsgBox "Foi alterado a coluna B " ElseIf xCol = 3 Then MsgBox "Foi alterado a coluna C " ElseIf xCol = 4 Then MsgBox "Foi alterado a coluna D " End If End If End If ' End Sub ** Em anexo o arquivo Teste2.xlsm

Muito obrigado pessoal. Resolvido.

Segue em anexo as planilhas... O arquivo JANEIRO esta com a planilha DESENVE oculta. Abram o arquivo FEVEREIRO e na planilha FLUXO na célula A1 criei o botão que executa a MACRO. Quando a planilha DESENV no arquivo JANEIRO não está oculta a MACRO funciona perfeitamente, mas quando ela está oculta da o erro. 2016 - JANEIRO.zip

Não funciona, ao substituir os comando eles ativam a aba DESENV da planinha FEVEREIRO e não da planilha JANEIRO. Estes comandos são para a planilha aberta, neste casa a de FEVEREIRO, pois a de JANEIRO vai estar fechada.

Fiz novos testes, e o problema está na aba que fica oculta. Então, preciso saber como reexibir a aba enquanto a MACRO roda e ocultar ela novamente no fim da execução da MACRO.

Galera, Estou tentando acessar uma outra planilha com o nome JANEIRO-2016 onde a aba chamada DESENV está oculta e protegida. Ao clicar no botão na planilha com o nome FEVEREIRO-2016 da um erro ao tentar selecionar a aba da planilha JANEIRO-2016. Sub teste() ' Dim xl As New Excel.Application Dim xlw As Excel.Workbook ' ' *** SELECIONA A ABA DESENV DA PLANILHA FEVEREIRO-2016 TORNA ELA VISÍVEL E DESPROTEGE *** Sheets("Desenv").Visible = True Sheets("Desenv").Select Call Desproteger ' Range("H3:M6000").Select Selection.ClearContents Range("H2").Select ' ' *** ABRE A PLANILHA JANEIRO-2016 QUE NESTE MOMENTO ESTA COM A ABA DESENV OCULTA E PROTEGIDA*** Set xlw = xl.Workbooks.Open(ThisWorkbook.Path & "\JANEIRO-2016.xlsm") ' *** COMO A ABA DESENV ESTÁ OCULTA E PROTEGIDA O COMANDO ABAIXO DA ERRO "método select da classe worksheet falhou" xlw.Sheets("Desenv").Select Existe uma forma de reexibir e desproteger a aba da planilha JANEIRO-2016???

smartrading Anexa a planilha e faz uma explicação o que vocês quer e o teste que devo fazer, que eu vejo o que posso fazer.

Eu preciso atribuir a uma variável um valor para fazer um teste lógico. Variável = foi pressionado DEL IF variavel = foi pressionado DEL Then msgbox "Você teclou DEL" else msgbox "prosiga" end if

Não compreendi bem a sua explanação. Mas vamos lá. Esse comando só funciona quando a célula sofre alguma alteração manual, teclando enter, tab ou del. Esse comando não pode ser repetido, se precisar controlar mais de uma células você precisa definir a célula inicial e a final, neste caso todas as células compreendidas entre a inicial e a final também serão controladas. Portanto, se você precisa rodar a macro Compra1 ou Venda1 pelo valor da celula DX1 ou DX2 que tem formulá, não rola desta forma. Private Sub Worksheet_Change(ByVal faixa As Range) Dim monitorar As Range Set monitorar = Range("dx1:dx2") <<== informa que o intervalo entre DX1 a DX2 será controloda If Not Intersect(faixa, monitorar) Is Nothing Then IF fazer um teste lógico pra saber qual célula estava THEN Call compra1 ELSE Call venda1 END IF End If End Sub No caso da DX1 e DX2 ter que ser por formulá altere a lógica ou a forma te obter o resultado.