Bom dia!!
Dentro do botão OK, substituta a linha
proximoIndice = wsCadastroTarefas.UsedRange.Rows.Count + 1
Pela linha
proximoIndice = wsCadastroTarefas.Cells(Rows.Count, "A").End(xlUp).Row + 1
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/03/2014 5:44 am