Mostrar hoja en Listbox según selección en Combobox

[pinoji]

Buenas tardes colegas. Espero se encuentren bien de salud.

Este es un Proyecto "viejo" en el que vengo trabajando y tratando de mejorar siempre que el tiempo y los conocimientos me lo permitan. Trabajo con él a diario y es el instrumento que más utilizo. Acá lo simplifiqué, o sea eliminé un grupo de hojas y formularios que no necesito para exponer mi problema.

Necesito cuando yo escoja en Banco a trabajar en el combobox ComBanco, se muestre en el listbox LstDiario el contenido de las operaciones de ese Banco en cuestión. Puede ser mediante el Objeto Tabla o mediante la hoja. O sea, si escojo BANDEC, que se muestre los datos de la Hoja BANDEC y así con las otros dos Bancos.

El tema de registrar en la Hoja específica según selección del combobox ya lo tengo resuelto aunque habrá que mejorar algunas cosas, también voy a necesitar ayuda a la hora de buscar o filtrar los Bancos por fecha y la búsqueda de determinados registros, así como con la modificación de registros según en Banco que se escoja, pero primero voy a intentar resolverlo yo, de no poder pues acudo a esta comunidad.  Primero mostrar en listbox según selección de la hoja.

Gracias de antemano

saludos

Pino.

 

Para Foro.xlsm

[JSDJSD]

Mañana si puedo te lo miro

[pinoji]

Buenas noches colegas.

OK JSD, no hay problemas. Me alegra mucho saber que se encuentra bien. Realmente hacía mucho tiempo no estaba por estos "lares", pero entre trabajo, familia problemas y apagones la vida se ha vuelto prácticamente "invivible" acá. También los problemas o dudas que he ido teniendo los he ido resolviendo sin tener que acudir a este maravilloso Foro, aunque debo confesar que en un par de ocasiones tuve que acudir al Foro TodoExcel, igualmente maravilloso.

Para todos una excelente noche.

Saludos

Pino

[JSDJSD]

Mira a ver si te entendí

[JSDJSD]

Private Sub ComBanco_Change()
    Dim hojabuscada As String
    Dim ultFila As Long
    Dim ultCol As Long
    hojabuscada = ComBanco
    
    With Sheets(hojabuscada)
        ultFila = .Cells(.Rows.Count, 1).End(xlUp).Row
        ultCol = .Cells(6, .Columns.Count).End(xlToLeft).Column
        LstDiario.RowSource = .Range(.Cells(6, 1), .Cells(ultFila, ultCol)).Address(External:=True)
    End With
End Sub

El saldo inicial no se si quieres que se muestre, en caso contrario modifica la macro, simplemente cambia en la dos ultimas líneas del bloque with el 6 por el 7

Para Foro.xlsm

[Antoni]

Otra forma a partir de las tablas, los nombres de las hojas, el combo bancos y el nombre de las tablas deben ser iguales.

 

Para Foro.xlsm

[pinoji]

Buenas tardes colegas. Espero se encuentren bien de salud.

Buenas tarde JSD. Buenas tardes Antoni.

Antes que nada, disculparme por la demora en responder, pero por acá los apagones son de más de 12 horas diaria y a esto súmenle horas de trabajo, problemas personales y horas de sueño, nada..., que no queda tiempo para nada.

Agradecer a los dos (JSD y Antoni) por sus respuestas a mi duda. Excelentes las dos variantes. Realmente no podía ser de otra manera viniendo de ustedes.

Yo tenía mi variante para resolver este “problema”, que era mediante la condicional IF/End IF ó usar un Select Case, pero sabía que debían existir otras variantes mejores que esta y quizás con menos líneas de códigos y más eficientes, además, son herramientas que aumentan mis conocimientos y esto es lo más positivo.

En una verdadera lástima que no se pueda compartir el “MÁXIMOS CONTRIBUIDORES”, esto representa una encrucijada para mí.

Para todos los miembros del Foro mis agradecimientos, en especial a mi “padrino” JSD y al Maestro Antoni y mis más sinceros respetos.

Saludos

Pino.