problema con Row Soucer

[lsmaniahotmail.com]

Saludos a todos los profes de esta gran materia , recurro a uds , si alguien puede ayudarme con el error que no me deja avanzar en mi proyecto . se trata de llenar un listBox y de acuerdo al registro seleccionado debe llenar los txt correspondientes , adjunto la programacion utilizada

FSE2Nueva_facturacion.xlsm

[Mauricio_ODN]

Hola @lsmaniahotmail.com

Una opción seria así:

Private Sub UserForm_Activate()

Dim oRG As Range

'Utilizo este codigo para llenar el listBox

Set oRG = Sheets("CUENTAS").ListObjects("Tab_Cta").Range

Me.ListCtas.RowSource = "=CUENTAS!" & oRG.Address
Me.ListCtas.ColumnCount = 6

'para no mostrar los Txt del formulario
frmCtas.Height = 250
' cuando hago click en el boton editar , si muestra todo

End Sub

 

Nos comentas, Saludos.