Victor Rodriguez

Para poder conseguir lo que quieres te valdrá este código: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then If Target.Offset(0, 1).Value = "" Then Range(Target, Target.Offset(0, 1)).Select...

Si duplicas posts, haz referencia al primero: Juntar 500 hojas de Excel en 1 sola

Para tu caso lo mejor creo que seria que utilizaras el formato condicional en las celdas donde tengas la fecha de vencimiento Como podrás ver en la imagen, con estas 3 reglas, si el producto está caducado la fecha se pondrá en rojo, si faltan menos...

Este código te funcionará siempre que no superes las 10.000 filas (se podróa aumentar cambiando la cifra) Sub Macro3() Sheets("Real").Select Range("C4:G10000").Select Selection.Copy Sheets("Resumen").Select Range("C4").Select...

Para poder hacer lo que necesitas deberás utilizar las fórmulas EXTRAE Y HALLAR De este modo, si el texto está en la celda A1, para conseguir "MF_ARAUCA" la fórmula seria: =EXTRAE(A1;(HALLAR(" ";A1))+1;(HALLAR(" ";A1;(HALLAR(" ";A1))+1))-(HALLAR("...

Para conseguir lo que quieres tendrás que utilizar la función BUSCARV. Te dejo un enlace muy bien explicado con imágenes https://exceltotal.com/la-funcion-buscarv-en-excel/

Prueba este código: Sub resumen() Dim wks As Worksheet Set h = Sheets("resumen") i = 1 j = 1 For Each wks In ActiveWorkbook.Worksheets Sheets(j).Select If wks.Name <> h.Name Then Range("A1:F188").Copy (h.Cells(i, 1)) i = i + 188 j = j + 1 Else Exit...

Te adjunto una imagen para que puedas ver como hacerlo

Para solucionar tu problema, copia la celda A1 de la hoja 1 en la celda A1 de Recibos! Con formato de imagen vinculada. Si no hay nada en Hoja1 A1, no saldrá nada en el recibo y si hay una imagen si que saldrá

Debes hacer dos botones y asociarlos a sus respectivas macros Esta macro para ocultar: Sub Hide() ActiveSheet.Shapes("nombre imagen").Visible = False End Sub y esta para mostrar: Sub Unhide() ActiveSheet.Shapes("nombre imagen").Visible = True End Sub...