............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Edicion fuera de lugar

Ver el tema anterior Ver el tema siguiente Ir abajo

Edicion fuera de lugar

Mensaje por JoaoM el Vie Oct 05, 2012 6:55 pm

Hola expertos, gracias por la WEB que tienen, Mi problema

Tengo este codigo

Código:
Private Sub cmdModifica_Click() ''NO REALIZA NINGUNA OPERACIÓN DE MODIFICACIÓN
Sheets("DATA").Activate
Sheets("DATA").Visible = True
Sheets("DATA").Select
'antes de realizar la operación preguntaremos si está seguro de lo que hará
X = MsgBox("¿Está seguro(a) de querer modificar los datos? ", vbYesNo + vbDefaultButton2 + vbQuestion, "Pregunta")
        If X = vbNo Then
    txtCod.SetFocus
    Else
'''''''''''
[color=red]Columns("A:A").Select
Cells.Find(What:=txtCod, after:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate[/color]
'''''''''''
'PROCEDE A EDITAR INFORMACIÓN
    ActiveCell.Offset(0, 1) = txtCedu.Value
    ActiveCell.Offset(0, 2) = txtNom_Apel.Value
    ActiveCell.Offset(0, 3) = txtRepres.Value
    ActiveCell.Offset(0, 4) = txtTelf1.Value
    ActiveCell.Offset(0, 5) = txtTelf2.Value
    ActiveCell.Offset(0, 6) = txtDirec.Value
    ActiveCell.Offset(0, 7) = cmbSec.Value
    ActiveCell.Offset(0, 8) = cmbMunicip.Value
    ActiveCell.Offset(0, 9) = cmbStat.Value
    ActiveCell.Offset(0, 10) = txtAldea.Value
    ActiveCell.Offset(0, 11) = cmbNivel.Value
    ActiveCell.Offset(0, 12) = cmbTurn.Value
    ActiveCell.Offset(0, 13) = cmbProg.Value
    ActiveCell.Offset(0, 14) = txtObser.Value
Range("A2").Select
'Recuerda la operacion que acaba de realiar
X = MsgBox("Modificación realizada con éxito..." & vbCrLf & "¿continuar con el registro en pantalla? ", vbYesNo + vbQuestion, "Notificacion y Pregunta")
        If X = vbYes Then
    txtCod.SetFocus
    Else
'Limpiar datos en pantalla
Call Limpiar

txtCod.SetFocus
    End If
    End If

End Sub

Si tengo la rutina (roja),

Código:
[color=red]Columns("A:A").Select
Cells.Find(What:=txtCod, after:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate[/color]

me edita bien y en el lugar que corresponde pero, me deja toda la columna Activada (en azul) tengo que clicar en otra celda para desactivar la colunma, este no seria problema, pues con agregarle Range(a2).select tenia pero no se si es lo correcto.
Quisiera su verificacion del codigo

si le quito esa rutina (roja) edita fuera de columnas y celdas, todo un desastre hace.

Pretendo que al editar y presionar el buton cmdModifica, los datos se subscriban los correspondientes de la linea del codigo (A2) escrito en (TextBox) cmbCod

No se si me explique bien. Si alguna informacion hace falta, no dejen d preguntar.

Tambien podria dejar enlace al libro para que lo bajen y revisen, una ves que este pesa un poco mas de un mega, no se el porque de tan poco y mucho peso, una sola hoja con unas 5 lineas ocupadas y un codigo corto

JoaoM

Masculino Cantidad de envíos : 38
Edad : 97
Ciudad - Pais : venez
Version de Excel : 2007-2010
Fecha de inscripción : 16/12/2011

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.