Hola amig@s. Esta macro Sub GuardaSinMacros() Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Ruta = "D:\Datos Mecanicos\" nombre = Range("G4") & "_" & Range("C13") & "-" & Range("H13").Value & ".xlsx" 'Cria archivo llamado Copia.xlsm en la misma ruta para que sirva de base a la creacion del .xlsx en variable nombre l1.SaveCopyAs Ruta & "copia.xlsm" Set l2 = Workbooks.Open(Ruta & "copia.xlsm") l2.SaveAs Ruta & nombre, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'cria archivo requerido l2.Close Kill Ruta & "copia.xlsm" 'elimina el arc…

Tengo un fichero donde la primera columna es la fecha (dd/mm/yy h:mm) Los datos son tomados cada minuto. Necesito que solo aparezca los datos correspondientes a cada 10 minutos, eliminando las filas que hay entre ellos. ¿como hacerlo? incluye fichero datos. Eficiencia_aviavi.xls

Hola, He diseñado una función que detecta el doble click, funciona perfectamente solo que el tiempo máximo entre clicks está siempre fijo, lo he puesto a 500 milisegundos. Me gustaría que este valor lo tomara del valor que le hayamos puesto en el panel de control, apartado Mouse. He encontrado una API donde se supone que extrae ese valor, la declaración es "Public Shared ReadOnly Property DoubleClickTime As Integer" pero no es compatible con VBA6, la api es: SystemInformation.DoubleClickTime Property (System.Windows.Forms) Llevo un buen rato buscando algo compatible con VBA sin suerte, a ver si algún maquina de los de aquí sabría como conseguir adaptarlo a VBA o se le …

Hola, enhorabuena por la web y por compartir conocimientos. Tengo una hoja sencilla con dos columnas en la primera tengo una palabra rusa y en la segunda su significado, es para retener vocabulario. Lanzo el formulario en el que aparece aleatoriamente el primer término y cuando pulso el botón azul , veo el resultado en la segunda caja de texto debajo de la pregunta. Ahora pulso el botón verde si he acertado o rojo si he fallado. El primer problema que tengo es que da error una ficha antes de que termine con todas. El segundo es que no se como pasar el dato fallado, pregunta y respuesta a la hoja que me creo cuando fallo la primera que he llamado "arepetir". Mi inten…

Hola.Hice una macro grabando a medida que ejecutaba excel 2003. Funciona bien y quedó segun el archivo que adjunto. SCairo2012 es el nombre del archivo excel y corresponde a la persona SCairo y al año 2012. Mi problema es que al copiar el archivo para utilizarlo en el año 2013 debo cambiar la macro manualmente. Mi pregunta es: ¿ Hay alguna forma que la macro tome el dato del año de una celda de excel o el nombre y año completo ? Muchas gracias. Macro.txt

Muy buneas y muchas gracias de antemano, estoy intentado hacer una plantilla para generar unos turnos de trabajo, en la misma hay una macro que genera un cuadrante de trabajo para los turnos que se necesitan en este caso 11 , esta en la Hoja grafico, la idea a la vez que me genera el caudrante me los copie los datos en la hoja trabajo, el macro que uso para generar el cuadrante lo he cogido de esta pagina, creo que era del maestro @Antoni y no soy capaz de que haga lo que les indique, he conseguido que lo ponga pegando los datos, pera cada vez que se modifica se pierde la formual, asi como que me ponga los dias y me marque los sabados y domingo. Por eso agradeeria…

Llevo adelante un proyecto personal, con la intencion de mantener un registro mas o menos organizado de incidencias del personal a mi cargo. En el archivo que les dejo, utilice una base que dejaron en este mismo foro y con el mismo arme la carga de dichas incidencias. Ahora bien, necesito filtrar la informacion, tanto por nombre, trimestres, informador, etc. En este mismo foro vi el Super Turbo Filtro, me fascino, pero no consigo hacer que funcione, no se en que estoy fallando. De no ser posible ese filtro, cualquier otro que me permita hacer algo similar, de manera sencilla, incluso que luego me permita imprimir la informacion filtrada. Desde ya, como siempre, muchas …

Quiero restar las existencias de la tabla Tbl_Productos en base a la cantidad de la tabla Tbl_Ventas y solo se deberán restar las cantidades de la fecha que conicida con el dia de hoy. Además de que si la cantidad es mayor a la existencia no realizar el calculo, mostrar un mensaje en pantalla diciendo que no hay existencia y resaltar con otro color la celda con el problema. Todo esto hacerlo automaticamente con un boton. No tengo idea de como hacerlo la verdad. Existencias.xls

Buenas días a todos; -Estoy intentando pasar el valor de un listview a la celda que tengo activa y no he sido capaz. He intentado encontrar algo en San Google pero no he encontrado nada similar. Adjunto macro. Un saludo para todos. CeldaActiva.xlsm

Buenas noches!Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto) con este lo que se pretende es insertar la formula buscarv en las celdas de las columnas(A,B,C,D,F) en base al valor de la lectura de código de barras (TxtCodigodeBarras_) del formulario (fmrfact) y este valor es colocado a partir del rango G16 hacía abajo. El ingreso de lector del código de barras parece trabajar bien, pero al querer insertar las formulas para traer los datos de este código solamente lo hace con la fila 16, los valores de la búsqueda se obtienen de la hoja BD.Código vba: Sub convertir() On E…

Buenas tardes, expertos para decirlo que recurro a su ayuda tengo una aplicacion en una hoja cuando pulso el boton buscar me muestra la ventana de inputbox para ingresar el codigo y buscar, pero que pasa cuando lo cancelo y/o pongo un codigo erroneo o que no exista no sale va buscando en toda la hoja y se repite muchas veces y no hay cuando terminar. Por favor si me pueden apoyar en que estoy fallando. Adjunto el archivo. Grupo 5_Holiday Inn Lima Airport Room Division Management (1).xlsm

Buenas tardes Saludos maestros del foro, la cuestion es la siguiente tengo un formulario en donde quiero que el comobox me aparezcan los datos de la hoja2 y que cuando seleccione el dato de esa lista lo relacione en la celda b36 y de ahi para abajo si se escoge mas valores. Adjunto archivo para explicarme mejor. Gracias por la ayuda que me puedan brindar. no se como borrar lo sadjuntos favor utilizar el de 74K. FORMULARIO LIQUIDACIONES.xls FORMULARIO LIQUIDACIONES.xls

Hola chic@s, Después de unos largos intentos fallidos, no me queda otra opción que buscar ayuda alguna alma caritativa Detallo lo que intento hacer con la macro, solo he conseguido que lo haga en la hoja activa pero no me recorre todas las hojas del Workbook. - Cada hoja tiene una tabla con unos datos. Necesito eliminar todas las filas de cada hoja desde B4 hasta lastrow -1 (la b3 tiene que quedar intacta, cosas de otra macro que tengo linkeada) y mostrar ese lastrow en la B4. - Las hojas llamadas "Balance..." deben excluirse en la macro ya que no hay datos en ella que eliminar. - Necesito dejar la última fila con datos de cada tabla en la B4 e insertar ta…

Queria ver si me puede ayudar para ver como puedo encontrar las diferencias entre la hoja1 y la hoja2 de Excel del archivo que adjunto, muchas gracias por su ayuda de antemano. Las hojas tienen aproximadamente 4 mil filas, le tuve que quitar ya que por espacio no me dejaba subirlo. comparar.zip

Buenas a todos. Tengo una macro la cual inserta una inserta una foto en un rango de celdas("F1:H10"), esta misma foto ademas de insertarla en el rango anterior quiero que tambien me la inserte en otro rango("F15:H15). Es decir; que me la inserte dos veces. Muchas gracias desde ya, y quedo en espera de su ayuda. insfoto.xls

Estimados, me gustaría realizar lo siguiente: Sabiendo yo la clave de protección del libro, deseo: Mostrar hojas ocultas, copiar y pegar (esto sería lo de menos), volver a ocultar la(s) hojas que se mostraron y volver a proteger el libro. Para hojas protegidas : ActiveSheet.unprotect password:="" pero para el libro completo desconozco. Opinen! Gracias.

Tengo unas columnas con una formula para contar datos repetidos en los rangos pero no me los cuenta. por favor podrían decirme que es lo que tengo mal, la formula antes la he usado pero ahora no se por qué no lo hace. prueba.xls

Tengo un formulario el cual contiene un textbox y un ListBox. En el cual quiero que mediante una busqueda en un Textbox, se visualize en el ListBox la busqueda. 1.- Quiero que busque mediante ingresando un Sistema Origen(Ejemplo S500,S404...) que existen desde la Fila A5 y me visualize en el data Grid. 2.- Que el ListBox tenga 9 datos de la hoja de Excel CA-PRO-INS (Esta parte creo la entiendo pero ocupo la parte 1 para probar si esta bien, si se puede Gracias) Informacion Columna Sistema A, Proceso V, Bin B, Segmento E, Producto C, Instrumento D, Segmento N, AcountType O, DescripcionLarga H. Gracias de antemano Adjunto el archiv…

Estimad@s, quisiera solictar de vuestra ayuda en la generacion de un archivo, en el cual, pueda gestionar el envio diario y automaticamente actualizado por la fecha del dia correspondiente, datos que se encuentran en una planilla excel, como por ejemplo: tengo una planilla de cheque por vencer, la cual, quiero que sea enviada uno o dos dias antes del vencimiento del cheque, entonces, la idea es que se envie automaticamente a destinatarios de correo con el informe de los vencimientos. como lo puedo hacer...?? de ante mano, agradezco todas las ideas y ayudas en el caso antes expuesto. CHEQUE PENDIENTES.xls

Hola, amigos Nuevamente estoy aquí en el foro para pedirle un favor, en este link hay un archivo que no es de mi autoria, sin embargo vale la pena que algunos de nuestros expertos en macros pueda corregir el error que presenta, aunque no se si es muy complicado, sin embargo luce bastante atratactivo, ojala puedan echarle un vistazo, y si tiene la oportunidad cargarlo ya corregido, de antemano agradezco cualquier ayuda que puedan prestarnos. https://skydrive.live.com/redir.aspx?cid=b9962751c075a6a6&resid=B9962751C075A6A6!1460&parid=B9962751C075A6A6!148&authkey=!AFWMmKjcoDSOohk

Hola a todos, me pueden orientar porque el combobox que tengo en este archivo cuando abro el archivo no se activa (osea no funciona) hasta que lo hago funcionar por medio del editor de vba. asi funciona muy bien pero lo vuelvo a cerrar y abrir y ya no funciona.. de antemano muchas gracias y saludos a todos. Reporte.zip

Buenas Noches! mi nombre es Marcelo...estoy armando un project en excel y en la columna J tengo las fechas de inicio de cada tarea. Como tengo mas de 150 tareas en un rango de meses de mayo hasta agosto se me hace engorroso hacer scroll cuando quiero ver las barras en el diagrama de gannt. Pensaba en que se puede con el evento selection change en la columna J e ir hasta la celda donde comienza la barra.- Desde ya muchas gracias!!!

hola que tal¡?, me gustaria saber como puedo hacer para pasar un dato (que para este caso es la cadena de caracteres "POSITIVO") de una columna dada a otra que yo le especifique?? en este ejemplo tengo la columna negativo y la columna positivo dentro de la columna negativo debe de estar la palabra "NEGATIVO" y dentro de la columna de positivo debe estar la palabra "POSITIVO" pero resulta que tengo ese problema y quiero separarlos porque dentro de la columna negativo tambien existe muchos palabras "POSITIVO" y quiero quitarlo como le hago?. Saludos y gracias Copiar un dato de una columna a otra.rar

hola tengo esta formula =SI(CONTAR.SI(G1:G4000,H1),COINCIDIR(H1,G1:G4000,0),0) pero cuando la jalo me mueve g1 y g4000 y h1 pero solo quiero que enumere h1 y g1 y g400 que no se muevan ya que es el rango de busqueda. Como le puedo hacer, la formula es para arrojar H que se repita en la columna de G Les dejo el codigo en visual basic Range(“J1″).Select ActiveCell.FormulaR1C1 = _ “=IF(COUNTIF(RC[-3]:R[39]C[-3],RC[-2]),MATCH(RC[-2],RC[-3]:R[39]C[-3],0),0)” - - - - - Mensaje combinado - - - - - ya quedo les dejo lo que hice por si alguien tiene el mismo problema =SI(CONTAR.SI(A$1:A$4000,B1),COINCIDIR(B1,A$1:A$4000,0),0) lo que hice fue hacer valor absoluto a lo que …

Buenas, Estoy trabajando en una BBDD Access y me gustaría poder cambiar los encabezados de columna de todos los libros excel que se encuentren en un determinado directorio simplemente pulsando un botón desde un formulario en access. Tengo por un lado la bbdd access en una carpeta, dentro de la carpeta tengo otra carpeta llamada encabezados que contiene el libro con el encabezado que quiero pegar en todos los libros excel (encabezado.xls), también tengo otra carpeta (extracciones) que contiene más de 100 libros excel a los que quiero cambiar su encabezado por los del libro encabezado.xls. Se trataría de crear mediante VBA el código que insertado en el botón de un form d…