Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

xxmarcos2

Membros Juniores
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Bom Dia, Gostaria que toda vez que eu abrisse a minha planilha essa macro seja executada sozinha Dim Inicio As Boolean Sub MeuRelogio() If Inicio = True Then Range("A1").Value = Time Application.OnTime Now() + TimeValue("00:00:01"), "MeuRelogio" End If End Sub Sub IniciarRelogio() Inicio = True Call MeuRelogio End Sub Sub PararRelogio() Inicio = False End Sub
  2. consegui fazer aqui.. obrigado pela ajuda Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then For i = 1 To Plan1.Shapes.Count If ActiveSheet.Shapes(i).TextFrame2.TextRange.Characters.Text = Plan1.Range("A1").Text Then '__ENCONTRANDO ALTURA DO OBJETO E COMPARANDO COM A CÉLULA POSTERIOR MAIS PROXIMA...__________________________ For Each celula In Plan1.Range("A1:R10000") If celula.Top > ActiveSheet.Shapes(i).Top And celula.Left > ActiveSheet.Shapes(i).Left Then celula.Select Exit For End If Next '_________________________ ActiveSheet.Shapes(i).Select Exit Sub End If Next i MsgBox "Não Encontrado!", vbExclamation, "Sem Retorno" End If End Sub
  3. Boa Tarde, Anexa a Planilha Fica Mais fácil para testarmos formulas !!!
  4. Me explique direito,, qual informação você quer que transfira para a outra planilha?: Não consegui entender a sua plan
  5. Bom Dia, Poderia Tirar um Print da Planilha ou anexa-la
  6. Bom Dia, Usar a função Procv se poder Anexar a Planilha ou um Print Para facilitar
  7. Bom Dia, Sou novo por aqui.. alguem poderia me ajudar. Gostaria de saber se tem como localizar um texto ou numero dentro de uma forma. por exemplo inseri um quadrado e dentro dele coloquei o numero 10.. tem como um pesquisar e localizar ele Sub Forma() ActiveSheet.Shapes.Range(Array("30")).Select End Sub fiz essa seguinte macro.. mais ela só pesquisa Matriz. Gostaria que ela pesquisa-se o valor da Celula "A1" Estou criando uma planilha para controle de pneus. e achei interessante usar formas como "Pneus", assim fica mais fácil para eu movimentar os "Pneus" dentro da planilha.. mais tem um Problema na hora de procurar tal pneu tenho que ficar procurando manualmente se tiver alguma Macro que localiza Formas!! Por Exemplo um Quadrado OBS: CADA "PNEU" TEM UMA NUMERAÇÃO.. então CADA QUADRADO TEM UM NUMERO .

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×