Este fórum está sendo desativado

[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 todos

linha = 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?

[osvaldomp]

Considerei que o cabeçalho da Tabela Excel está na linha 1.

Código: Selecionar todos

linha = IIf(Sheets("BASE").Range("AgendadorDeTarefas").Cells(1, 1) = "", 1, Sheets("BASE").Range("AgendadorDeTarefas").Cells(0, 1).End(4).Row) + 1

[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

[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.

[wmazoni]

Boa noite, segue a planilha que eu estou tentando fazer essa configuração.

https://www.dropbox.com/s/im1c8w37y2a79 ... .xlsm?dl=0

Obrigado

[osvaldomp]

Anexe o arquivo diretamente no fórum: + Resposta / Adicionar um anexo / Selecione o arquivo

[wmazoni]

Bom dia, segue a planilha em anexo.

[osvaldomp]

Código: Selecionar todos

linha = 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.

[wmazoni]

Muito obrigado, funcionou. Desculpe pelo erro de informação.

[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.