Victor Rodriguez

Te dejo el archivo en Dropbox https://www.dropbox.com/s/a5albh2rfu849yp/Juntar%20datos.xlsm?dl=0 Lo único que he hecho es a partir de la Macro de Dante Amor hacer una quinta hoja que junta los datos de las anteriores mediante formulación

Deberías utilizar una fórmula así más o menos. En A1 y B1 están los valores a comparar. En C1 el valor de la tercera columna Asi en D1 pon: =SI(A1=B1;C1;"") Si el valor estuviera en otro rango puedes sustituir C1 por un BUSCARV

Para mostrar las columnas V:AA utiliza la instrucción: Columns("V:AA"). EntireColumn.Hidden = False y para las columnas no contiguas utiliza Range("I1,J1,N1,O1,R1,S1"). EntireColumn.Hidden = False

En ese caso deberemos recurrir a VBA En la hoja donde tengas los datos pones esta macro asociada al evento Worksheets_change Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F2")) Is Nothing Then Dim ws As Worksheet...

Pon el texto entre asteriscos

Podrías poner el importe de las facturas en negativo en la misma columna o fila del grupo que corresponda y obtener el resultado mediante la función SUMAR Hay otras opciones, pero son mas complicadas Si no te vale esta, pon una imagen para ver como...

Lo que quieres hacer se puede hacer con una macro asociada a un evento que mostrara y seleccionara la hoja y luego en la hoja un botón que volviera al calendario y ocultase la hoja. Si te interesa la escribo No se como serán los datos de cada día,...

En tu caso lo mejor es utilizar el formato condicional tal como te muestro en la imagen Yo lo he hecho para la celda H6, pero puedes copiar/pegar formato donde te interese

Aparentemente todo está ordenadi, ¿de forma que con la fórmula en H8 "=I7" ya obtendrías la hora no?

Este código te servirá: Sub copiar() Dim celda As Range Set celda = Sheets("Ofertas").Range("A22") Range("B4:B8").Copy Application.Goto Sheets("Ofertas").Range("A22") If ActiveCell.Value = "" Then Selection.PasteSpecial Paste:=xlPasteAll,...