Jump to content

AlexanderS

Members
  • Content Count

    1,263
  • Joined

  • Last visited

  • Days Won

    49

About AlexanderS

  • Rank
    Riddle

Profile information

  • Gender Array
  • Localización: Array

Converted

  • Campos Array

Recent Profile Visitors

4,072 profile views
  1. 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.
  2. 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
  3. Que tal @Carlos1986, adjunto una solución. Saludos. Variables.xlsm
  4. Hola, con una tabla dinámica tal vez? Comentas. Saludos Prueba Utilidades.xlsx
  5. 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
  6. Bueno la lógica de la formula seria prácticamente la misma. Saludos Ejercicio 1 rev1.xlsx
  7. 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.
  8. Hola, adjunto una posible solución. Saludos. Ejercicio.xlsx
  9. Te colocas en alguna celda vacía de la hoja, insertas un gráfico cualquiera, click derecho sobre el gráfico en blanco, click en seleccionar datos, y deberás agregar las series y categorías a mano sobre la tabla dinámica. Saludos.
  10. Acabo de hacer unas pruebas con unas 9000 IPs y no me dio error, lo pare cuando llevaba unas 1700 filas ya que el proceso es muy lento para mi paciencia, no tengo idea que puede estar pasando. Tal vez buscar alguna API similar, esa era para power bi pero funciono bien en power query por lo pienso que tal vez buscando algo similar... Otra posibilidad es con una tabla auxiliar, pero investigue un poco y es algo complejo pero no imposible aquí alguien realizo una plantilla https://www.someka.net/excel-template/ip-to-country-converter/ aunque esta si hay que pagarla.
  11. No se porque se daño el archivo, vuelvo a subirlo. Pruebas IPs.xlsx
  12. Sobre el error en mi caso no tuve ningún problema ... Me encontré esto en Internet https://www.excelguru.ca/blog/2015/03/11/power-query-errors-please-rebuild-this-data-combination/ , no lo leí al detalle pero parece un error al combinar una consulta local con una externa. Voy a dejar el archivo donde realice la prueba, tal vez te funcione. Saludos.
  13. Que tal @sergio, encontré una forma utilizando una API, en su formato gratuito te permite realizar 10,000 consultas al mes. Bueno esto va así: Entras y te registras en esta pagina https://ipstack.com, cuando te registres te enviara a un Dashboard aqui lo importante es el Access Key. En Power Query donde tienes las consultas con las IPs debes crear una consulta en blanco. En esa consulta y desde el editor avanzado vas a pegar el siguiente código: let Source = (#"IP Address" as text) => let Source = Json.Document(Web.Contents("http://api.ipstack.com/" & #"IP Address"&"?access_key=@@@@@@@@@")), #"Converted to Table" = Record.ToTable(Source), #"Transposed Table" = Table.Transpose(#"Converted to Table"), #"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table") in #"Promoted Headers" in Source En esta linea Source = Json.Document(Web.Contents("http://api.ipstack.com/" & #"IP Address"&"?access_key=@@@@@@@@@")), Vas a reemplazar los "@" por el Access Key que te proporciono la pagina, quedando algo así: Source = Json.Document(Web.Contents("http://api.ipstack.com/" & #"IP Address"&"?access_key=e6aas388bfa844fc8be50d51000163e")), Click en listo y esta se guarda como una función, de hecho podrías "invocar" la función con el botón colocar una IP y te devolverá los datos. Ahora para utilizarla en tu tabla de IPs solo debes agregar una Columna Personalizada y colocar la formula: Consulta1([Ip]) Mi función se llama "consulta1" y mi campo en la tabla donde tengo los IPs se llama "Ip" Y eso seria todo, solo es cuestión de expandir la tabla y seleccionar la información de tu gusto. Espero te sea de ayuda. Comentas, saludos.
  14. Hola AlexanderS

    Estaba buscando un Calendario para Formularios, pero que no utilizara datepicker y encontre tu post, pero no deja descargar el archivo, hay alguna manera de poder obtener tu aporte?

    Encontre otro aporte parecido, pero hay que colocar muchas lineas para obtener el mismo resultado que el tuyo que utiliza solo una linea.


    Saludos,

    1. AlexanderS

      AlexanderS

      Que tal, te respondo en privado. Saludos

  15. Hola, el problema es que estas sobreescribiendo el recordset en esta linea recordset.MoveNext y despues no estas contando nada en esta linea UserForm1.TextBox1.Value = recordset.RecordCount ya que la forma en que realizas la consulta no devuelve "filas" para contar si no un valor. Prueba asi: Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FROM TClientes " Consulta = "SELECT COUNT(Razon_Social) FROM TClientes " Set recordset = New ADODB.recordset recordset.Open Consulta, conexion Dim total_reg As Integer UserForm1.TextBox1.Value = recordset.GetString total_reg = 0 Set recordset = Nothing Set conexion = Nothing End Sub Saludos.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5