Convertir macro para Mac

[ahortac]

Hola tengo una macro que he utilizado correctamente antes desde windows, necesito abrirlo en MAC. Primero elimine todos los ActiveX controls para que funcione en mac y cambie algunos codigos. Ahora cuando trato de ejecutar el boton me sale error, es porque estoy usando RowSource el cual no funciona en mac. He probado distintos codigos sin exito. 

 

Este es el codigo del user form que tengo 

 

Private Sub UserForm_Initialize()

Dim Uf As String

Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row

ComboBox1.RowSource = "Registros!B2:B" & Uf    

End Sub

 

Agradeceria si pueden ayudarme a cambiar este codigo sin alterar la macro. La macro esta disenada para buscar personas y agregar pagos co. conceptos en otra hoja donde ademas se genera una fecha y va agregando los pagos que realiza cada persona.

Ayuda Excel-Cuentas-2.xlsm

[JSDJSD]

Prueba y comenta

Ayuda Excel-Cuentas-2 prueba.xlsm

[ahortac]

Muchas gracias JSDJSD, funciona perfectamente. Solo cambiaste rowsource por additem? 

 

 

[karla valadez]

hola tengo el mismo problema me puedes ayudar porfavor, trato de descargar el archivo para ver que fue lo que cambiaron pero ya no aparece en linea, me puedes ayudar solo en decirme como lo resolviste?? saludos!!

[ahortac]

Solo se cambio el codigo de RowSource por additem

Antes

Private Sub UserForm_Initialize()

Dim Uf As String

Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row

ComboBox1.RowSource = "Registros!B2:B" & Uf    

End Sub

Despues

 

Private Sub UserForm_Initialize()

Dim Uf As String

Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row

ComboBox1.AddItem = "Registros!B2:B" & Uf    

End Sub