Dante Amor

Aquí otra opción a considerar: Sub pegar2() Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row).SpecialCells(2).Copy Sheets("Hoja2").Range("M" & ActiveCell.Row) End Sub

Mi código me da un fallo al rato de estar usando la aplicación, ¿Qué mensaje de error te aparece? ¿Y en cuál fila del código se detiene?

A qué te refieres con "campos", ¿son celdas? ¿O controles de formulario o controles de activeX? ¿Tienes una fórmula? ¿Cuál es la fórmula? Supongo que es importe - entregas ¿En dónde tienes la fórmula? ¿En una celda? ¿En una etiqueta? Cómo podrás ver...

Prueba esto: Range("AA3:AA" & uf).Value = Range("AA2").Value

Y bienvenido a TodoExpertos. Puedes poner aquí tus fórmulas y una imagen con una muestra de tus datos (pueden ser datos genéricos)

Prueba lo siguiente, cambia "macro" por el nombre de tu macro que quieres ejecutar cada 30 minutos Sub repetir() If Time >= TimeValue("10:00:00") And Time <= TimeValue("17:00:00") Then Call macro End If Application.OnTime Now + TimeValue("00:30:00"),...

H o l a ermacia, jaja no para nada, no soy el creador, el creado es Josep Planells Alòs. Solamente soy un usuario que me gusta ayudar, me apasiona encontrar la mejor solución y empeñarme hasta encontrar la respuesta para que estén satisfechos....

Prueba lo siguiente: Sub Macro2() With ActiveSheet .Range("A1", .Range("D" & Rows.Count).End(3)).AutoFilter 3, "<>*caobos*" .AutoFilter.Range.Offset(1).EntireRow.Delete .ShowAllData End With End Sub

En realidad, deberías utilizar la referencia de la hoja en todos tus códigos, no importa si está oculta. Piensa en que vas a estar en la hoja principal de tu libro y de ahí consultar o manipular todos los datos de todas tus hojas. Si la hoja está...

Te sugiero poner en otra columna la siguiente fórmula =MAX(A2:C2) Y después ordenas las 5 columnas en base a la columna "Fecha" Así quedaría el resultado del ejemplo: