Jump to content

Jose BN

Members
  • Content Count

    166
  • Joined

  • Last visited

  • Days Won

    6

Jose BN last won the day on April 3

Jose BN had the most liked content!

About Jose BN

  • Rank
    Advanced Member
  • Birthday 09/12/1980

Recent Profile Visitors

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

  1. Que tal si subis tu archivo, seguramente podrás recibir una mejor ayuda!
  2. Hola! Prueba en la celda A5: =INDICE($C$3:$O$3,0,COINCIDIR(0,C5:O5,0)) Saludos,
  3. Ya probaste el formato condicional?
  4. Jose BN

    BINGO

    Bingo! Diego Las pegaste todas!!! Saludos
  5. Para la versión web como ya lo han indicado existes muchas limitaciones, entonces el camino que puedo visualizar es romper la costumbre que tienes con la opción que se ha recomendado. A no ser que tomes la versión de escritorio.
  6. Qué tal probar en el menú de opciones de las costumbres?
  7. La conclusión ha llegado para ti o continua otra ronda para el vino?
  8. Lista con dos columnas - PARA JUAN P.xlsm
  9. Juan P A ver si con esto me invitas a un café : Sub Worksheet_SelectionChange(ByVal Target As Range) Dim anchoG As Single Dim anchoP As Single anchoG = 24 anchoP = 5.57 Static Col As Long If Target.Count > 1 Then Exit Sub If Target.Column >= 11 And Target.Column <= 41 Then Target.Columns.ColumnWidth = anchoG Else Target.Columns.ColumnWidth = anchoP End If If Col > 0 Then Columns(Col).ColumnWidth = 8 End If Col = Target.Column End Sub Saludos J
  10. Juan P. no logré ver la imagen que mencionas, pero veamos: para que cuando se pulse sobre una celda se agrande y luego vuelva a tener su tamaño ya que la celda solo tendrá unos 4 caracteres. A ver si damos en el clavo a lo que he logrado comprender: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, Range("h7:al7,h8:AL8")) Is Nothing Then ActiveWindow.Zoom = 100 Else ActiveWindow.Zoom = 120 End If End Sub
  11. Abusando de esta recomendación de Héctor Miguel asumiendo que te refieres a los desplegables en listas de reglas de validación (?), mira por aquí: - Drop Down List Too Wide - Make the Dropdown List Temporarily Wider - Make the Dropdown List Appear Larger - Data Validation Tips and Quirks
  12. Juan P esto sucede porque el evento Worksheet_Change que ha utilizado Gerson están dirigido a los cambio que ocurran en la celda E2, si lo que deseas es aplicar en E4 solo debes cambiar la referencia. Private Sub Worksheet_Change(ByVal Target As Range) '************ by Gerson Pineda ************ '************ Feb/2020 ************ On Error Resume Next Application.EnableEvents = False With Target If .Address(0, 0) = "E4" Then .Value = _ VBA.Left(.Value, VBA.InStr(1, .Value, " ", vbTextCompare) - 1) End With Application.EnableEvents = True On Error GoTo 0 End Sub
  13. En la web existen muchas opciones, ya revisaste ese universo?
  14. A ver si te parece: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrHandler If Intersect(Target, Me.Range("e6:e10")) Is Nothing Or Target = "" Then Exit Sub Application.EnableEvents = False If Target = 2 Then Target.Offset(0, 13) = "LIM" Target.Offset(0, 14) = "AMS" Target.Offset(0, 15) = "CDG" Target.Offset(0, 16) = "AMS" Target.Offset(0, 17) = "LIM" Else End If ErrHandler: Application.EnableEvents = True End Sub Un buen consejo que me dieron hace poco tiempo, una gran primo que adquirí por estos lados: Gerson Pineda porque el problema de este evento, es que incluso te puedo pegar el Excel. Si tienes mas dudas respecto al código pues solo avisa y con gusto te colaboro https://ayudaexcel.com/foro/topic/42515-worksheet_change-que-obligue-a-corregir-el-valor-en-una-celda/?do=findComment&comment=239917
  15. A ver si por aquí van las balas.... https://docs.microsoft.com/en-us/office/troubleshoot/excel/save-file-to-network-drive
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png