Dante Amor

H o l a: En un correo nuevo envíame tu archivo con el formulario y me explicas con ejemplos lo que necesitas. Recuerda poner en el asunto tu nombre de usuario.

H o la: Te anexo el código actualizado. Voy a suponer lo siguiente: - En el userform frmImagenes, vas a poner un TextBox1. - La ruta PathImagenes, en alguna parte la pones. - Esta línea la quité, porque no la ocupas en el código: Ruta =...

H o l a: En la hoja tenemos varios eventos, estos eventos se activan cuando modificas una celda, seleccionas una celda, cuando le das doble click a una celda, etc. Cada hoja de tu libro tiene los mismos eventos, es decir, si quieres evaluar un evento...

H o la: Yo pondría el código en el botón Modificar, de esa forma, primero se copia el registro antes de ser actualizado, para tener el historial y después se realiza el cambio. Prueba y me comentas: Private Sub CommandButton2_Click() 'Por.Dante Amor...

Quedaría así con statusbar, te va a aparecer un mensaje en la esquina inferior izquierda de excel. Sub macro() Application.StatusBar = False num_hojas = ActiveWorkbook.Worksheets.Count num_celdas = Range("G81:P111,Z81:AK111").Count num_h = 1 num_c =...

H o la: Envíame tu archivo para revisar cómo tienes los datos y cómo quieres pasar la información en la siguiente hoja, o ahí en las hojas, me explicas con comentarios qué quieres realizar. Mi correo [email protected] En el asunto del correo escribe...

H o l a : Envíame tu último archivo con ejemplos de más de 4 datos. R ecuerda poner el nombre de usuario en el asunto.

H o la : Prueba con el siguiente código. Solamente te permite números y 6 dígitos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If TextBox1 = "" Then Exit Sub ' If Mid(TextBox1, 1, 2) > 24 Then MsgBox "Debe...

Te anexo la macro Sub Siguiente() Sheets("Hoja2").Range("D3") = "A" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1 End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Envíame tu archivo para ver cómo tienes la información. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Eugenio Lemes” y el título de esta pregunta.