Bom dia,
Não sei se entendi corretamente e estou falando mais do mesmo. Mas parece que o tal formulário de CADASTRO que você deseja ainda não criou correto ?
Se eu tiver entendido corretamente basta você usar IF's para condicionar os cadastros a ir para a planilha respectiva. Mas seria bom já criar o tal formulário para cadastro, isso facilita para te ajudar.
Exemplo:
Dim idade as integer
idade= txtIDD
If idade<= 12 then
Sheets("até 12m").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtIDD.Value
elseIf idade > 12 and idade <= 24 then
Sheets("13 a 24m").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtIDD.Value
' e assim por diante.... Coloque as demais condições
end if
Espero ter ajudado.
[]'s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 21/11/2016 9:01 am