Amigos buenas tardes, tengo la siguiente macro que valida la información de un formulario y en caso de que esté correctamente diligenciado, crea un correo de Outlook y adjunta el formulario; sin embargo me aparece el error 1004 en tiempo de ejecución, la verdad no encuentro el error por lo que les agradecería me ayudaran. De antemano gracias!!! Sub Enviar() 'variable para "manejar" el objeto Outlook Dim OutApp As Object 'variable para "manejar" el objeto mail Dim OutMail As Object 'creamos el objeto Outlook, para acceder a sus propiedades, métodos y eventos: Set OutApp = CreateObject("Outlook.Application") 'logeamos: ojo acá, debemos tener la cuenta bien configur…

Buenas noches, he estado buscando como mejorar o simplificar los codigos del siguiente macro, y no logro mejorarlo, si alguien me puede orientar al respecto, por favor. me suman casi 2000 lineas de codigo, quisiera que fuera mas corto. CAJA DIARIA CHUCHERIA.rar

Buenas tardes Comunidad Ayuda Excel Modificando un aporte que hizo el MAESTRO Macro Antonio de Incidencias; llegue a la tarea que debo crear dos comboboxes dependientes. Con la siguiente información si dice: C&B:Juan , Pedro, Ana C&D: Pablo, Ale R&S: Marco, Julio, Rosa Otra: (Que el usuario digite otro nombre) Sin cansarlos más les adjunto el archivo y agradezco que me ayuden con el código si son tan amables por favor. Gracias de antemano Saludos desde Costa Rica Registro de incidencias.xls

Buena Tardes, Les escribo en esta oportunidad, debido a que estoy teniendo problemas con una macro de intersección de rangos de fechas el cual realice para que cumpliese con mis necesidades, el cual es que me diga si chocan en sus periodos de vacaciones el supervisor y el tablerista, así como los turbinista_1 y turbinista_2 entre si y con el tablerista; y por ultimo los turbinaista_1, turbinista_2 y Operador Auxiliar de Turbina (op. aux. tur.). El problema que estoy teniendo es que haga lo que haga siempre me aparece la ventana que dice: "Coinciden Tus Vacaciones Con la Segunda Fracción del Tablerista" o "Coinciden Tus Vacaciones Con la Segunda Fracción del Supervisor…

HOLA a todos eh estado haciendo una macro que muchos de ustedes me han ayudado pero no puedo resolver un problema tengo mi ejemplo en el cual deseo elimar toda la dilacion menor a ciertos dias que yo especifique ejemplo 3,7,9,10 eso lo debe elegir el usuario el problema es que el userform en donde tengo esa opcion no me eliminar todos los menores a los dias especificados solo me elimina 1 y qiero me elimine todos los menor al dia espeficado espero me puedan ayudar Macro.rar

Buenos dias, Trato de hacer un historico de pedidos por cliente y me hace falta esta parte es la unica que me falta. Necesito un boton que busque los pedidos de un cliente determinado en un cierto rango de fechas una vez encontrado este cliente me devuelva cada pedido que ha realizado en este rango de fechas. Para esto tengo una hoja con los datos de los pedidos llamada hoja1 y tengo la hoja donde deseo que lleguen los datos ordenados lamada hoja2, tambien tengo un form con 3 textbox para ingresar Nombre de cliente, fecha de inicio y fecha final respectivamente, en el form tambien hay un listbox donde apareceran los pedidos que ha realizado el cliente en el rango de fe…

Hola amigos me veo en la necesidad de actualizar o guardar muchas veces un libro compartido en Excel debido a las limitaciones de libro compartido en Excel, por el método Thisworkboo.Save. ¿Puede ser perjudicial guardar muchas veces?¿Se puede corromper el libro de trabajo más fácilmente? Gracias por la atención.

Hola amigos os envío esquema por si me podéis ayudar. Es un fichero .xlsm aplicación Vba Excel con formularios y código. Se trata de compartir el libro para que dos usuarios puedan trabajar en una oficina aparte donde está el servidor. Dos problemas: Al empezar a trabajar cada usuario debe actualizar el libro. Utilizo el ThisWorkbook.Save. ¿Hay alguna opción más "liviana" ? He visto por algún sitio "ThisWorkbook.Refreshall. El otro problema es que cuando intentan guardar o actualizar al mismo tiempo genera un error. ¿Se puede tratar ese error para avisar a uno de los usuarios para que espere mientras el otro haga lo suyo. La gestión es corta porque se trata d…

hola estimados compañeros: tengo un problemilla con un archivillo de Excel que uso en mi computadora de manera perfecta pero al copiarlo y ejecutarlo en otra maquina de mi trabajo me sale este error: "se ha producido el error '424' en tiempo de ejecución: se requiere un objeto" y al depurarlo la línea de amarillo que se posiciona sobre el siguiente código: userform1.show me imaginé que se trataba de alguna referencia dado las configuraciones de las instalaciones de los Offices pero la verdad al estar viendo las referencias no logré encontrar de cual se trataba. Yo uso office2007 y la maquina donde trato de abrirlo también pero la verdad no se a que se pueda deber es…

Pues trato de entrar a la web y el unico enlace que funciona es este, la pagina principal fue hackeada por un tal "fateh Uka Plus", por lo que le doy todo mi apoyo a los admin y estoy seguro que van a poder resolver este altercado y espero no sedan ante las peticiones de estas personas inescrupulosas. Desde Costa Rica todo mi apoyo para que puedan poner nuevamente a flote este estupendo foro.

Hola, quería saber si alguien podría ayudarme con lo siguiente. Tengo una hoja de excel donde cada fila corresponde a datos de un paciente. Lo que deseo hacer es que tras realizar la buqueda de este, poder añadir 5 campos de textbox a partir de la primera columna vacia en esa fila mediante un boton de comando. Adjunto archivo. PD: Lo que me interesa hacer es que se añadan los datos a la hoja sin especificar ne el codigo la columna ya que esta se modifica en función de los datos que se vayan añadiendo, aunque siempre tengan la misma secuencia (5 campos textbox). Un saludo y gracias. cmdagregar.zip

Buenas noches, nuevamente recurro a su ayuda se me ha presentado un problema quisiera ordenar por el tercer dígito ejemplo El primer numero es 105 le sigue 1051 luego sigue 1052, luego sigue 106 luego 1061 y después 1062 así sucesivamente con diferentes dígitos, sera posible hacerlo mediante una macro. Adjunto un archivo el cual explica como quisiera ordenar Gracias por sus comentarios y sus aportes. ordenar.rar

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

Buenas tardes, me gustaría añadir un progress bar con porcentaje a una macro que estoy haciendo, he intentado todo lo que encuentro en internet pero no he encontrado ejemplos con macros "normales", me gustaría saber cómo puedo poner un progress bar a mi macro. Hice un ejemplo X el cual adjunto, con el fin de observar dónde se pone el código para la progress bar y luego ponerla en mi macro original. Tengo entendido que la macro se debe dividir en varias partes para indicarle a la macro qué porcentaje debe avanzar, por eso dividí la macro en dos. Y de favor si me pueden indicar cómo la puedo crear en los objetos de vb. Muchas gracias por su atención. ejemplo ayuda excel.xl…

Tengo un archivo que me genera distintos graficos en una misma hoja con los datos de otra hoja, el problema es que me presenta los datos de dos columna, como fija la B y la segunda columna es variable, pero necesito que me presente los datos de dos columna variables, ejemplo: Primer boton para el grafico seleccione los datos de la columna B y C, Segundo boton para el grafico seleccione los datos de las columna D y E, Tercera boton para el grafico seleccione los datos de la columna F y G, y asi sucecivamente. Al generar me deja la columna B como fija y no es lo que necesito, por otra parte, que pasaria si inserto una o dos columnas entre los datos, se dañaria la macro? In…

Buenas tardes, Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias. Dim i As IntegerDim total As Long total = 0 For i = 0 To lstimporte.ListCount - 1 total = total + Val(lstimporte.List(i)) Next i TextBox4.Text = total TextBox5.Text = Val(TextBox4) * 18 / 100 TextBox6.Text = Val(TextBox4) + Val(TextBox5)[/CODE] en el textbox4 es donde recibo la suma de los valores. ade…

Saludos tengo un gran problema y es que debo hacer que un Userform de un libro1 con un spreadsheet en este Userform me envie unas filas a otro libro(libro 2).. por ahora es solo esto. Tengo el spreadsheet ya montado pero aun no el codigo porque no se que poner. adjunto el libro uno con el formulario y el spreadsheet en él y el libro 2 el cual recibira los datos organizados que esten dentro del spreadsheet. advierto que se podrian necesitar librerias que permitan mostrar el spreadsheet en el userform, aun no lo se, ya que desde el equipo de la empresa lo puedo ver pero desde el de mi casa no(supongo que es por eso) gracias Desktop.zip

Hola amigos una aplicación hecha en Excel 2007, con 12 formularios, una interfaz con todas las hojas ocultas y extenso código después de estar funcionando 5 años en Excel 2007 si error. Al abrirla con Excel 2013 todo funciona bien y no da ningún error, pero al cerrar un formulario con el código al final SaveWorkbook para que guarde cambios , da un error en el evento MouseMove de una etiqueta (label) del interfaz. Una etiqueta que al aparecer al pasar el puntero del ratón encima y hacer click, se visualiza un Formulario. El error es: Error en tiempo de ejecución: Error definido por el objeto. Mi pregunta es por qué vuelca un error en un objeto que no tiene nada que ve…

Saludos, tengo este macro Sub nuevos() Dim ultimafila As Long Dim Origen As Worksheet, Destino As Worksheet Set Origen = Sheets("FORMATO") Set Destino = Sheets("Hoja2") ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 PERO POR ESTE LADO QUISIERA VERIFICAR SI LO QUE SE VA A INSERTAR EN LA CELDA K12 DE Origen YA EXISTE EN LA COLUMNA D DE Destino, PARA NO REPETIR LOS VALORES, si no esta repetido ps que inserte los siguientes datos, si no q muestre un mensaje de error y no ingrese los datos. Destino.Range("B" & ultimafila) = Origen.Range("K10") Destino.Range("D" & ultimafila) = Origen.Range("K12") Destino.Range("E" &amp…

Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

Saludos, intento simplemente crear un macro para copiar y pegar celdas de dos hojas diferentes desde la ultima celda vacia.. "es mi primer macro" Sub nuevos() Dim ultimafila As Long ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 Sheets("FORMATO").Range("K13").Copy Sheets("Hoja2").Cells(ultimafila, 2).Select en esta linea presenta el error Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FORMATO").Range("K15").Copy Sheets("Hoja2").Cells(ultimafila, 4).Select Selection.PasteSpecial Paste:=xlPa…

lo que quiero que me ayuden a hacer es que deacuerdo al archivo de que mando, del contenido de la celda A2 (hoja 1) me busque el contenido de la celda A2 (hoja 2) y el resultado lo ponga en la celda C2 (hoja 1) y lo mismo con la celda B2(hoja 1), eso digamos es facil con un simple =buscarv, pero al revisar el "titulo" donde dice TOTAL (si lo hago con el buscarv) solo me va a poner el primer argumento que busca esdecir me va a poner "5" pero si yo tengo "15" como puedo hacer yo para que me ponga el total de las dos celdas tanto el total de la celdas como el "numero" espero y me entiendan, pero es que no se como explicalo bien dejo el archivo de antemano muchas gracias eje…

Hola, a todos estoy tratando de crear un formulario algo simple en la cual ingreso datos en textbox, y lo visualice en un listbox a traves de un boton que dice agregar, y que todos los datos agregados en el listbox, lo guarde en una hoja a traves de otro boton que dice guardar. pero en el combobox que tengo y son dos se pueda agregar datos desde las celdas de la hoja2. tengo otro formulario que tiene 3 combobox, que busque por fecha, codigo, nombre, indempendiente de cada uno y lo muestre en el listbox cuando precione el boton buscar. de antemano muchas gracias. estare pendiente a los resultados guardar datos.zip

Hola. Nos ha surgido un problema. Un compañero de trabajo que ya no está, confeccionó una hoja de Excel para llevar un control del mantenimiento de vehículos. Dominaba bastante la ofimática y realizó la misma con varias macros. Yo he tenido que adaptarla, eliminando previamente las macros, de las cuales no tenía la clave, siguiendo algunos tutoriales, pero necesito ayuda para poder terminarla, si puede ser sin necesidad de macros, pues no las domino. Seguramente existe la manera. El problema que quiero solucionar es, que una vez rellenado el formulario con la fecha correspondiente (Hoja “Vehículos”), los datos se introduzcan en la Hoja “Esta1” y se queden ya grabados. E…

Oculte el libro tratando de cargar un formulario y ahora no lo puedo abrir... Se que hice una tonteria pero necesito ver el libro ayuda