joselica

Buenas tardes, Gracias a los 2 (Johnmpl y Leopoldo Blancas). He probado primero la opción de johnmpl =SI(O(B4={"CONFIRMADO";"CANCELADO"};E4="");"";SI(E4>K$5;K$8;SI(E4>0;K$7;K$6))) y de momento me sirve, ire probando con las demás opciónes para ir practicando. Un saludo a los 2, Jose

Buenos días Torquemada, Gracias por tu respuesta, funcióna muy bien. He visto que cuando voy copando la formula en la lista y las demas celdas no contienen datos, me da el texto "vencido". Lo que quiero es que si no haya nada en la celda D4, si en las demas celdas de la fila no haya datos He puesto el la formula función: "SI.ERROR" y no me hace caso. Lo he intentado varias veces de corregir la formula del tema "SIERROR" y el resultado me da error y no veo donde me equivoco. Te dejo aqui la formula (que he INTENTADO crear) por si me la puedes corregir por favor. =SIERROR(SI(O(B11="CONFIRMADO";B11="CANCELADO");"";SI(E11<=0;$K$6;SI(E11<=$K$5;$K$7;$K$8)));"") Adjunto el documento tambien por si me me he hecho endender. Gracias, Jose TEXTO A APARECER O DESAPARECER -a.xlsx

Buenos días, Quiero que los datos de celda D4 desaparezcan una vez que en la celda B4 escojo cualquier texto de la lista desplegable "CONFIRMADO" o "CANCELADO" o si no hay NADA que se mantenga la información visible de la dicha celda D4. Muchas gracias. Saludos, Jose TEXTO A APARECER O DESAPARECER.xlsx

Muchas gracias Leopoldo pot tu aclaración. Investigare en más adelante sebre el tema del Set que comentas. Un saludos, Jose

Una pregunta. Dim Fila As Long, H1 As Worksheet, H2 As Worksheet '-- Application.ScreenUpdating = False 'Evita el parpadeo Set H1 = Sheets("Sheet1") Set H2 = Sheets("Sheet2") ¿Debo de entender que H1 y H2 son las hojas 1 y 2? Gracias.

Muchas gracias Sr. Antoni. Me ha servido de mucho su ayuda. Le deseo un buen día. Saludos, Jose

Buenos días, Intento crear una macro para que me guarde los datos. En la hoja tengo 2 casos. El caso1 lleva una macro que trabaja bien, pero en el caso2 no consigo hacer lo mismo que en el caso1. Adjunto el libro por si hay alguien que me puede hechar una mano. Gracias. Jose GUARDAR DATOS.xlsm

Buenos días a todos, Estoy intentando de crear 2 formulas con las funciones INDICE y COINCIDIR y estoy dando palos al agua. Adjunto el documento a donde he añadido 2 cometarios de lo que pretendo conseguir. Gracias por vuestra ayuda. Saludos, Jose 2018 prueba formula tarifas.xlsx

Buenas tardes Silvia, Muchas gracias por tu ayuda. Va muy bien. Ire jugando con la plantilla para ver si encuentro otros errores. Mientras tanto te deseo un buen fin de semana. Saludos, Jose

Buenas tardes, La formula que he creado en la celda J23, no me funciona. Adjunto el documento para la visualización. Gracias por vuestra ayuda. Un saludo, Jose TARIFAS TEST 2018 prueba.xlsx

Hola Torquemada, Al final he conseguido de hacer funcionar lo de las MAYUSCULAS. Los de RESALTAR las celdas activas se me resiste. Te adjunto los detalles: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$B$14" Or Target.Address = "$C$14" Then ActiveSheet.Cells.Interior.ColorIndex = none Target.Interior.ColorIndex = 6 ActiveSheet.Unprotect "aaa" If Range("B14") = Empty Or Range("C14") = Empty Then Rows("23:30").Select: Selection.EntireRow.Hidden = True Else Rows("23:30").Select: Selection.EntireRow.Hidden = True If Range("C14") > 0 And Range("C14") < 9 Then Rows("23:" & Range("C14") + 22).Select Selection.EntireRow.Hidden = False End If End If Range(Target.Address).Select ActiveSheet.Protect "aaa", _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True End If Application.ScreenUpdating = True On Error Resume Next Application.EnableEvents = False If Not Intersect(Range("C5:H5"), Target(1, 1)) Is Nothing Then Target(1, 1).Value = UCase(Target) End If Application.EnableEvents = True End Sub Private Sub SelectUnlockedCells() Dim WorkRng As Range Dim OutRng As Range Dim Rng As Range On Error Resume Next Set WorkRng = Application.ActiveSheet.UsedRange Application.ScreenUpdating = False For Each Rng In WorkRng If Rng.Locked = False Then If OutRng.Count = "" Then Set OutRng = Rng Else Set OutRng = Union(OutRng, Rng) End If Application.ScreenUpdating = True End Sub Gracias Un saludo, Jose

Hola Torquemada, Es verdad en la hoja joselica A he hecho los cambios indicados y me va. Pero a la hora de proteger la hoja no me va. Proteger "aaa" He hecho la comprobacion en la macro con F8 y me da error: 1004 Application-defined or object-defined error Esta fila: y no puedo ir mas adelante. ActiveSheet.Cells.Interior.ColorIndex = none Cuando la plantilla no esta bloqueada funciona bien, en cuanto aplico el bloque de las celdas indicadas ya me da error. Gracias Te adjunto el fichero ya bloqueado para que veas que no va. Saludos, Jose joselica Aa.xlsm

Hola Torquemada, He hecho lo que me comentabas. Te adjunto la hoja "joselicaA" en lo cual he puesto los datos que tengo yo en la hoja1 y lo indicado por ti. No me va. joselica A.xlsm

Hola Torquemada, Gracias por tu tiempo. Tengo la macro en la hoha1 y otra parte en el modulo 1 He hecho lo que me has dicho abriendo el VBA, en la hoja1 he pegado las indicaciones que me has facilitado y me sale una ventana emergente que me dice "Compile errorr" y continua con "ambiguous name detected Wokseet_Change" He cambiado los Worksheet por Worbook y no hace nada. ¿? Despues lo he pegado en el modulo1, no me da error pero no hace nada. Saludos, Jose

Bunas tardes, He deasrollado una plantilla con vuestra ayuda que me va de maravilla. Ahora necesito finalizar 2 pequeños detalles para finalizarlo y ponerla en practica: 1 - Resaltar las celdas activas (a reelenar en color amarillo). 2 - En el rango de celdas (C5:H5)( escribir solo en mayusculas) He visto algunas cosas que he intentado de añadirlos a la macro ya existente, pero no consigo adaptarla a mi plantilla. Esto es lo que he visto. RESALTAR LAS CELDAS EN COLOR AMARILLO Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells.Interior.ColorIndex = none Target.Interior.ColorIndex = 6 End Sub ESCRIBIR EN MAYUSCULAS EN EL RANGO DE CELDAS ESPECIFICADAS Sub Change() Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Not Intersect(Range("C5:H5"), Target(1, 1)) Is Nothing Then Target(1, 1).Value = UCase(Target) End If Application.EnableEvents = True End Sub No puedo subir el archivo porque pesa más de lo permitido. ¿Me podeis ayudar? Por favor. Muchas gracias, Jose