Jump to content

AlexanderS

Moderators
  • Content Count

    1,272
  • Joined

  • Last visited

  • Days Won

    51

AlexanderS last won the day on September 6

AlexanderS had the most liked content!

About AlexanderS

  • Rank
    Riddle
  • Birthday 08/22/1990

Profile information

  • Gender
    Hombre
  • Localización:
    Costa Rica

Converted

  • Campos
    ,

Recent Profile Visitors

4,131 profile views
  1. Lo siento pero no tengo idea, y no puedo hacer mas pruebas dadas las limitaciones de mi cuenta de instagram. Tendrás que leer la documentación del conector, tal vez hay un paso que nos saltamos.
  2. 1.Esto solo funciona en una cuenta empresarial de Instagram. https://vilmanunez.com/guia-activar-perfil-de-empresa-instagram/ 2.La cuenta de instagram debe estar vinculada a la de facebook. https://vilmanunez.com/como-enlazar-tu-perfil-de-instagram-con-tu-pagina-de-fans-en-facebook/ 3.Debes descargar el conector https://drive.google.com/uc?export=download&id=11koYwbUjwJNoO4SIj7n7n91xH9b0sPTn. 4.Crear una carpeta en Documentos llamada Power BI Desktop y dentro de esta una llamada Custom Connectors después guardar el archivo descargado dentro de esta carpeta. 5.Abrir Power BI, probablemente te salga un mensaje con una advertencia acerca del conector no certificado, debes ir a Opciones->Seguridad y en Exenciones de Datos marcar la segunda opción y reiniciar Power BI. 6.Abrir Power BI ir a Archivo->Obtener Datos->Mas... en Otras encontraras el conector a Instagram. 7.Te pedirá iniciar sesion en Facebook y darle permiso a la aplicación a acceder a tus datos. 8.Listo deberías ver algo así: Esto fueron los pasos que yo seguí, aparte de esto no puedo decirte mas ya que mi cuenta al inicio no era empresarial por lo que no tengo estadísticas . Saludos.
  3. Imagino que en el archivo donde lo probaste tienes filas en blanco antes del primer salto de linea, creo que ese es el error. No es necesario solo estoy contando 40 lineas de lo contrario simplemente no hace nada. Le indico en esta linea Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible) que apartir de la celda A1 se vaya a la ultima celda con datos, por eso si tienes alguna celda vacía por ejemplo en la fila 12 hasta ahí llega ciclo for. Prueba ahora con esta modificación, no es necesario indicar la cantidad de filas ya que encontrara la ultima fila de la columna A con datos, esto es conveniente si tus datos van a crecer aun mas. Sub insertar_filas() Dim x#, celda As Range Application.ActiveSheet.ResetAllPageBreaks For Each celda In Range("A1", Range("A" & Cells.Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible) x = x + 1 If x = 40 Then x = 0 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(celda.Row + 1) End If Next End Sub De igual manera y por aquello puedes usar esta linea también For Each celda In Range("A1:A10000").SpecialCells(xlCellTypeVisible) Saludos.
  4. A mi me funciona sin problema, prueba el adjunto. Demo.xlsm
  5. @jik, basado en tu ejemplo, con esta modificación debería funcionar sin importar donde o cuantas celdas ocultas tengas. Sub insertar_filas() Dim x#, celda As Range Application.ActiveSheet.ResetAllPageBreaks For Each celda In Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible) x = x + 1 If x = 40 Then x = 0 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(celda.Row + 1) End If Next End Sub Comentas, saludos.
  6. Si planeas utilizar Power BI, puedes intentar utilizar un custom data connector, estos como indica su nombre son conectores personalizados no oficiales de microsoft. No lo he probado por lo que no se si funciona o si se adapta a tu caso, solo sirve (por el momento) con power bi la versión gratis o de pago. Te dejo el link para descargar el complemento https://new.scitylana.com/connectors Y el enlace al repositorio de GitHub donde puedes encontrar las instrucciones https://github.com/mbilling/PBIConnectors Saludos.
  7. @jik, prueba así. Sub insertar_filas() For i = 40 To 1000 Step 40 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & i + 1) Next End Sub El archivo es por normas del foro, puedes armar un pequeño ejemplo con solo datos ficticios, tómalo en cuenta para futuras consultas. Saludos.
  8. Hola @jik, para que te podamos ayudar adecuadamente debes explicar mejor tu problema y adjuntar un archivo excel de ejemplo con lo que esperas de resultado. Te dejo una idea para que puedas adaptarlo a tu archivo. Sub insertar_filas() For i = 1 To 10000 Step 4 Cells(i, 1).EntireRow.Insert Shift:=xlDown Next End Sub saludos.
  9. Creo que mas bien te complicarías mas con PQ, Power Query lo utilizo como una forma de dar formato a mis datos para después con el uso de tablas dinámicas extraer la información y crear mis reportes. Por lo tanto, si tus datos ya tienen el formato ideal y puedes sacar la información directamente de ellos con una tabla dinámica, no veo ventaja de tratarlos en PQ. Saludos.
  10. Prueba el adjunto, agregue las validaciones. La fecha para no desordenar lo que ya tenias la agregue al final Comenta si esto resuelve tu consulta. Saludos. Variables.xlsm
  11. Que tal @Carlos1986, adjunto una solución. Saludos. Variables.xlsm
  12. Hola, con una tabla dinámica tal vez? Comentas. Saludos Prueba Utilidades.xlsx
  13. No se porque pensé que los Checkbox estaban en la hoja directamente, debería funcionar así entonces: Sub lbl_aceptar_Click() Dim ct As Control For Each ct In Me.Controls If TypeOf ct Is MSForms.CheckBox Then If ct.Value = True Then ActiveCell = ct.Caption End If Next End Sub Saludos
  14. Bueno la lógica de la formula seria prácticamente la misma. Saludos Ejercicio 1 rev1.xlsx
  15. La próxima asegúrate de subir un archivo de ejemplo, hace mas sencillo poder ayudarte. Sub lbl_aceptar_Click() Dim ct As OLEObject For Each ct In ActiveSheet.OLEObjects If TypeOf ct.Object Is MSForms.CheckBox Then If ct.Object.Value = True Then ActiveCell = ct.Object.Caption End If Next End Sub Saludos.
×
×
  • Create New...

Important Information

Privacy Policy