Página 1 de 1
Alimentando tabela referenciada com formulario VBA
Enviado: 09 Out 2019 às 14:40
por wmazoni
Boa tarde prezados
Eu fiz um formulário para alimentar uma tabela que será a base de dados. Eu vi na internet a fóruma para a macro sempre selecionar a ultima linha para inserir as proximas informações, seria esse o código:
Código: Selecionar todoslinha = Sheets("BASE").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Row
Sheet3.Cells(linha, 5).Value = Me.txtData.Value
Sheet3.Cells(linha, 6).Value = Me.txtHorario.Value
Sheet3.Cells(linha, 7).Value = Me.txtNome.Value
Sheet3.Cells(linha, 8).Value = Me.txtRamal.Value
Sheet3.Cells(linha, 9).Value = Me.txtAssunto.Value
.
Mas o formulário não preenche a tabela que já existe na planilha. Ele pega a primeira célula que não possui informações e seleciona ela. Eu gostaria que ele selecionasse dentro da tabela, mas essa linha esta selecionando a primeira célula depois da tabela criada.
Qual seria o código para usar a minha tabela de nome AgendadorDeTarefas como a base de dados do formulário?
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 09 Out 2019 às 17:06
por osvaldomp
Considerei que o cabeçalho da Tabela Excel está na linha 1.
Código: Selecionar todoslinha = IIf(Sheets("BASE").Range("AgendadorDeTarefas").Cells(1, 1) = "", 1, Sheets("BASE").Range("AgendadorDeTarefas").Cells(0, 1).End(4).Row) + 1
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 11 Out 2019 às 13:33
por wmazoni
Boa tarde, segue a imagem imagem da planilha, eu alterei o número de linhas e mesmo assim não funcionou. Eu tirei um print
https://ap.imagensbrasil.org/image/rsWJF8
Muito obrigado
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 11 Out 2019 às 13:51
por osvaldomp
Disponibilize uma amostra do arquivo Excel, imagens não servem.
Informe qual o resultado que o seu código atual está fornecendo e informe o resultado desejado.
Alimentando tabela referenciada com formulario VBA
Enviado: 11 Out 2019 às 20:25
por wmazoni
Boa noite, segue a planilha que eu estou tentando fazer essa configuração.
https://www.dropbox.com/s/im1c8w37y2a79 ... .xlsm?dl=0
Obrigado
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 12 Out 2019 às 08:00
por osvaldomp
Anexe o arquivo diretamente no fórum: + Resposta / Adicionar um anexo / Selecione o arquivo
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 14 Out 2019 às 08:18
por wmazoni
Bom dia, segue a planilha em anexo.
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 14 Out 2019 às 09:04
por osvaldomp
Código: Selecionar todoslinha = IIf(Sheets("BASE").Range("AgendadordeEventos").Cells(1, 1) = "", 3, Sheets("BASE").Range("AgendadordeEventos").Cells(0, 1).End(4).Row + 1)
Fiz o ajuste pois o cabeçalho está na linha 2 e alterei o nome da tabela para
AgendadordeEventos, que é diferente do nome
AgendadorDeTarefas que você informou no primeiro post.
Alimentando tabela referenciada com formulario VBA
Enviado: 14 Out 2019 às 10:28
por wmazoni
Muito obrigado, funcionou. Desculpe pelo erro de informação.
Re: Alimentando tabela referenciada com formulario VBA
Enviado: 16 Out 2019 às 16:38
por wmazoni
Boa tarde novamente pessoal!
Agora estou com outro problema. O campo “hora” gostaria de criar uma caixa de combinação. Quando eu seleciono um horário, o campo fica formatado como decinal, e não como hora conforme a coluna está. Também estou com outro problema que não consigo entender. Eu possuo a tabela AgendadordeEventos na planilha Base, uma coluna chamada “VALOR EXCLUSIVO (CALCULADO)”. Sem essa coluna toda a automação da planilha não funciona. Quanto eu cadastro um agendamento pelo vba, a linha dessa tabela fica em formato data e por causa disso a automação da planilha não funciona. Quando eu cadastro manualmente as informações na tabela a automação funciona normalmente. Percebi que se eu clicar duas vezes na célula data da linha que eu acabei de cadastrar pelo formulário e desselecioná-la, a linha valor exclusivo se atualiza e a automação volta a funcionar.