Actividad pública reciente
Ha valorado "Excelente" la respuesta
Clic en un cuadro de dialogo y traspaso hasta X Celda
H o l a: Te paso la macro Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) u = Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 10 Then u = 10 Cells(u, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) Cells(u, 2).Value =...