Configuración de modulos para trabajar en una misma hoja

[cogutek]

Realice un formulario y su programación, en una primera instancia la extensión de las lineas era muy grande.

Decidí divir la programacion en varios modulos, pero al momento de introducirlos solo la primer parte funciona el resto no ejecutan y me dan el error 1004.

Gracias

[Sergio]

cogutek, has comprobado que la declaración de variables sea pública?

[cogutek]

Desconozco como chequear la declaracion de las variables.

Sirve si facilito la programación?

Esto es lo que tengo en el botón

Private Sub cmdingresar_Click()

Identificacion.Identificacion

p1.pregunta1

End Sub

Esto es lo que tengo en identificacion

Sub Identificacion()

Dim n As Long

Hoja1.Select

n = 5

Do While (Cells(n, 1) <> Empty Or Cells(n, 2) <> Empety Or Cells(n, 3) <> Empty Or Cells(n, 4) <> Empty Or Cells(n, 5) <> Empty Or Cells(n, 6) <> Empty Or Cells(n, 7) <> Empty Or Cells(n, 8) <> Empty Or Cells(n, 9) <> Empty Or Cells(n, 10) <> Empty Or Cells(n, 11) <> Empty Or Cells(n, 12) <> Empty Or Cells(n, 13) <> Empty Or Cells(n, 14) <> Empty Or Cells(n, 15) <> Empty Or Cells(n, 16) <> Empty Or Cells(n, 17) <> Empty Or Cells(n, 18) <> Empty Or Cells(n, 19) <> Empty Or Cells(n, 20) <> Empty Or Cells(n, 21) <> Empty Or Cells(n, 22) <> Empty Or Cells(n, 23) <> Empty Or Cells(n, 24) <> Empty Or Cells(n, 25) <> Empty Or Cells(n, 26) <> Empty Or Cells(n, 27) <> Empty Or Cells(n, 28) <> Empty Or Cells(n, 29) <> Empty Or Cells(n, 30) <> Empty Or Cells(n, 31) <> Empty Or Cells(n, 32) <> Empty Or Cells(n, 33) <> Empty Or Cells(n, 34) <> Empty Or Cells(n, 35) <> Empty Or Cells(n, 36) <> Empty Or Cells(n, 37) <> Empty Or Cells(n, 38) <> Empty Or Cells(n, 39) <> Empty Or Cells(n, 40) <> Empty & _

Cells(n, 41) <> Empty Or Cells(n, 42) <> Empty Or Cells(n, 43) <> Empty Or Cells(n, 44) <> Empty Or Cells(n, 45) <> Empty Or Cells(n, 46) <> Empty Or Cells(n, 47) <> Empty Or Cells(n, 48) <> Empty Or Cells(n, 49) <> Empty Or Cells(n, 50) <> Empty Or Cells(n, 51) <> Empty Or Cells(n, 52) <> Empty Or Cells(n, 53) <> Empty Or Cells(n, 54) <> Empty Or Cells(n, 55) <> Empty Or Cells(n, 56) <> Empty Or Cells(n, 57) <> Empty Or Cells(n, 58) <> Empty Or Cells(n, 59) <> Empty Or Cells(n, 60) <> Empty Or Cells(n, 61) <> Empty Or Cells(n, 62) <> Empty Or Cells(n, 63) <> Empty Or Cells(n, 64) <> Empty Or Cells(n, 65) <> Empty Or Cells(n, 66) <> Empty Or Cells(n, 67) <> Empty Or Cells(n, 68) <> Empty Or Cells(n, 69) <> Empty Or Cells(n, 70) <> Empty Or Cells(n, 71) <> Empty Or Cells(n, 72) <> Empty Or Cells(n, 73) <> Empty Or Cells(n, 74) <> Empty Or Cells(n, 75) <> Empty Or Cells(n, 76) <> Empty Or Cells(n, 77) <> Empty Or Cells(n, 78) <> Empty Or Cells(n, 79) <> Empty Or Cells(n, 80) <> Empty & _

Cells(n, 81) <> Empty Or Cells(n, 82) <> Empty Or Cells(n, 83) <> Empty Or Cells(n, 84) <> Empty Or Cells(n, 85) <> Empty Or Cells(n, 86) <> Empty Or Cells(n, 87) <> Empty Or Cells(n, 88) <> Empty Or Cells(n, 89) <> Empty Or Cells(n, 90) <> Empty Or Cells(n, 91) <> Empty Or Cells(n, 92) <> Empty Or Cells(n, 93) <> Empty Or Cells(n, 94) <> Empty Or Cells(n, 95) <> Empty Or Cells(n, 96) <> Empty Or Cells(n, 97) <> Empty Or Cells(n, 98) <> Empty Or Cells(n, 99) <> Empty Or Cells(n, 100) <> Empty Or Cells(n, 101) <> Empty Or Cells(n, 102) <> Empty Or Cells(n, 103) <> Empty Or Cells(n, 104) <> Empty Or Cells(n, 105) <> Empty Or Cells(n, 106) <> Empty Or Cells(n, 107) <> Empty Or Cells(n, 108) <> Empty Or Cells(n, 109) <> Empty Or Cells(n, 110) <> Empty Or Cells(n, 111) <> Empty Or Cells(n, 112) <> Empty Or Cells(n, 113) <> Empty)

n = n + 1

Loop

If (frmperfilsocioeconomico.txtnúmerodelista.Text <> "" And frmperfilsocioeconomico.txtapellidopaterno.Text <> "" And frmperfilsocioeconomico.txtapellidomaterno <> "" And frmperfilsocioeconomico.TextBox5.Text <> "" And frmperfilsocioeconomico.txtnumerodematricula.Text <> "" And frmperfilsocioeconomico.txtgradoygrupo.Text <> "" And frmperfilsocioeconomico.txtacompañantedocente.Text <> "") Then

Cells(n, 1).Value = frmperfilsocioeconomico.txtnúmerodelista.Text

Cells(n, 2).Value = frmperfilsocioeconomico.txtapellidopaterno.Text

Cells(n, 3).Value = frmperfilsocioeconomico.txtapellidomaterno.Text

Cells(n, 4).Value = frmperfilsocioeconomico.TextBox5.Text

Cells(n, 5).Value = frmperfilsocioeconomico.txtnumerodematricula.Text

Cells(n, 6).Value = frmperfilsocioeconomico.txtgradoygrupo.Text

Cells(n, 7).Value = frmperfilsocioeconomico.txtacompañantedocente.Text

Else

MsgBox "No olvide introducir los datos de la ficha de identificación.", vbCritical + vbOKOnly, "Alerta..."

End If

End Sub

Esto en p1

Sub pregunta1()

If (frmperfilsocioeconomico.rbdsoltero.Value = True Or frmperfilsocioeconomico.rbdcasado.Value = True Or frmperfilsocioeconomico.rbddivorciado.Value = True Or frmperfilsocioeconomico.rbduniónlibre.Value = True Or frmperfilsocioeconomico.rbdotro.Value = True) Then

If frmperfilsocioeconomico.rbdsoltero.Value = True Then

Cells(n, 8).Value = "Soltero"

frmperfilsocioeconomico.rbdsoltero.Value = False

Else

If frmperfilsocioeconomico.rbdcasado.Value = True Then

Cells(n, 8).Value = "Casado"

frmperfilsocioeconomico.rbdcasado.Value = False

Else

If frmperfilsocioeconomico.rbddivorciado.Value = True Then

Cells(n, 8).Value = "Divorciado"

frmperfilsocioeconomico.rbddivorciado.Value = False

Else

If frmperfilsocioeconomico.rbduniónlibre.Value = True Then

Cells(n, 8).Value = "Unión Libre"

frmperfilsocioeconomico.rbduniónlibre.Value = False

Else

If frmperfilsocioeconomico.rbdotro.Value = True Then

Cells(n, 8).Value = "Otro"

frmperfilsocioeconomico.rbdotro.Value = False

End If

End If

End If

End If

End If

Else

MsgBox "Debe seleccionar una opción." & vbCrLf & "Para la pregunta 1.", vbCritical + vbOKOnly, "Alerta..."

End If

End Sub

Saludos