James Bond

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 +...

La instrucción es esta Private Sub ComboBox1_Change() If ComboBox1.ListIndex < 0 Then MsgBox ("no existe este codigo"), _ vbInformation, "AVISO EXCEL": GoTo SAL '.... '.... '.... SAL: End Sub

Probé tu macro y a mi me funciona bien, este error aparece cuando declaras una variable de una manera por ejemplo single y la celda donde la usas es un texto (string) entonces como las variables no coincide te envía este error, cambia la variable...