Buenos días, tengo una consulta, estoy realizando una macro mediante un UserForm, pero durante su ejecución me dice que la propiedad .ListCount no me permite utilizar más de 10 Columnas, que hago? Adjunto el código utilizado. Private Sub NomTela_Change() Application.ScreenUpdating = False Sheets("BASE DE DATOS").Select Range("A2").Select Lista.Clear While ActiveCell.Value <> "" M = InStr(1, UCase(ActiveCell.Value), UCase(NomTela.Text)) If M > 0 Then Lista.ColumnCount = 11 Lista.AddItem ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 0) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 1) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 2) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 3) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 4) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 5) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 6) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 7) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 8 ) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 9) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 10) = ActiveCell.Value ActiveCell.Offset(0, -9).Select End If ActiveCell.Offset(1, 0).Select Wend Sheets("INICIO").Select Range("A1").Select Application.ScreenUpdating = True End Sub Private Sub Cod_Change() Application.ScreenUpdating = False Sheets("BASE DE DATOS").Select Range("B2").Select Lista.Clear While ActiveCell.Value <> "" M = InStr(1, UCase(ActiveCell.Value), UCase(Cod.Text)) If M > 0 Then Lista.ColumnCount = 11 Lista.AddItem ActiveCell.Offset(0, -1).Select Lista.List(Lista.ListCount - 1, 0) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 1) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 2) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 3) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 4) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 5) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 6) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 7) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 8 ) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 9) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.ListCount - 1, 10) = ActiveCell.Value ActiveCell.Offset(0, -9).Select End If ActiveCell.Offset(1, 0).Select Wend Sheets("INICIO").Select Range("A1").Select Application.ScreenUpdating = True End Sub Private Sub UserForm_Activate() Application.ScreenUpdating = False Sheets("BASE DE DATOS").Select Range("A2").Select While ActiveCell.Value <> "" ActiveCell.Offset(0, 50).Select If ActiveCell.Value = 0 Then ActiveCell.Offset(0, -50).Select Lista.ColumnCount = 11 Lista.AddItem Lista.List(Lista.RowSource - 1, 0) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 1) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 2) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 3) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 4) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 5) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 6) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 7) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 8 ) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 9) = ActiveCell.Value ActiveCell.Offset(0, 1).Select Lista.List(Lista.RowSource - 1, 10) = ActiveCell.Value ActiveCell.Offset(1, -10).Select Else ActiveCell.Offset(1, -50).Select End If Wend Sheets("INICIO").Select Range("A1").Select Application.ScreenUpdating = True End Sub Private Sub Lista_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Application.ScreenUpdating = False On Error GoTo ERR: L = Lista.List(Lista.ListIndex, 0) Sheets("BASE DE DATOS").Select Range("A2").Select While ActiveCell.Value <> "" And ActiveCell.Value <> L And ActiveCell.Value <> Val(L) ActiveCell.Offset(1, 0).Select Wend If ActiveCell.Value = "" Then Unload Me BUSQTELA.Show Else COD1 = ActiveCell.Value ActiveCell.Offset(0, 0).Select NOMB1 = ActiveCell.Value Sheets("INICIO").Select Range("B10").Select ActiveCell.Value = NOMB1 Unload Me End If ERR: End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

CONSULTA MACROS

Autor del tema RobinsonR23
Fecha de inicio 13 Oct 2017

RobinsonR23

New member

13 Oct 2017

Buenos días, tengo una consulta, estoy realizando una macro mediante un UserForm, pero durante su ejecución me dice que la propiedad .ListCount no me permite utilizar más de 10 Columnas, que hago...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Consulta sobre virus en macros compartidas

Respuestas: 1

12 Oct 2023

Abraham.Valencia

Pregunta

Consulta de listados con macros

Respuestas: 1

23 Jun 2020

monotoki1986

Pregunta

Prgrama consulta medicas, macros

Respuestas: 5

21 Ago 2018

lugbarry

Pregunta

consulta abriendo links con macros

Respuestas: 3

26 Jul 2017

Cacho R

Pregunta

Consulta para Base de datos en macros

Respuestas: 0

4 Mar 2015

Pistacho

Pregunta

Consulta sobre código de macros

Respuestas: 7

29 Oct 2011

JuanG

Pregunta

consulta sobre macros

Respuestas: 3

21 Dic 2010

Tinno

Pregunta

Consulta sobre formularios y macros

Respuestas: 1

14 Ago 2007

opermty

Pregunta

Consulta A Los Expertos En Macros

Respuestas: 6

26 Jul 2006

LUIS MIGUEL LOPEZ OSORIO

Pregunta

Consulta sobre macros

Respuestas: 2

22 Oct 2004

lpernas

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba