el problema biene ahora al presionar el boton deberia modificarse, pero solo me esta agregando fecha de modificacion y observaciones pero no me esta modificando el resto este es el codigo
[CODE]Private Sub BtnModEmp_Click()
'[A:A].Find(What:=ComCod, LookAt:=xlWhole).Activate
'Do While Not IsEmpty(ActiveCell)
' ActiveCell.Offset(1, 0).Select
'Loop
Set rango = Range("A:A").Find(What:=ComCod, _
LookAt:=xlWhole, LookIn:=xlValues)
If OptSi.Value = True And OptNo.Value = False Then
Range("H" & rango.Row) = "Si"
Else: OptNo.Value = True And OptSi.Value = False
Range("H" & rango.Row) = "No"
End If
hola estoy haciendo un formulario para modificar datos, con esta rutina me muestra los datos en el formulario, funciona muy bien
el problema biene ahora al presionar el boton deberia modificarse, pero solo me esta agregando fecha de modificacion y observaciones pero no me esta modificando el resto este es el codigo
'[A:A].Find(What:=ComCod, LookAt:=xlWhole).Activate
'Do While Not IsEmpty(ActiveCell)
' ActiveCell.Offset(1, 0).Select
'Loop
Set rango = Range("A:A").Find(What:=ComCod, _
LookAt:=xlWhole, LookIn:=xlValues)
Range("A" & rango.Row) = CDbl(TextCod)
Range("B" & rango.Row) = (TextNomb)
Range("C" & rango.Row) = CDbl(TextCed)
Range("D" & rango.Row) = CDate(TextFeNace)
Range("E" & rango.Row) = (ComEstCivil)
Range("F" & rango.Row) = CDbl(TextTelCe)
Range("G" & rango.Row) = CDbl(TextTelCa)
If OptSi.Value = True And OptNo.Value = False Then
Range("H" & rango.Row) = "Si"
Else: OptNo.Value = True And OptSi.Value = False
Range("H" & rango.Row) = "No"
End If
Range("I" & rango.Row) = CDbl(TextSalB)
Range("J" & rango.Row) = (TextDir)
Range("K" & rango.Row) = (ComEstCivil)
Range("L" & rango.Row) = CDate(TextFeMod)
Range("M" & rango.Row) = (TextObs)
End Sub[/CODE]
lo que esta con comilla son intentos mios para hacer funcionarlo pero sin resultado
alguna sugerencia?
he notado tambien que el combobox cambia el numero que muestra por un cero
probe con
no me resulto tampoco
me doi cuenta que este codigo solo busca la primera fila vacia
'Do While Not IsEmpty(ActiveCell)
' ActiveCell.Offset(1, 0).Select
'Loop[/CODE]
planilla de empleados5.rar