Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited


Reputation Activity

  1. Thanks
    lphant reacted to Gerson Pineda in Crear macro de una formula (contar diferentes )   
    Llevas años por este foro, ya es tiempo primero que aclares con mayor explicites tus dudas, como sugerencia prueba, investiga un poco [ocultar/mostrar hojas], no esperes siempre todo ¿Te parece?
    Adjunto el archivo con esas leves modificaciones
     
    Saludos 
    Contar Distintos VBA - Power Query_GP.zip
  2. Haha
    lphant got a reaction from Leopoldo Blancas in Crear macro de una formula (contar diferentes )   
    Muchas gracias @Gerson Pineda, funcionan muy bien pero para lo que tengo no me vale, tengo la hojas hojas ocultas y por ahora no quiero que se desoculten, se podría hacer de alguna otra forma sin filtro avanzado??.
    Muchas gracias.
  3. Thanks
    lphant reacted to Gerson Pineda in Crear macro de una formula (contar diferentes )   
    Hola @lphant
    Hay distintas formas, te adjunto 2 con Vba y 1 con Power Query 
     
    Saludos 
    Contar Distintos VBA - Power Query_GP.zip
  4. Like
    lphant got a reaction from Silvia in Contar celdas diferentes según otra columna   
    se me olvido que es una formula matricial, ahora si funciona jejejee...
    lo dicho, muchas gracias.
  5. Thanks
    lphant reacted to Silvia in Contar celdas diferentes según otra columna   
    Hola Iphant  (e Isidro 😊 ) 
     
    Yo entendí que quiere el conteo por Cliente.. 
    En ese caso,  por ejemplo si en el rango E3 : E7  tienes los códigos
    Entonces en  F3 :
    =CONTAR(1/FRECUENCIA(SI($A$2:$A$27=E2,COINCIDIR($B$2:$B$27,$B$2:$B$27,0)),FILA($B$2:$B$27))) mi separador de argumentos es la coma, si el tuyo es otro, corriges.
     
    saludos,
    Silvia
  6. Thanks
    lphant reacted to isidrod in Contar celdas diferentes según otra columna   
    buen día @Iphant  te dejo un ejemplo a ver si es lo que quieres
    ejemplo.xlsx
  7. Thanks
    lphant reacted to Antoni in Mostrar consulta en userform   
    Documéntate acerca del método Getrows del objeto Recordset que permite dejar una consulta SQL en un Array.
    Consulta cualquier tutorial de ADO en la red.
  8. Thanks
    lphant reacted to Gerson Pineda in Buscar datos en otro libro VBA - Power Query   
    Pues siendo así, te adjunto un aporte con VBA [ademas uno de Power Query para los interesados, en este se debe cambiar en el editor la ruta correspondiente, para que funcione]
     
    Saludos
    Buscar en otro libro VBA.zip Combinar o buscar Power Query.zip
  9. Thanks
    lphant reacted to Gerson Pineda in Buscar datos en otro libro VBA - Power Query   
    Hola
    Se puede hacer también en Power Query
     
    Saludos 
  10. Thanks
    lphant reacted to Gerson Pineda in Consulta de principiante ( Líneas para relentizar menos la macro )   
    Si tienes mas dudas similares, para eso esta el foro, para orientarte y ayudarte en pequeñas dudas
    Puedes hacerlo las veces que quieras
     
    Saludos 
  11. Thanks
    lphant reacted to Gerson Pineda in Consulta de principiante ( Líneas para relentizar menos la macro )   
    Hola
    La linea Application.DisplayAlerts sirve para evitar ciertas alertas [no siempre es necesario]
    La linea Application.ScreenUpdating sirve para evitar el parpadeo en la pantalla, que es el efecto que causa los proceses en la hoja, ademas esto ayuda a que Excel, lo haga mas rápido
    Ademas no es necesario ponerla en cada macro, a menos que estas sean independientes y si las llamas desde otro procedimiento, entonces desde este es suficiente tal instrucción [en resumen, no siempre es necesario pero si es buena practica]
     
    Saludos 
  12. Thanks
    lphant reacted to Gerson Pineda in Consulta ordenar columna   
    Hola
    Si se puede, por ejemplo así:
    With Hoja2 .Range("A:A").Sort .Range("A1"), xlAscending, , , , , , xlYes End With Pd: xlyes significa que la tabla tiene encabezado
     
    Saludos 
  13. Thanks
    lphant reacted to Antoni in Comparar 2 columnas y copiar las celdas de más de una de ellas.   
    Sub GuardarHistórico() For x = 2 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row Set celda = Hoja1.Columns("A").Find(Hoja2.Range("C" & x), , , xlWhole) If celda Is Nothing Then Hoja1.Range("A" & Rows.Count).End(xlUp).Offset(1) = Hoja2.Range("C" & x) End If Next End Sub  
  14. Thanks
    lphant reacted to Gerson Pineda in Buscar valor en fila para obtener la columna   
    Es indistinto que sea el numero o la letra, ambas puedes usarlas 
    Mira asi:
    Set cel = Hoja1.Cells.Find("Gato", , , xlWhole) If Not cel Is Nothing Then vmc = VBA.Split(cel.Address, "$")(1) Set cell = Nothing  
    Saludos 
  15. Thanks
    lphant reacted to Leopoldo Blancas in Buscar valor en fila para obtener la columna   
    Jajaja @lphant, creo que el desayuno me hizo mal... jajaja
    Olvida lo que dije y empecemos de nuevo!!! - ME DISCULPO.
    La reacción de @avalencia me hizo reaccionar...😜
    Hice desde la mañana 3 diferentes formas... te comparto la más corta....
    Sub Buscar_Column_LBV() Dim cCelda, cCol$, aDirec     cCelda = Worksheets("Hoja1").Cells.Find("Gato", searchorder:=xlByRows, SearchDirection:=xlPrevious).Address(RowAbsolute:=True, ColumnAbsolute:=False, ReferenceStyle:=xlA1)     aDirec = Split(cCelda, "$")     cCol = aDirec(0)     MsgBox "Columna:   " & cCol End Sub Saludos y Comentas.
     
  16. Thanks
    lphant reacted to bdurango in Buscar valor en fila para obtener la columna   
    Hola buen día.
    Algo así: Columna = Worksheets("Hoja1").Rows(1).Find("Gato").Column
    Saludos.
     
    Boris
     
  17. Thanks
    lphant reacted to DiegoLG in Nombre hoja interno para usarlo en formula.   
    Estimado:
    Debería de adjuntar la información completa para ver en que columna se encuentra la información en tus otros libros,
    De todas maneras aca te preparé algo
    1.- Extraer la información
    2.- Abre el archivo Copia de Ejemplo
    y dale ejecutar ==> seleccione la carpeta donde esta tu información, (En este caso los ejemplos que puse en la carpeta llamada: Nueva carpeta)
    y Listo.
    Saludos,
    Buscar.rar
  18. Thanks
    lphant reacted to ikanni in Contar también celdas sin dato   
    Hola,
     
    entiendo lo que necesitas pero tengo que ver la consulta, por que no cuelgas el archivo accdb? Elimina todo lo que no se necesite y deja las tablas y la consulta e intento arreglartelo
     
     
  19. Thanks
    lphant reacted to avalencia in Error por espacio intermedio en nombre columna   
    Hola
    Pues esa es la forma correcta, poner el nombre del campo entre corchetes. Si no funciona, haz captura de pantalla del error y además coloca la línea exacta en dónde marca dicho error. Por si acaso envía también captura de pantalla del campo de Access, sospecho que tiene un espacio delante o al final del nombre del campo. Por cierto, usar variables para valores fijos o para el signo igual solo hace que te compliques.
    Abraham Valencia
  20. Like
    lphant got a reaction from avalencia in Consulta sin duplicados   
    Es lógico lo que me dices y suponía que tenía que hacer 2 consultas pero como soy nuevo en esto de las consultas SQL por si algo se me escapa.
    Gracias @avalencia, me estás ayudando mucho.
     
  21. Thanks
    lphant reacted to avalencia in Consulta sin duplicados   
    Hola
    Sospecho que el dilema está en que el resultado que esperas no es necesariamente el que te dará Distinct cuando lo usas sobre dos campos.
    Si te aparecen "clientes" iguales te aseguro que para esos "clientes" el "motivo" sí será distinto, ya que Distinct lo que hace es extraer los registros únicos de los campos que has usado, y tal cual lo ves, lo cumple.
    No conozco tu datos (ya te mencioné que en realidad enviar solo el archivo Excel no tiene mucho sentido) pero para que se entienda:
    Estos son registros únicos: Abraham - Tardanza  / Abraham - Temprano / Iphant - Tardanza / Iphant - Temprano (Distinct está cumpliendo su trabajo aquí)
    Estos no serían registros únicos: Abraham - Tardanza  / Abraham - Tardanza / Iphant - Tardanza / Iphant - Tardanza (así exista otro campo que los diferencia pero que no se usó en el Distinct)
    ¿Se entiende? Quizá si especificas qué es lo que necesitas en realidad, se podría pensar en qué instrucciones SQL son las que en necesitas.
    Abraham Valencia
  22. Thanks
    lphant reacted to Gerson Pineda in Consulta sin duplicados   
    Holas!
    ¿Y si mejor, los obtenemos desde Excel? una vez cargados
     
    Saludos
  23. Thanks
    lphant reacted to avalencia in Consulta de Access en Excel   
    Pues si tu dilema es que los nombres de los encabezados no coinciden con los campos que finalmente usas, eso es debido a que extraes esos nombres con un bucle del 1 al 4 y los campos, en cambio, lo haces con índices específicos: 0, 1, 5 y 2. Obviamente no van a coincidir. 
    ¿Es eso?
    Abraham Valencia 
    PD: No es necesario volver a enviar tu archivo, en realidad no se puede probar ya que solo tu tienes el Access. Basta ver la macro
  24. Thanks
    lphant reacted to avalencia in Consulta de Access en Excel   
    El erro es debido a que no has activado las referencias a "Microsoft ActiveX Data Object x.x Library", en donde x.x es el número de la versión superior que tienes (OJO, vas a tener varias versiones, recomiendo usar la "mayor" - no confundir con otros de nombre arecido)-
    Abraham Valencia
    PD: Tu cadena SQL, tal cual está ahí, no tiene sentido, hay hasta variables que no existen; a menos que hayas eliminado/cortado algo que no deseabas enviar
  25. Thanks
    lphant reacted to Antoni in Consulta de Access en Excel   
    Quizás, añadiendo Application.ScreenUpdating = False mejoraría. 
    Yo estoy mas cómodo con Execute y GetRows/Range.CopyFromRecordset, pero para gustos, colores.
×
×
  • Create New...

Important Information

Privacy Policy