Insertar datos en con casilla de verificación
Tengo un formulario con el que inserto datos a una hoja excel con textbox, necesito programar 6 casillas de verificación para que cuando estén activadas inserten un texto en cierta celda.
Me pueden ayudar...
Gracias.
Private Sub BotGuardar_Click()
Dim SigFIla As Long
Hoja4.Select 'Seleccionar la hoja 2
SigFIla = WorksheetFunction.CountA(Range("A:A")) + 1 'Buscar fila vacía
Cells(SigFIla, 1).Value = Textnombre.Text 'Grabar la información
Cells(SigFIla, 2).Value = Textcalle_num.Text
Cells(SigFIla, 3).Value = Textcolonia.Text
Cells(SigFIla, 4).Value = Combomunicipio.Text
Cells(SigFIla, 5).Value = Comboruta.Text
Cells(SigFIla, 6).Value = Textdia_visita.Text
Cells(SigFIla, 12).Value = Textstock.Text
Hoja4.Select 'Volver a la hoja1
'Limpiar los TextBox
Textnombre.Text = ""
Textnombre.SetFocus
'Posicionarse en el primer comboBox
1 Respuesta
Te anexo un ejemplo para que lo apliques en tus 4 casillas:
Dim SigFIla As Long
Hoja4.Select 'Seleccionar la hoja 2
SigFIla = WorksheetFunction.CountA(Range("A:A")) + 1 'Buscar fila vacía
Cells(SigFIla, 1).Value = Textnombre.Text 'Grabar la información
Cells(SigFIla, 2).Value = Textcalle_num.Text
Cells(SigFIla, 3).Value = Textcolonia.Text
Cells(SigFIla, 4).Value = Combomunicipio.Text
Cells(SigFIla, 5).Value = Comboruta.Text
Cells(SigFIla, 6).Value = Textdia_visita.Text
Cells(SigFIla, 12).Value = Textstock.Text
'
'Por ejemplo
If CheckBox1.Value = True Then
Cells(SigFIla, 13).Value = "Poner aquí el texto"
End If
If CheckBox2.Value = True Then
Cells(SigFIla, 14).Value = "Poner otro texto"
End If
'
Hoja4.Select 'Volver a la hoja1
'Limpiar los TextBox
Textnombre.Text = ""
Textnombre. SetFocus
'Posicionarse en el primer comboBoxAvísame si tienes dudas.
