Jump to content

joselica

Members
  • Content Count

    51
  • Joined

  • Last visited

About joselica

  • Rank
    Advanced Member

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. 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
  3. 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
  4. Muchas gracias Leopoldo pot tu aclaración. Investigare en más adelante sebre el tema del Set que comentas. Un saludos, Jose
  5. 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.
  6. Muchas gracias Sr. Antoni. Me ha servido de mucho su ayuda. Le deseo un buen día. Saludos, Jose
  7. 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
  8. 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
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5