James Bond

Rowsource no funciona así, para que rowsource pueda funcionar necesita tener todos los datos seguidos es decir a1, a2, a3, a4, etc, al aplicar un filtro los datos te quedan así a1, a5, 10, a35 como ves están salteados y entonces es cuando rowsource...

Prueba esta modificación a tu macro, antes de que la ponga en una celda le agregue a la cadena un espacio en blanco de lo contrario te lo va a poner como si fuera fecha. Sub calcular_fechas() Dim ahora As String Dim año As String Dim mes As String...

Para no complicar mucho la fórmula primero crea una columna (E) concatenada como se muestra en la imagen, luego en la celda DE pegas esta fórmula, que buscara en la columna E el sku que buscas y listo, la columna E la puedes ocultar no afecta la...

Si tienes office 365 u office 2016 hay una forma https://support.office.com/es-es/article/recuperar-una-versi%C3%B3n-anterior-de-un-archivo-de-office-169cb166-e7e2-438e-8f39-9a8927828121, en versiones de la 2010 para arriba Tienes que ir al menú,...

Prueba con esta macro Sub COPIAR_COLUMNA() INICIALES = Array("AU", "BN", "ID", "JK", "KU", "MY", "PG", "SG", "VN") Set DATOS = Range("A1").CurrentRegion With DATOS R = .Rows.Count: C = .Columns.Count For I = 1 To R FILA = vbNullString CELDA =...

Esta es la fórmula que ocupas =+SI(MAYUSC(A1)="MASCULINO",+SI(B1>=6000, "BOLSOS Y PAÑALES","BOLSO"),SI(MAYUSC(A1)="FEMENINO",SI(B1>=6000, "AJUAR Y PAÑALES","AJUAR"),0))

Este es el resultado de la macro, en este Sub COPIAR_DATOS() Dim X As WorksheetFunction Set X = WorksheetFunction Set H1 = Worksheets("HOJA1") Set H2 = Worksheets("HOJA2") Set datos = H1.Range("A1").CurrentRegion ID = H2.Range("B1") MENSAJE = "NO...

La fórmula es algo complicada como ves en la imagen y esta es la formula =+"HASTA EL EMPLEADO " & SI(SUMA(DESREF(C1,0,0,COCIENTE(E1,PROMEDIO(C1:C10))))>E1,COCIENTE(E1,PROMEDIO(C1:C10))-1,COCIENTE(E1,PROMEDIO(C1:C10)))

¿Algo cómo esto? Este es el código Option Base 1 Sub muestra() Dim x As WorksheetFunction Set x = WorksheetFunction Set datos = Range("a1:u1296") With datos r = .Rows.Count: c = .Columns.Count Mini = x.Min(datos) Maxi = x.Max(datos) .Columns(c +...

¿ ¿Corrígeme si me equivoco te estas manejando a base de tablas que hiciste con la instrucción insertar tabla?, de ser así tienes que nombrar a la tabla que tienes en la hoja base de datos como pacientes esto es fácil solo da click en cualquier celda...