Resolver codigo

BUENAS TARDES TEGO UN FORMULARIO EN UNA MACRO CON UN BOTON PARA MODIFICAR, EL BOTON SI ME TRAE EL DATO A MODIFICAR PRO RL PROBLEMA ES QUE ME LO GUARDA EN LA  CELDA SIGUIENTE Y NO DONDE DEVERIA QUE SERIA EN LA MISMA FILA EN LA QUE ESTOY MODIFICANDO
CODIGO COMPLETO
Dim valor1 As String
Dim VALOR2 As String
Dim SW As Boolean
Dim I As Integer
Private Sub bntEliminar_Click()
valor1 = InputBox("que registro desea eliminar")
eliminaRegistro
End Sub
Private Sub btnModificar_Click()
'
VALOR2 = InputBox("que registro desea modificar")
Sheets("Hoja1").Select
'
Dim J As Integer
'
'
 J = 20
For I = 1 To J
    If Range("A" + Trim(Str(I))).Value = VALOR2 Then
txtcedula.Text = Range("A" + Trim(Str(I))).Value
txtNombre.Text = Range("B" + Trim(Str(I))).Value
txtTelefono.Text = Range("C" + Trim(Str(I))).Value
txtDireccion.Text = Range("D" + Trim(Str(I))).Value
    J = 21
'
   End If
'
'
'
'
Next I
'
'
End Sub
Private Sub CommandButton1_Click()
    guardar
End Sub
Private Sub guardar()
'If SW = True Then
    If txtcedula.Text = "" Then
        MsgBox ("Por favor ingrese Cédula")
        txtcedula.SetFocus
    Else
            If txtNombre.Text = "" Then
                MsgBox ("Por favor ingrese Nombre")
                txtNombre.SetFocus
            Else
                If txtTelefono.Text = "" Then
                    MsgBox ("Por favor ingrese Telefono")
                    txtTelefono.SetFocus
                Else
                    If txtDireccion.Text = "" Then
                        MsgBox ("Por favor ingrese Dirección")
                        txtDireccion.SetFocus
                    Else
                        Sheets("HOJA1").Select
                        'seleccionamos la ceda donde se debe alojar el dato
                        Range("A1").Select
                        'guardamos el dato en la celda
                        Set ws = Worksheets("HOJA1")
                        iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila, 1).Value = txtcedula.Value
                        txtcedula.Text = ""
                        Set ws = Worksheets("HOJA1")
                        iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 2).Value = txtNombre.Value
                        txtNombre.Text = ""
                        Set ws = Worksheets("HOJA1")
                        iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 3).Value = txtTelefono.Value
                        txtTelefono.Text = ""
                        Set ws = Worksheets("HOJA1")
                        iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 4).Value = txtDireccion.Value
                        txtDireccion.Text = ""
                        MsgBox ("GUARDADDO")
                    End If
                End If
            End If
    End If
'    Else
End Sub
Private Sub CommandButton2_Click()
Dim valaux As Integer
    If Not txtcedula.Text = "" Then
        valaux = MsgBox("Existen datos sin guardar, desea salir?...
Respuesta
1
Antes de entrar a verificar el código ya probaste los siguiente...
...
Sub VerFormulario()
    Sheets("Hoja1").Select
    Range("A1").Select
    ActiveSheet.ShowDataForm
End Sub

1 respuesta más de otro experto

Respuesta
1
Creo que la dificultad se presenta en la rutina donde guardas la informacion , ya que utilizas la misma forma para guardar un registro nuevo que uno modificado, supongo que tu clave primaria es la cedula, entonces en la instrucucion donde validas  If txtcedula.Text = "" Then, en el "else" llamaria una subrutina que le de vaor a iFila a travez de un bucle algo asi:
dim iFila as long
sub Searchpos()
dim flag as boolean
flag=false
Set ws = Worksheets("HOJA1")
F= 2' variable provisional
do while ws.cells( f,1)<>""
if ws.cells( f,1).value= txtcedula.Text then
iFila=f
flag=true
end if
f=f+1
loop
if flag=false then  ifila=f
end sub
debes suprimir la instruccion de busqueda de posicion que tienes actualmente
espero te sirva
en que parte remplazaria el codigo exactamente????
Creo que debe suprimir la instruccion
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
de esta rutina
 Else
                        Sheets("HOJA1").Select
                        'seleccionamos la ceda donde se debe alojar el dato
                        Range("A1").Select
                        'guardamos el dato en la celda
                        Set ws = Worksheets("HOJA1")
                       ' iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila, 1).Value = txtcedula.Value
                        txtcedula.Text = ""
                        Set ws = Worksheets("HOJA1")
                        'iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 2).Value = txtNombre.Value
                        txtNombre.Text = ""
                        Set ws = Worksheets("HOJA1")
                       ' iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 3).Value = txtTelefono.Value
                        txtTelefono.Text = ""
                        Set ws = Worksheets("HOJA1")
                        'iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        ws.Cells(iFila - 1, 4).Value = txtDireccion.Value
                        txtDireccion.Text = ""
                        MsgBox ("GUARDADDO")
                    End If
no me funciona te puedo mandar opor correo la macro para que la revises y finalizamos la pregunta gracias
ok [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Borrar dato o modificar

Nuevamente te agradezco por la respuesta anterior sobre guardar una hoja. Ahora necesito otra ayuda y es : tengo el siguiente código que me agrega un dato (que yo le llamo código) a una hoja necesito por favor como hacer para que en caso de ser...
1 respuesta

Eliminar error en tiempo de ejecución 13

Estoy trabajando con macros en excel 2010 y tengo un userform para el cual utilizo el código abajo descrito, todos los textbox me los llena bien pero al momento de aceptar y enviar los datos a las celdas respectivas me manda el error "error en tiempo...
1 respuesta

MsgBox con pausas para llenado de formulario

Quisiera solicitar su apoyo para resolver una consulta sobre los MsgBox. He estado desarrollando un UserForm para introducir datos en una planilla excel con respecto a transacciones de materiales. Dentro de este UserForm incorporé un Commandbuton...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Macro para extraer datos de archivos excel

Necesito una macro para extraer una serie de datos de una carpeta de archivos excel La carpeta se llama "semana 25" y en ella hay unos 50 archivos distintos "MT2_order_1", "MT2_order_2"... Así hasta unos 50 (a veces más) De cada archivo, necesito...
2 respuestas

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Macro para copiar filas con condición en otras hojas

Tengo una macro que colorea las filas dependiendo de una condición para que luego otra macro las pase a otras hojas con el mismo nombre de la condición dependiendo del color que tengan, las macros son estas: Sub ColorearFilas() Dim n As Integer Dim...
1 respuesta