Dante Amor

Quieres copiar toda la columna. O quieres que se vaya revisando fila por fila, y si el valor de la fila - columna G, es diferente de 0, ¿solamente copiar las celdas de esa fila pero las columnas B, D, G, H, I?

Prueba con la siguiente: Sub CopiarDatos() 'Adriel ortiz 'Act.Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = h2.Range("H" & Rows.Count).End(xlUp).Row + 1 For i = h1.Range("H" &...

Va: Sub el() 'Por.Dante Amor Set h1 = Sheets("ORIGEN") Set h2 = Sheets("RESULTADO") 'obtiene la dirección del rango usado en la hoja tabla = h1.UsedRange.Address h2.Cells.Clear ' 'obtiene la primera fila del rango fini = h1.Range(tabla).Cells(1,...

Te anexo la macro actualizada Sub el() 'Por.Dante Amor Set h1 = Sheets("ORIGEN") Set h2 = Sheets("RESULTADO") tabla = h1.UsedRange.Address h2.Cells.Clear ' fini = h1.Range(tabla).Cells(1, 1).Row cini = h1.Range(tabla).Cells(1, 1).Column ffin =...

Después de que despliegas los valores en el userform pon la siguiente instrucción: DoEvents O también puedes utilizar la siguiente instrucción: Me. Repaint Prueba con las 2 para que veas cuál te resulta mejor. 'S aludos. Dante Amor. Recuerda valorar...

Cuando utilizas selección múltiple en un listbox, puedes utilizar el evento MouseUp Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TOTALAPAGAR = 0 For X = 0 To ListBox1.ListCount -...

Te anexo la macro actualizada: Sub ActualizarReloj() ThisWorkbook. Worksheets("GATEHOUSE2"). Range("W1"). Calculate Application. OnTime Now + TimeValue("00:00:01"), "ActualizarReloj" End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o la: Ya probé el código y lo que hace es mover un item hacia abajo o hacia arriba. Cuando lo ejecuto me llena el listbox con los item desde A hasta el J, selecciono el Item B, presiono el spin para bajar y mueve el Item B debajo del Item C. ¿Eso...

Envíame tu archivo con el formulario para ver cómo tienes tus datos y adaptar el código. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “juan acevedo mena” y el título de esta pregunta.

H o la : Te anexo la macro. IMPORTANTE! Antes de ejecutar la macro debes seguir las siguientes indicaciones: Cambia en la macro "datos" por el nombre de tu hoja.Cambia "D" por la letra de la columna donde tienes los correosTus encabezados deberá...