Dei uma olhada rápida.
Experimente colocar um "ponto" ao chamar os textbox do formulário lá na Sub InserirPasciente()
Onde estava:
Sheets("Cadastro").Cells(iTotalLinhas, 2).Value = EstabelicimentoSaude
deixe:
Sheets("Cadastro").Cells(iTotalLinhas, 2).Value = .EstabelicimentoSaude
Faça o mesmo com os outros textbox, e veja se deu algum resultado.
Postado : 15/10/2014 6:02 pm