Saltar al contenido

lursaildi

Miembros
  • Contador de contenido

    147
  • Unido

  • Última visita

Sobre lursaildi

  • Rango
    Miembro

Visitantes recientes del perfil

325 visitas de perfil
  1. lursaildi

    Como modificar formula

    Muchas gracias a los dos funcionan las dos, solo que a la Gerson Pineda le quito el - para dejar la celda en blanco Tema cerrado
  2. lursaildi

    Como modificar formula

    Tengo dos hojas de Excel en un libro que cogen datos una de la otra con fórmulas pero una de las fórmulas (SI(Hoja2!$L18>= 1;SI.ERROR(BUSCARV("Jn3";Hoja2!$D18:$K18;1;0);"");"") tiene que rellenar la celda si en la hoja 1 tiene un valor en la celda SI(Y(J18>1;K18>1;1);1;"")esta con un valor , pero rellena la celda aunque dicha celda no tenga valor solo tiene la formula sin datos , como puedo modificar la fórmula para que cumpla la condición EJEMPLO_1.xlsxEJEMPLO_1.xlsx
  3. lursaildi

    Ocultar filas con valor 0

    Gracias solucionado cambiando las formulas
  4. lursaildi

    Ocultar filas con valor 0

    No me habré expresado bien lo que pretendo es cuando las filas estén vacías aunque en las celdas de las columnas AW9 a AW200 y Ay9 a AY200 tengan valor de cero por no tener valor y no saber yo como en esas fórmulas no de valor de cero y quedarse en blanco se ejecute la macro y oculte las filas que no tenga valores.
  5. lursaildi

    Ocultar filas con valor 0

    Subo archivo Libro4.xlsm
  6. Tengo una macro que oculta filas vacías pero no me oculta filas que en algunas celdas el resultado de la fórmula el valor sea 0 ya que no tienen valores las celdas que tienen para la hacer funcionar la formula, se puede añadir a la macro para que las columnas AW9 a AW200 y Ay9 a AY200 que aunque el valor de la celda sea 0 oculte esa fila. Public Sub Ocultar_BL() Desbloquear Dim rng As Range Dim intLastCol As Integer Dim intLastRow As Integer Dim blnEmptyRow As Boolean Dim i As Integer Dim j As Integer Set rng = Selection.SpecialCells(xlCellTypeLastCell) intLastCol = rng.Column intLastRow = rng.Row For i = 1 To intLastRow blnEmptyRow = True For j = 1 To intLastCol If Cells(i, j).Value <> "" Then blnEmptyRow = False Exit For End If Next If blnEmptyRow Then Cells(i, j).EntireRow.Hidden = True End If Next End Sub
  7. lursaildi

    Formula vinculada a formula

    Muchas gracias a todos funciona con todas las soluciones usare la de AnderX Tema solucionado y cerrado
  8. lursaildi

    Formula vinculada a formula

    Tengo la siguiente formula =(SI(H5>1;">";"")) si la aplico vinculando una celda que tenga implicada otra celda con formula el valor resultante siempre es el valor > teniendo que ser celda en blanco como puedo solucionar EJemplo.xlsx
  9. Muchas gracias por la contestar pero lo que yo pretendo lo mismo pero con las columnas que no tengan ningún valor en ese rango aunque tenga valores por encima o por debajo de ese rango, en este caso es ocultar las columnas c,e,f,g,l,j,k,m,n,p
  10. Hay alguna forma de ocultar columnas vacias en un rango columnas ejemplo todas las colunnas que esten com en el ejemplo entre B9:R9 Y B20:R20 oCULTAR columnas vacias en un rango.xlsx
  11. lursaildi

    Como solucionar error formula

    Muchas gracias asi si funciona bien
  12. lursaildi

    Como solucionar error formula

    Tengo la siguiente Formula: =BUSCAR($B4;$I$3:$T$3;I4:T4) me debería buscar en la celda a4 el número correspondiente a la tabla que debería ser 25 y me coge 19 a que puede ser debido eJEMPLO1.xlsxeJEMPLO1.xlsx
  13. lursaildi

    Macro no funciona

    Muchas gracias no lo veía
  14. lursaildi

    Macro no funciona

    Si activo la macro que se encuentra en la hoja ensayos_Bl en el botón ocultar filas vacías se encuentra la macro incluida Call OCULTAT_FILAS_Ensayos_bl y otra macro Call oculta_columnas_BL que al activar el botón debería ocultar todas las filas vacías y las columnas que se tienen activadas para ocultar. Perdón por no haberme explicado, espero que esto te sirva y si no es así intentare explicar mejor
  15. lursaildi

    Macro no funciona

    https://drive.google.com/file/d/1CYsmgNFvuRjbqMkmc1RAoKzB8dfAxh9a/view?usp=sharing Tengo la siguiente macro que la utilizo en un libro en varias hojas cambiando solo el nombre de la hoja que corresponda y funciona en todas menos en una que no funciona y no veo porque, no veo cual puede ser el error. Sub Desbloquear() Sheets("Ensayos_bl").Select 'Selecciona la Hoja2 ActiveSheet.Unprotect 'Desprotege la hoja activa. Sin contraseña End Sub Sub OCULTAT_FILAS_Ensayos_bl() ActiveSheet.Unprotect Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Dim rng As Range Dim intLastCol As Integer Dim intLastRow As Integer Dim blnEmptyRow As Boolean Dim i As Integer Dim j As Integer Set rng = Selection.SpecialCells(xlCellTypeLastCell) intLastCol = rng.Column intLastRow = rng.Row For i = 1 To intLastRow blnEmptyRow = True For j = 1 To intLastCol If Cells(i, j).Value <> "" Then blnEmptyRow = False Exit For ActiveSheet.Protect End If Next If blnEmptyRow Then ActiveSheet.Unprotect Cells(i, j).EntireRow.Hidden = True ActiveSheet.Protect End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True ActiveSheet.DisplayPageBreaks = True Application.CutCopyMode = False Proteger End Sub Private Sub Worksheet_Activate() Range("A1").Activate End Sub Sub Proteger() Sheets("Ensayos_bl").Select 'Selecciona la Hoja2 ActiveSheet.Protect 'Protege la hoja activa. End Sub
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.