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.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  

Recommended Posts

Bom dia pessoal,

 

Tenho esse código VBA entre muitos outros em minha planilha, mas ainda sou aspirante e demoro a desenvolver.

Preciso trocar o final onde chama uma MsgBox para um ImputBox e o texto informativo aparecer um conteúdo de uma célula.

 

Ela faz basicamente isso:

1. Ao modificar o trecho B4:D10000 é ativada a MsgBox.

2. OK finaliza ela

 

Quero assim:

1. Ao modificar o trecho B4:D10000 é ativada a InputBox

2. Na input quero que apareça os dados da coluna "H" com um texto de introdução, tipo: "O pedido é: -dados da H"

3. Ao inserir uma anotação na caixa de texto, esse texto seja escrito na coluna A.

4. Botão OK aplica, botão cancelar não faz nada.

 

SENHA DO VBA: TAOSSO10

 

 

Dim KeyCells As Range

    Set KeyCells = Range("B4:D1000")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        
     MsgBox "Cobrança feita!", vbInformation, "Status"

Cópia de Plan_TESTE2.zip

Editado por Felipe Carvalho_748684

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Pessoal, arrumei metade da dúvida:

    Falta agora fazer com que o texto que aparece da célula seja respectivo ao da linha modificada, e a entrada seja respectiva:

     

    Exemplo: Se eu modifico a B20, na mensagem aparece a célula H20 e a entrada na célula A20 e assim por diante.

     

    Vejam o código:

     

     

    Private Sub Worksheet_Change(ByVal Target As Range)

       
        Dim KeyCells As Range

        Set KeyCells = Range("B4:D1000")
        
        If Not Application.Intersect(KeyCells, Range(Target.Address)) _
               Is Nothing Then
            
    Range("A4").Value = Application.InputBox("Número de contato: " & Plan1.Range("H5").Value & " ")
           
        End If
    End Sub

    Editado por Felipe Carvalho_748684

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • Boa atrde pessoal,

     

    Resolvido. Obrigado Mikel Silveira Fraga - TVForum

     

    Private Sub Worksheet_Change(ByVal Target As Range)

        'Essas coordenadas correspondem a Range "B4:D1000".
        If (Target.Row >= 4 And Target.Row <= 1000) And _
            (Target.Column >= 2 And Target.Column <= 4) Then
       
            Dim intLinha As Long
           
            intLinha = Target.Row
       
            Range("A" & intLinha).Value = Application.InputBox("Número de contato: " & _
                                                    Plan1.Range("H" & intLinha).Value & " ")
       
        End If

    End Sub

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário






    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

    ×