lphant

Hace 1 hora, ikanni dijo:

Hola Iphant,

Te escribo de memoria ..., los Metadatos que usan las imagenes digitales no se pueden modificar con VBA. Gracias a WIA podemos leerlos, pero nada mas.

Hay aplicaciones por INET que lo hacen, yo curioseé hace tiempo, pero cuidado con esas aplicaciones pueden llevar Bichos.

Yo usaria la fecha de Creación de Windows o le pondrías poner el nombre de la fecha real. 

Saludos

Gracias @ikanni

Pensaba que esto iba a ser más fácil pero bueno........buscaré alguna programa que me añada el campo fecha en la fecha captura.

Lo dicho, muchas gracias.

Hace 46 minutos , lphant dijo:

Funciona muy bien.

si no tuviera fecha de creación la foto ( pasa con las fotos de WhatsApp ) como podría añadírsela, la fecha seria el nombre de la foto??.

estoy intentando modificarlo pero me da error.

muchísimas gracias.

Nada, llevo toda la mañana investigando y probando sin éxito 😞

Por favor, alguien que me ayude a añadir la fecha de creación en una foto??.

muchísimas gracias.

Hace 17 horas, ikanni dijo:

Hola Iphant,

Haber sí es esto lo que buscas.

SAludos

 

 

Copia de Libro2.xlsm 39.48 kB · 9 descargas

Funciona muy bien.

si no tuviera fecha de creación la foto ( pasa con las fotos de WhatsApp ) como podría añadírsela, la fecha seria el nombre de la foto??.

estoy intentando modificarlo pero me da error.

muchísimas gracias.

Buenas tardes;

Estoy intentando sacar por vba la fecha de captura o la fecha que aparece en un explorador ( Windows ) de unas fotos pero no lo consigo.

1. Los datos que saco son:
2. La fecha de creación. ( .DateCreated )
3. La fecha de modificación. ( .DateLastModified. )
4. La fecha del ultimo acceso. ( DateLastAccessed )

y ninguna de esas fechas es ( adjunto pantallazo en el Excel adjunto de las fechas que salen en el explorador ).

alguien sabe como lo puedo sacar??.

muchísimas gracias.

Libro2.xlsx

Hace 28 minutos , AlexanderS dijo:

Hola, debes indicar el nombre de la hoja donde están los datos, por ejemplo si los datos estuvieran en la "hoja2":

 Rango_Datos = "[Hoja2$" & Sheets("Hoja2").Range("A2").CurrentRegion.Address(0, 0) & "]"

Saludos

muchísimas gracias, lo había intentando muy parecido pero algo ponía mal.

Hace 16 horas, AlexanderS dijo:

Hola @lphant, se puede solo debes definir el rango de tus datos, mira el adjunto.

Saludos.

Libro1.xlsm 16 kB · 4 descargas

Buenos @AlexanderS, como podría indicar la pestaña desde la que quiero hacer la consulta, de esta forma mira en la primera pestaña.

muchísimas gracias.

Hace 1 hora, AlexanderS dijo:

Hola @lphant, se puede solo debes definir el rango de tus datos, mira el adjunto.

Saludos.

Libro1.xlsm 16 kB · 2 descargas

Muchas gracias @AlexanderS, funciona perfectamente.

Buenas tardes;

Se puede crear una consulta por SQL desde un Excel a un Excel teniendo el encabezado en la fila 2??.

un saludo,

Libro1.xlsx

En 29/2/2020 at 16:55 , avalencia dijo:

Hola

In se usa para no estar repitiendo el Or demasiadas veces, es decir, nos ahorra estar digitando muchas veces una misma instrucción y, mal que bien, muchas veces entre menos código haya un poquito más rápido es todo (OJO, muchas veces, no es que siempre).

Sobre el uso correcto y el orden de colocar el Where, eso está definido por el tipo de operadores que se usa:

Enlace1

Si de casualidad también quieres saber el orden de ejecución de otras instrucciones, mira por aquí:

Enlace2

Hay mucha información al respecto, pero entiendo que no necesariamente se sabe cómo encontrarla, a ver si con eso que envío ya se te hace más fácil hallar más. Saludos.

Me ha servido mucho.....

Muchísimas gracias.

Un saludo,

Hace 13 horas, lphant dijo:

Buenas tardes;

Tengo una duda de principiante.

En las consultas SQL, el orden de los filtros que se ponen después de where como lo hace??, desde where hacia la derecha o desde el final de la consulta a la izquierda.

Lo pregunto por optimizar la consulta, para poner los filtros que más filas eliminan los primeros.

Ejemplo de consulta:

Consulta = "Select nombre, Fecha, Color from Tabla1 where (color='verde' or color='amarillo' or color='azul') and Fecha between #" & Fecha_Inicio & "# and #" & Fecha_Fin & "# and nombre=’Pepe’”

Y de estas 2 opciones cual usarías??.

where (color='verde' or color='amarillo' or color='azul')

where color in ('verde','amarillo','azul')

Muchas gracias.

buenos días:

Llevo desde ayer buscando por internet en que orden se filtran las condiciones de una consulta sql y no encuentro nada.

alguien sabe como??.

muchas gracias.

un saludo,

Buenas tardes;

Tengo una duda de principiante.

En las consultas SQL, el orden de los filtros que se ponen después de where como lo hace??, desde where hacia la derecha o desde el final de la consulta a la izquierda.

Lo pregunto por optimizar la consulta, para poner los filtros que más filas eliminan los primeros.

Ejemplo de consulta:

Consulta = "Select nombre, Fecha, Color from Tabla1 where (color='verde' or color='amarillo' or color='azul') and Fecha between #" & Fecha_Inicio & "# and #" & Fecha_Fin & "# and nombre=’Pepe’”

Y de estas 2 opciones cual usarías??.

where (color='verde' or color='amarillo' or color='azul')

where color in ('verde','amarillo','azul')

Muchas gracias.

Hace 15 horas, Gerson Pineda dijo:

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 31 kB · 1 download

Gracias @Gerson Pineda

Si ocultar y desocultar hojas se hacerlo pero no quería hacerlo así en esta macro.

Ya lo he solucionado con otra fórmula que no me relentiza la macro al tener muchas lineas.

Pero muchas gracias

Un saludo.

Hace 14 horas, Gerson Pineda dijo:

Hola @lphant

Hay distintas formas, te adjunto 2 con Vba y 1 con Power Query 

 

Saludos 

Contar Distintos VBA - Power Query_GP.zip 27 kB · 6 downloads

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.

Buenas tardes!!!

Me podéis echar una mano para crear una macro que haga lo mismo que la formula??.

La fórmula lo que hace es contar los artículos diferentes de un mismo cliente.

Pensaba que con la formula iba a ir muy bien pero…al tener tantas filas en algunas de las hojas ( aprox. 8000 líneas ) tarda mucho la macro.

Gracias de antemano.

Un saludo,

Ejemplo02.xlsx

Hace 1 hora, Silvia dijo:

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

se me olvido que es una formula matricial, ahora si funciona jejejee...

lo dicho, muchas gracias.

Hace 3 horas, isidrod dijo:

buen día @Iphant  te dejo un ejemplo a ver si es lo que quieres

ejemplo.xlsx 10 kB · 5 downloads

Muchas gracias isidrod.

Lo que intento es contar los articulos diferentes de un mismo cliente pero muchas gracias.

un saludo,

Hace 58 minutos , Silvia dijo:

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

muchas gracias Silvia.

Lo que intento es contar los articulos diferentes de un mismo cliente.

no me salen los datos correctos con tu formula, he sustituido las , por ; .

un saludo,

Buenos días;

Que tal estáis??.

Necesito de vuestra ayuda.

Hace tiempo hice una fórmula que hace lo que necesito pero no la encuentro y no soy capaz de volver a hacerla ( estoy espeso no lo siguiente ).

Necesito contar las celdas diferente de la columna B en el rango/condición de la columna A.

Os adjunto un ejemplo:

C002 tiene que ser igual a 3.

Muchísimas gracias y un saludo,

Libro1.xlsx

En 5/7/2019 at 13:14 , Antoni dijo:

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.

Perdona que no te contestara antes, me he descargado un par de tutos de lo que me has dicho y....esta tarde pruebo.

Pd: ya encontré la macro que os comenté, he intentado añadir la barra de desplazamiento horizontal ( mostrado 3 columnas ) pero me da error, me podéis ayudar??.

Os le adjunto.

Gracias y un saludo,

Consulta.xls

Buenos días Chic@s;

Que tal estáis??, ya estamos a viernes ;)

Ayer se me vino a la cabeza una mejora para una de las macros que tengo pero…..me fallan cosas.

Tengo una macro que hace una consulta SQL a una base de datos Access, esa consulta en vez de llevármela a un Excel, quiero que me la muestre en un userform ( la cantidad de columnas y de filas a mostrar de la consulta puede variar ) y que pueda ordenar los datos al pulsar sobre el encabezado ( esto es lo que veo más difícil ).

Lo que he hecho en alguna otra ocasión ha sido, hacer la consulta, abrir un nuevo Excel, copiar los datos en ese nuevo excel, mostrarlo en un ListBox y una vez consultado, cerrar sin guardar el Excel ( mostrarlo directamente en el listbox no se ).

Sobre lo de ordenar tocando los encabezados, hace tiempo encontré una macro que hacía más o menos esto, creaba como una imagen y la mostraba en el userform, cuando pulsabas sobre los encabezados ordenaba los datos pero…..no la encuentro.

El Excel de la consulta a la base de datos no os lo adjunto porque no os va a funcionar.

Voy a seguir buscando la macro que os he comentado, en cuanto la encuentre os la adjunto.

Un saludo,

Hace 17 horas, lphant dijo:

Muchísimas gracias, en cuanto cene lo pruebo 😉

Funciona perfectamente.

Muchas gracias 😉

Hace 1 hora, Gerson Pineda dijo:

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 24 kB · 0 downloads Combinar o buscar Power Query.zip 24 kB · 0 downloads

Muchísimas gracias, en cuanto cene lo pruebo 😉

Hace 30 minutos , Gerson Pineda dijo:

Hola

Se puede hacer también en Power Query

 

Saludos 

Gracias @Gerson Pineda por contestar.

Para usar power query hay que instalar un complemento no??.

En este ordenador no puedo instalar nada, es del curro y tiene todo bloqueado.

Un saludo,

Buenas tardes Chic@s;

Me podéis echar una manita a hacer una macro??.

Estoy intentado hacer una macro que busque un dato XX ( libro 1 ) en otro libro ( libro 2) y me devuelva 2 datos del libro 2 al libro 1.

Ahora mismo lo tengo con fórmulas y cuando tengo un libro de 1050 líneas tarda un poco, con la macro ira mejor??.

Os adjunto un Excel con lo que tengo con formula.

Pd: las columnas a buscar en el libro 2 no siempre están en el mismo sitio ( busco primero el título de la columna ).

Un saludo,

Pruebaaa.xlsm

Hace 47 minutos , Antoni dijo:

Todo esto está en la ayuda de Office, pero es más cómodo que lo busque otro. 🙁

 

Mira que eres mal pensado @Antoni 😜

Pd: aunque sobra, te aseguro que lo he mirado en varios sitios antes de preguntar pero ...... al no quedarme claro he tirado la gente que realmente sabe.

Hace 31 minutos , Leopoldo Blancas dijo:

Y es más cómodo que otro lo lea y nada más te de el resumen.... 😂😂😂

..............

https://www.todoexcel.com/14-formas-de-acelerar-y-optimizar-tus-macros-excel/

Gracias también a vosotros 😉