Dante Amor

Pero la revisión la hace con una celda. Para pasarlo a un módulo necesitas decirme cuál celda, ¿o qué sea la celda que selecciones?

H o l a : Te anexo la macro actualizada Sub correo() 'Por.Dam ufila = Range("B" & Rows.Count).End(xlUp).Row col = Range("H1").Column For i = 2 To ufila Set dam1 = CreateObject("outlook.application") Set dam2 = dam1.CreateItem(olMailItem) dam2.To =...

H o l a: Le hice el cambio de la fila para que empiece a pegar desde la fila 32. También declaré las variables, por si tienes activado la opción de requerir la declaración de variables. Por lo demás la veo bien: Sub Copiar() Dim h1, h2, fila, u1, u2,...

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" &...

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 =...

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...

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á...

H o l a: Te anexo la macro. Cuando ejecutas la macro te pregunta si quieres una hoja nueva, si seleccionas Sí, te crea una hoja, si seleccionas no, te pone la información en la hoja activa, si seleccionas cancelar, termina la macro. Después te abre...