Ir para conteúdo
Fórum Script Brasil

ljvo.2003

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre ljvo.2003

ljvo.2003's Achievements

0

Reputação

  1. olá galera do fórum, to precisando de uma grande ajuda. Estou desenvolvendo uma planilha para cadastro de atividades tipo um relatório, criei toda a parte de cadastro onde no textbox1 da userform1 criada quando digito os dados de cada textbox ao clicar em salvar elas ocupam as celulas como num banco de dados. Criei também um botão para visualizar os dados já inseridos, só que só consigo visualizar uma unica celula, gostaria de quando clicasse no botao eu navegaria pelas celulas sendo visualizadas na textbox2 da userform2. como um botão para avançar e outro para retroceder entre as linhas da planilha.
  2. Galera tenho uma userform com tres textbox onde coloco a hora inicial, na outra a hora final, e gostaria que na terceira textbox não fosse editável e mostrasse a diferença em horas entre a textbox2 e a textbox1 assim que os dados fossem inseridos nas duas primeiras textbox. Já fiz de tudo e até hoje não consegui. eu fiz dessa maneira mas não deu certo: Private Sub HINICIO_Change() HINICIO.MaxLength = 5 If Len(HINICIO) = 2 Or Len(HINICIO) = 2 Then HINICIO.Text = HINICIO.Text & ":" SendKeys "{End}", True End If End Sub Private Sub HFINAL_Change() HFINAL.MaxLength = 5 If Len(HFINAL) = 2 Or Len(HFINAL) = 2 Then HFINAL.Text = HFINAL.Text & ":" SendKeys "{End}", True End If End Sub Private Sub TEMPO_Change() Dim x As Integer Dim y As Integer x = HINICIO.Text y = HFINAL.Text TEMPO.Text = y - x End Sub Agradeço a todos :rolleyes:
×
×
  • Criar Novo...