Jose BN

Que tal si subis tu archivo, seguramente podrás recibir una mejor ayuda!

Hola! Prueba en la celda A5: =INDICE($C$3:$O$3,0,COINCIDIR(0,C5:O5,0)) Saludos,

Ya probaste el formato condicional?

Bingo! Diego Las pegaste todas!!! Saludos

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.

Qué tal probar en el menú de opciones de las costumbres?

La conclusión ha llegado para ti o continua otra ronda para el vino?

Lista con dos columnas - PARA JUAN P.xlsm

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

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

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

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

En la web existen muchas opciones, ya revisaste ese universo?

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

A ver si por aquí van las balas.... https://docs.microsoft.com/en-us/office/troubleshoot/excel/save-file-to-network-drive