• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Duplicar información capturada en formulario

angie mayro

New member
Buen dia a todos,

Si alguien me puede ayudar con la siguiente consulta la cual no tengo ni idea cómo lograrlo :(

Tengo el siguiente formulario de 12 campos los cuales al capturarlos se me deben duplicar acorde a la información ya existente en la hoja "Plantilla Cargue IO" en cuanto a filas, se hace necesario que sea dinámico puesto que no siempre existe la misma cantidad de registros en la hoja.

No me es posible adjuntar el archivo en excel es muy pesado.

El codigo que estoy utilizando actualmente para es el siguiente:


Private Sub Guardar_Click()

'Permite guardar registros en la hoja (Plantilla Cargue IO)
Dim Ramo1 As String
Dim Aseguradora1 As String
Dim Planpago1 As String
Dim certificado1 As String
Dim anexo1 As String
Dim solicitud1 As String
Dim fechaexpdicion1 As String
Dim textofacturacion1 As String
Dim Intermediario1 As String
Dim Intermediario2 As String
Dim cocorretaje1 As String
Dim cocorretaje2 As String

Ramo1 = Ramo.Text
Aseguradora1 = Aseguradora.Text
Planpago1 = Planpago.Text
certificado1 = certificado.Text
anexo1 = anexo.Text
solicitud1 = solicitud.Text
fechaexpdicion1 = Fechaexpedicion.Text
textofacturacion1 = textofacturacion.Text
Intermediario1 = IntermediarioPrincipal.Text
Intermediario2 = Intermediariosecundario.Text
cocorretaje1 = txtcomision1.Text
cocorretaje2 = txtcomision2.Text

'Verificar que los campos no esten vacios

'Esta generando error (LOS TIPOS NO COINCIDEN) Validar
'If (Ramo1 <> "" And Aseguradora1 <> "" And Planpago1 <> "" And certificado1 <> "" And anexo1 <> "" And solicitud1 <> "" And fechaexpdicion1 <> "" And textofacturacion1 <> "" And Intermediario1 <> "" And Intermediario2 <> "" And cocorretaje1 <> "" And cocorretaje2) Then

'Guardar registros en la base de datos

'Se activa la Hoja Plantilla Cargue IO para guardar los datos del formulario
Sheets("Plantilla Cargue IO").Activate
Range("D6").Select
Range("D6").Value = Ramo1
Range("E6").Value = Aseguradora1
Range("U6").Value = Planpago1
Range("G6").Value = certificado1
Range("H6").Value = anexo1
Range("T6").Value = solicitud1
Range("AV6").Value = fechaexpdicion1
Range("AP6").Value = textofacturacion1
Range("Z6").Value = Intermediario1
Range("AB6").Value = Intermediario2
Range("AA6").Value = cocorretaje1
Range("AC6").Value = cocorretaje2


'Limpiar Campos
Ramo.Value = ""
Aseguradora.Value = ""
Planpago.Value = ""
certificado.Value = ""
anexo.Value = ""
solicitud.Value = ""
Fechaexpedicion.Value = ""
textofacturacion.Value = ""
IntermediarioPrincipal.Value = ""
Intermediariosecundario.Value = ""
txtcomision1.Value = ""
txtcomision2.Value = ""

'Regresar a la Hoja Planilla Cargue IO
Sheets("Plantilla Cargue IO").Activate

'Else

'Mostrar msn de error
' MsgBox "Algunos Campos estan vacios !"

'End If

End Sub


1592871473294.png
 

hhernan

Active member
'Verificar que los campos no esten vacios

'Esta generando error (LOS TIPOS NO COINCIDEN) Validar
'If (Ramo1 <> "" And Aseguradora1 <> "" And Planpago1 <> "" And certificado1 <> "" And anexo1 <> "" And solicitud1 <> "" And fechaexpdicion1 <> "" And textofacturacion1 <> "" And Intermediario1 <> "" And Intermediario2 <> "" And cocorretaje1 <> "" And cocorretaje2) Then[/CODIGO]
Hola a los dos.

Para mi el error los tienes en la validacion de ultimo campo (cocorretaje2), le falta el <>""
Código:
 'If (Ramo1 <> "" And Aseguradora1 <> "" And Planpago1 <> "" And certificado1 <> "" And anexo1 <> "" And solicitud1 <> "" And fechaexpdicion1 <> "" And textofacturacion1 <> "" And Intermediario1 <> "" And Intermediario2 <> "" And cocorretaje1 <> "" And cocorretaje2<>"") Then
 
Arriba