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:  
Entre para seguir isso  
Stla

Vba

Recommended Posts

Boa Noite Galera...

Estou tentando executar essa macro para gravar os dados de um formulário em uma planilha, mas aparece a msg "Erro em tempo de execução 424: o objeto é obrigatório.

Alguem pode me ajudar?!

Sub Botão23_Clique()

'ativar a planilha Inf_Clientes

ThisWorkbook.Worksheets("Registro").Activate

'selecionar a célula A2

Range("A2").Select

'procurar a primeira célula vazia

Do

If Not (IsEmpty(ActiveCell)) Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

'registrar dados digitados do formulário na planilha

ActiveCell.Value = executivofinal.Value

ActiveCell.Offset(0, 1).Value = clientefinal.Value

ActiveCell.Offset(0, 2).Value = cnpjfinal.Value

ActiveCell.Offset(0, 3).Value = cnpjfinal2.Value

ActiveCell.Offset(0, 4).Value = filiaisfinal.Value

ActiveCell.Offset(0, 5).Value = qntfiliaisfinal.Value

ActiveCell.Offset(0, 6).Value = perfilfinal.Value

ActiveCell.Offset(0, 7).Value = qntfuncionariosfinal.Value

ActiveCell.Offset(0, 8).Value = ramofinal.Value

ActiveCell.Offset(0, 9).Value = nomefinal.Value

ActiveCell.Offset(0, 10).Value = cargofinal.Value

ActiveCell.Offset(0, 11).Value = telefonefinal.Value

ActiveCell.Offset(0, 12).Value = celularfinal.Value

ActiveCell.Offset(0, 13).Value = emailfinal.Value

ActiveCell.Offset(0, 15).Value = I30.Value

ActiveCell.Offset(0, 16).Value = K30.Value

ActiveCell.Offset(0, 17).Value = N30.Value

ActiveCell.Offset(0, 18).Value = P30.Value

ActiveCell.Offset(0, 20).Value = I32.Value

ActiveCell.Offset(0, 21).Value = K32.Value

ActiveCell.Offset(0, 22).Value = N32.Value

ActiveCell.Offset(0, 23).Value = P32.Value

ActiveCell.Offset(0, 25).Value = I34.Value

ActiveCell.Offset(0, 26).Value = K34.Value

ActiveCell.Offset(0, 27).Value = N34.Value

ActiveCell.Offset(0, 28).Value = P34.Value

ActiveCell.Offset(0, 30).Value = I36.Value

ActiveCell.Offset(0, 31).Value = K36.Value

ActiveCell.Offset(0, 32).Value = N36.Value

ActiveCell.Offset(0, 33).Value = P36.Value

ActiveCell.Offset(0, 35).Value = I38.Value

ActiveCell.Offset(0, 36).Value = K38.Value

ActiveCell.Offset(0, 37).Value = N38.Value

ActiveCell.Offset(0, 38).Value = P38.Value

ActiveCell.Offset(0, 40).Value = I40.Value

ActiveCell.Offset(0, 41).Value = K40.Value

ActiveCell.Offset(0, 42).Value = N40.Value

ActiveCell.Offset(0, 43).Value = P40.Value

ActiveCell.Offset(0, 45).Value = I42.Value

ActiveCell.Offset(0, 46).Value = K42.Value

ActiveCell.Offset(0, 47).Value = N42.Value

ActiveCell.Offset(0, 48).Value = P42.Value

ActiveCell.Offset(0, 49).Value = datacenterfinal.Value

ActiveCell.Offset(0, 50).Value = backupfinal.Value

'depois de finalizada ir para executivo

cxtExecutivo.SetFocus

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

Entre para seguir isso  





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

×