Jump to content

Seleccionar varios elementos de un desplegable en una misma celda


Mbg

Recommended Posts

Buenas

Necesitaría a partir de un desplegable que debe repetirse en una columna a lo largo de varias filas, poder seleccionar varios elementos que queden separados por comas. He encontrado una forma de hacerlo añadiendo este código al excel, pero necesitaría modificarlo para:

1. Que me permita borrar los valores si me equivoco

2. Que me permita arrastrar a lo largo de las filas, y que lo que arrastre sea el desplegable y no los valores seleccionados en la fila anterior. A ver si me podeis ayudar

Gracias!

Este es el código: 

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20180510
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    xStrNew = xStrNew & "," & Target.Value
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Link to post
Share on other sites

Hola

Para que nadie tenga que estar reproduciendo y/o intentando reproducir tus datos, lo mejor es que adjuntes tu archivo y una nueva y más detallada explicación de lo que necesitas. Si consideras que hay datos privados, tan solo bórralos o reemplázalos de tal modo que no se afecte el modo de entender tu dilema.

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • gracias - Sur ENE 2021.xlsb
    • Como "campo calculado"; pon la tabla y lo vemos
    • con estas líneas de código en la ventana inmediato leo todo el contenido del xml, incluso el de la cdata,  pero como haría para pasar dicho contenido en formato tabular a excel??🙄 Sub TestXML3() Dim XDoc As Object Set XDoc = CreateObject("MSXML2.DOMDocument") XDoc.async = False: XDoc.validateOnParse = False XDoc.Load (ThisWorkbook.Path & "\ad09004905940102100002111.xml") 'Get Document Elements Set lists = XDoc.DocumentElement 'Traverse all elements 2 branches deep For Each listNode In lists.ChildNodes Debug.Print "---Email---" For Each fieldNode In listNode.ChildNodes Debug.Print "[" & fieldNode.BaseName & "] = [" & fieldNode.Text & "]" Next fieldNode Next listNode Set XDoc = Nothing End Sub Agradezco su ayuda
    • Perdona LeandroA, perfecto...Muchísimas gracias por todo.   Un Saludo
    • Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\STOCK.xlsm" Workbooks.Open ThisWorkbook.Path & "\STOCK.xlsm" 'Abre la copia With ActiveWorkbook .Sheets(2).Delete .Sheets(1).Delete .Save '<-- Guarda la copia después de eliminar las hojas .Close '<-- Cierra la copia después de guardarla End With  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy