UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Mejora en botón modificar y agregar el 22/11/18, 10:18 pm

Jeftecueva


Hola estoy desarrollando un formulario y tengo el siguiente problema:
primero este es parte del evento pasar_a_la_hoja que uso en dos botones agregar y modificar:

Código:
.Cells(1, 8 )  = Environ("Username") 'Firma de usuario
Cells(1, 24) = TextBox13.Value 'Hora entrega GC
  .Cells(1, 25) = TextBox17.Value 'Trancito total
  .Cells(1, 28) = .Cells(1, 28) & ";" & " " & Environ("username") & " " & Date & " " & Format(Time, "hh:mm am/pm")

en (1, 8 ) ser guarda la firma de usuario que hizo el primer registro en esa fila, pero en (1, 28 ) se acumulan las firmas de los usuarios cada vez que hay una modificacion en esa fila.

estos son los codigos agregar y modificar:

Código:
Private Sub CommandButton2_Click()
'-------
'Agregar
'-------
If Trim(Me.ComboBox1.Value) = "" Then
Me.ComboBox1.SetFocus
MsgBox "Debe seleccionar un producto"
Exit Sub
End If
Pasar_a_la_hoja 1 + ws1.Cells(Rows.Count, "a").End(xlUp).Row

CommandButton1_Click

End Sub

Private Sub CommandButton3_Click()
'---------
'Modificar
'---------
With ListBox1
  Pasar_a_la_hoja 0 + .List(.ListIndex, 0)
 End With
CommandButton1_Click
End Sub

Como hago para que la linea .Cells(1, 28) = .Cells(1, 28) & ";" & " " & Environ("username") & " " & Date & " " & Format(Time, "hh:mm am/pm")
funcione si y solo si se hace click en el boton modificar.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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