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.

Ingo M P Américo

Membros Plenos
  • Total de itens

    44
  • Registro em

  • Última visita

  • Qualificações

    N/D

Reputação

8

Sobre Ingo M P Américo

Informações gerais

  • Cidade e Estado
    Hellcife
  • Sexo
    Prefiro não dizer
  1. Verificar se números são iguais via VBA

    @Basole Funcionou perfeitamente. Pra variar, você mais uma vez salvando minha pele. Quando vier para Recife, me avisa, pra eu te pagar uma cerveja.
  2. Verificar se números são iguais via VBA

    Olá Pessoal! Tenho a seguinte linha em uma planilha: A parte verde é gerada randomicamente via VBA enquanto a azul é fixa. Como eu faço para que nenhum dos números (verdes + azuis) se repitam? Estou usando esse VBA: Sub gerarNumeros() '///////// Isso gera 60 número aleatórios e joga na planilha APOIO Const nMínimo As Long = 1 Const nMáximo As Long = 60 Const strDestino As String = "APOIO!B2:K2" Dim n As Long Dim r As Long Dim col As Collection Randomize Timer Set col = New Collection On Error Resume Next Do n = Int(Rnd * nMáximo) + nMínimo col.Add n, CStr(n) Loop Until col.Count = nMáximo For n = 1 To nMáximo Range(strDestino).Cells(n) = col(n) Next n On Error GoTo 0 '///////// Isso pega os 10 primeiros números e joga parte verde da planilha TABELA COM FECHAMENTO Sheets("APOIO").Select Range("B2:K2").Select Selection.Copy Sheets("TABELA COM FECHAMENTO").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Estou mandando a planilha como anexo. FECHAMENTO TABELA TESTE.zip
  3. problema ao concatenar dentro de contse

    @diego_janjao Funcionou perfeitamente. Obrigado! Apenas não entendi o porquê de usar INDIRETO na fórmula.
  4. problema ao concatenar dentro de contse

    @Basole e @diego_janjao , obrigado pelas respostas! Não consegui fazer o que estou querendo, seguindo as explicações que vocês deram. Como achei que era uma coisa simples de resolver, talvez EU não tenha explicado direito (exemplo anexo). Seguinte... Tenho uma matriz com 435 linhas. Cada linha possui um CONT.SE para contar os valores presentes em outra matriz. Para fazer isso, estou usando o seguinte: CONT.SE(riscosMatrizPGRTIOE1;M12) "riscosMatrizPGRTIOE1" é o nome que dei para um conjunto de linhas e colunas presente na matriz onde conto os valores. Acontece que existem 15 tipos de riscosMatrizPGRTI que precisam ser alterados sempre que eu precisar mudar o tipo da contagem. Então, ao invés de mudar manualmente 435 vezes, eu gostaria de concatenar "riscosMatrizPGRTI" (parte fixa) com "OE(n)" (parte variável), onde (n) é um número que vai de 1 a 15. exemplo concatenar.xlsx
  5. problema ao concatenar dentro de contse

    Olá pessoal! Alguém sabe me dizer porque eu não consigo concatenar as células abaixo? adicionado 4 minutos depois Também tentei fazer usando &, mas também não funcionou (vide abaixo). Me parece ser uma erro primário, mas não imagino qual é o problema.
  6. Clicar na imagem e selecionar célula ao lado

    @Basole , Obrigado pela resposta! Prometo que, assim que possível, eu vou fazer VBA com loop infinito só para lhe agradecer. Inseri o código da mudança de nome das imagens que você passou e continuou dando o mesmo erro, então modifiquei a forma como as linhas estavam sendo inseridas. Estava assim: Sheets("copiCola").Select Range("copiSaida").Select Selection.Copy Sheets("SAÍDAS").Select Range("B12:I12").Select Selection.Insert Shift:=xlDown Range("C12").Select E agora ficou assim: Range("B12:L12").Select Selection.Insert Shift:=xlDown Worksheets("copiCola").Range("copiSaida").Copy _ Destination:=Worksheets("SAÍDAS").Range("B12:I12") Range("C12").Select Aparentemente isso corrigiu o problema.
  7. Clicar na imagem e selecionar célula ao lado

    Acho que encontrei a causa do problema: Quando insiro uma nova linha com a mesma imagem do calendário, a imagem fica com o mesmo nome de outra que já existia anteriormente e e aí dá pau no Excel, pois ficam duas imagens com mesmo nome na mesma planilha. Alguma ideia de como resolver isso?
  8. Clicar na imagem e selecionar célula ao lado

    @Basole , Não sei se tem a ver, mas de repente minha planilha começou a apresentar o erro abaixo. Pelo que pesquisei, tem a ver com objetos sendo criados em tempo de execução. Na hora de debugar, a linha abaixo é selecionada, mas ela sempre existiu e nunca deu erro. Alguma ideia?
  9. Clicar na imagem e selecionar célula ao lado

    Oi @Basole . Funcionou perfeitamente. Obrigado mais uma vez!
  10. Outro excel - formulá de dias sem feriados e finais de semana

    Oi @Rafael Scatulino ! Você pode pegar referência da função DIATRABALHOTOTAL() aqui: https://support.office.com/pt-br/article/DIATRABALHOTOTAL-Função-DIATRABALHOTOTAL-48e717bf-a7a3-495f-969e-5005e3eb18e7 Se tiver sido útil, dá um like!
  11. Clicar na imagem e selecionar célula ao lado

    Oi @Basole . Desculpe se a questão ficou turva. Também não percebi que havia enviado apenas o suplemento. Estou mandando o arquivo completo agora, com a planilha que está dando problema. Acredito que a planilha é auto explicativa. data com Date Picker.zip
  12. Clicar na imagem e selecionar célula ao lado

    @Basole Funcionou parcialmente. Passo anexa, a planilha para testes. Estou usando esse VBA que você passou associado com o Date Picker. Quando adiciono uma data pelo Date Picker em uma célula a esquerda do ícone do calendário e tento fazer a mesma coisa em outra célula, a seleção vai para célula onde foi inserida a primeira célula. Sei que ficou meu confuso, mas quando você abrir a planilha, vai entender. data com Date Picker.zip
  13. Mais uma perguntinha simples para os ninjas de plantão: Como eu faço para clicar no smile e selecionar a célula imediatamente ao seu lado? Tentei o VBA abaixo e não deu certo. Sub selectCelula() ActiveSheet.Shapes(Application.Caller).Offset(0, -1).Select End Sub
  14. Abrir suplemento Excel via macro

    Galera, Consegui o código VBA direto no site do fabricante: 'Abrir Date Picker Sub CallDatePickerFromOtherWorkbooks() Dim TestWkbk As Workbook Dim obj As Object If Val(Application.Version) >= 12 Then Set TestWkbk = Nothing On Error Resume Next Set TestWkbk = Workbooks("WinDatePicker.xlam") On Error GoTo 0 If TestWkbk Is Nothing Then MsgBox "Sorry the Date Picker add-in is not open." Else Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj End If End If End Sub
  15. Abrir suplemento Excel via macro

    Olá mais uma vez pessoal! Instalei o suplemento Date Picker no Excel e ele está funcionando perfeitamente (tutorial: http://www.aprenderexcel.com.br/2017/tutoriais/criando-um-seletor-de-datas-no-excel). A janela do Date Picker abre após clicarmos com o botão DIREITO em uma célula. Gostaria que ele abrisse quando o usuário clicasse em um botão ou com o botão ESQUERDO. Tem como? Tentei criar uma macro, mas na hora de gravar, no suplemento não é reconhecido.

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

×