Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Convertir macro para Mac

publicado

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

Featured Replies

publicado
  • Autor

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

 

 

  • 10 months later...
publicado

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!!

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.