Foros

@Mmat, te dejo una solución. Con las pruebas que he hecho estoy seguro que funciona, pero prueba y comenta Copia de PRUEBA MACRO 2.xlsm

Buenos días, Os agradecería mucho que me pudierais ayudar con este archivo. Me facilitaría mucho mucho mi trabajo.Se trata de realizar una planificación de compra de materiales. Cada referencia consta de  dos filas. Una con las compras realizadas y otra con la previsión de consumo. Se necesita: Desplazar el material comprado hasta la previsión de consumo. Debe coincidir la cantidad comprada con su consumo en esa semana en la misma columna. Si falta material para cubrir el consumo, se debe calcular la necesidad de compra y asignar una fecha de entrega acorde con el consumo. Si sobra material se debe posponer la entrega. Muchas gracias por vuestro apoyo SaludosProgramaciónFlejeMayoJunio.xlsx

Hola, al final buscando y buscando he conseguido adaptar un código que he encontrado. Se ha quedado así: Dim rngData As Range Set lact = Sheets("ListadoActual"): Set datos = Sheets("DatosEmpresas") Range("A1").Select vl1 = lact.Range("A" & Rows.Count).End(xlUp).Row vl2 = datos.Range("A" & Rows.Count).End(xlUp).Row For x = 4 To vl2 cod = datos.Range("B" & x) lact.Range("A1:U" & vl1).AutoFilter Field:=5, Criteria1:=cod Set rngData = lact.AutoFilter.Range.SpecialCells(xlCellTypeVisible) With rngData For i = 1 To .Areas.Count Debug.Print .Areas(i).Address Next End With If i = 2 Then Else lact.Range("F2:F" & vl1) = datos.Range("A" & x) lact.Range("K2:K" & vl1) = datos.Range("L" & x) lact.Range("P2:P" & vl1) = datos.Range("M" & x) End If Next x If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData La macro tiene en cuenta si al hacer autofiltro no encuentra datos, entonces no pega nada. De todos modos gracias a todos quienes habéis leído el post, lo cierto es que lo que pedía es algo muy rebuscado y particular. Moisés.

Bueno @VICENTE GUERRA NICOLAS , te dejo la solución. He cambiado un poco la macro, ahora te muestra un pequeño formulario para introducir las fechas. Tengo una duda respecto a los rangos ¿Cuando eliges fecha, SIEMPRE es sobre la columna de "Entrada"? Copia de Checador Personal.xlsm

@Josemariarcas , si pones el código en el evento de la hoja dónde lo necesites, no tienes que ejecutar lamacro. Con permiso de @Antoni , ya que es el que ha pesto el código, te dejo la solución.
  Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [AH20]) Is Nothing Then Exit Sub Range("C20:G20").Font.ColorIndex = xlAutomatic Range("C20:G20").Interior.ColorIndex = xlNone For Each celda In Range("C20:G20") If celda > Target Then celda.Font.Color = vbYellow celda.Interior.Color = vbRed End If If celda < Target Then celda.Font.Color = vbRed celda.Interior.Color = vbGreen End If Next End Sub