Dante Amor

Siempre es importante mencionar si quieres copiar y pegar todo (fórmulas, valores, formatos, etc) O simplemente quieres pegar valores. Opción 1, Copiar y pegar todo: Sub copiar_celdas1() ActiveCell.Offset(-44).Resize(45).Copy...

¿En las columnas anteriores tienes algún identificador de cada proyecto? Puedes poner el ejemplo con el identificador de proyecto, de esa manera podemos ver en dónde inicia.

Veo que posteaste la pregunta también en Visual Basic. Entonces puedes ser con una macro. ¿En dónde quieres el resultado?

Comparte en google drive un archivo con 3 hojas. En la primera hoja la base de datos. Marca en amarillo un alumno para utilizarlo de ejemplo. En la segunda hoja el formato. En la tercera hoja el formato con el ejemplo del alumno. Marca en amarillo...

No entiendo para qué la variable de tiempo. Puede ser así: Sub prueba() Dim respuesta As VbMsgBoxResult respuesta = MsgBox("Quieres cancelar la ejecución del reporte", vbYesNo + vbQuestion, "Cancelar reporte") If respuesta = vbYes Then Exit Sub Else...

[Ho la y bienvenido a TodoExpertos! Pon lo siguiente al inicio de la macro: Dim f As Range Set f = Range("C:C").Find(TextBox1.Value, , xlValues, xlPart, , , False) If f Is Nothing Then MsgBox "el registro filtrado NO existe en la tabla de datos" Exit...

Revisa los signos $ La fórmula debe ser: =$O5 En tu imagen no veo cuál es la columna O, ni con cuál la quieres comparar. Pero si quieres el formato en la columna P Y si O5 es mayor a P5, entonces: =$O5>$P5 Y Copia el formato condicional hacia abajo.

No entendí tu imagen. Ayúdame con lo siguiente. Agrega 2 imágenes. La primera con los datos originales. La segunda con los resultados que tú quieres. Es Muy importante que pongas las dos imágenes.

Prueba así: Sub copiaformula() Dim fila As Long Dim sh As Worksheet ' Application.ScreenUpdating = False Set sh = Sheets("10") fila = ActiveCell.Row If fila < 33 Then MsgBox "Debes seleccionar una fila mayor a 32" Exit Sub End If...

[Ho la Iris y bienvenida a TodoExpertos. Te muestro otra opción. Puedes cambiar esta línea: If Cells(i, 1) <> "" Then Por esta, utilizando la propiedad DataBodyRange de la tabla: If TablaOrigen1.DataBodyRange(i, 1) <> "" Then De esa manera el...