Hola a todos, Tengo este evento creado de tipo Worksheet_BeforeDelete: Private Sub Worksheet_BeforeDelete() Application.ScreenUpdating = False Application.StatusBar = "Procedimiento en ejecución..." ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores del evento... On Error Resume Next ' Si la contraseña no coincide, entonces... If FUNCIONES.comprobarContraseña(CONTRASEÑA_HOJA) = False Then ' Copiamos la hoja... ThisWorkbook.ActiveSheet.Copy After:=Sheets(ThisWorkbook.ActiveSheet.Index) ' Y notificamos al usuario con un mensaje de alerta... MsgBox Prompt:="Upps, parece que hubo un error…

Muy buen dia para todos. Otra vez yo pidiendo ayuda; esta vez se trata de darle formato a un dato alfanumerico almacenado en un textbox. Asi funciona. Luego de una serie de eventos, un textbox me da como resultado unos caracteres, por ejemplo las letras ACC. De igual forma otro textbox me da un numero, 5 por ejemplo. Ahora al unir ambos datos en un textbox, necesito que el dato del numero tenga como formato 3 numeros, por ejemplo 005 y el resultado final seria ACC005. ¿Como le doy formato de tres digitos? Mil gracias.

Hola Mi problema es el siguiente: Estoy creando una base de datos para una coleccion de libros electronicos con la que se puede localizar un libro y abrirlo para leerlo en el PC hasta ahi vamos bien, pero tambien quiero otra opcion que sea abrir la carpeta contenedora y seleccionar el libro elegido (tengo cientos de libros en la carpeta) pero sin abrirlo por si lo quiero copiar para descargarlo a un ebook. Abro la carpeta pero luego no se como marcar el libro elegido (si se puede hacer) Saludos y gracias Buscador.zip Buscador.zip

hola tengo la siguiente tabla en access. "tblarchivoplano" la cual tiene los siguentes campos Id Acta Fecha De Rvisión Instalación Dirección Fecha_Estado Justificación Estado Area Causal Tipo_Tarifa Municipio Nombre_Usuario Fecha_dp Observacion requiero pasarlos desde una macro en excel a esta tabla en access, "tblasignados", los campos de esta tabla son Id_asignado User Fecha De Rvisión Instalación Dirección Fecha_Estado Justificación Estado Area Causal Tipo_Tarifa Municipio Nombre_Usuario Fecha_dp Observacion Aclaro que los campos son del mismo tipo en ambas tablas por favor si ayuda indicandome si es posible y cóm lo haría. Gracia…

He estado trabajando en una macro para extraer la información de 2 hojas de un libro y que la información quede en un nuevo libro y que se guarde en una carpeta. Tengo un libro donde está todo el de RIESGOS VERSION FINAL está la información que necesitamos, hay 2 hojas ahí con la que trabajaremos, SOD y Resumen X usuario, en la hoja SOD filtramos por empresa, (es importante filtrar por empresa ya que se guardará en una carpeta con el nombre de esa empresa el archivo generado) y ahí tomamos un cargo, copiamos las columnas A (CARGO), D (ID RISK), E (DES RIESGO), F (NIVEL), G (ID FUN), H (DES FUN), I (TRX), J (DES TRX) y esa info la pegamos desde la celda A2, luego copiamos …

Buen Día Expertos De antemano agradezco la ayuda que nos brindan a todos. Actualmente estoy desarrollando un formulario con tres Combobox dependientes asi: El primero denota el nombre de una entidad (hoja1) El segundo que depende del primero denota las areas de esa entidad escogida (hoja1) El tercero que depende el segundo denota la dirección de ubicación de esa areas escogidas (hoja2) Todo está perfecto cuando escojo el primer y segundo combobox. Cuando voy al tercero, al tratar de hacer la misma rutina del segundo, me carga un dato que no corresponde. Esto debido a que las listas que manejo no estan en el mismo orden que lo pide el combo 2 Lo que necesito es qu…

Hola estimados: Nuevamente recurro a ustedes, es posible que me puedan ayudar. tengo la siguiente situación, tengo dos libros, ambos son similares, ambos abren automáticamente un formulario de login. lo que deseo hacer es: - desde la macro del libro 1 abrir el libro 2 pero sin abrir la macro del libro 2. lo que deseo hacer, es ejecutar el libro 1 y al momento de cerrar este libro, se copie una hoja completa al libro 2. el problema que estoy teniendo es con el formulario que me aparece al ejecutar el libro 2. hay algún código que inhabilite la macro de este libro 2? muchas gracias de ante mano! saludos!

Buenas tardes. me acabo de dar de alta en el foro porque llevo días para solventar un problema con el que me he encontrado y ya no se que mas probar. Tengo un xls con un formulario en el que el usuario selecciona una serie de sociedades y ejecuta una macro que lo que hace es un save as de una plantilla tantas veces como sociedades ha seleccionado el usuario. Esto estaba en office 2007 y siempre ha funcionado, sin embargo al instalar office 2013 no funciona siempre, por ejemplo, si ha seleccionado 8 sociedades, ha guardado la plantilla 5 veces, esto es, sin ninguna lógica y coherencia a veces no hace el saveas. Si ejecuto el código paso a paso, aparentemente lo hace bi…

[sOLUCIONADO] Al abrir libro de excel, en un cuadro de texto, el usuario elija entre dos opciones Hola, Me gustaría hacer lo siguiente con un archivo de excel: Cuando se abra el archivo, antes de que abra las hojas aparezca un cuadro de texto con dos opciones ("proveedores" y "clientes") y dependiendo de la opción que elija el usuario se abran los formatos que corresponden. Pensaba poner un cuadro con botones como el que se usa cuando te pregunta excel al cerrar "¿Desea gaurdar lo cambios?" Alguien tiene alguna idea si se puede hacer esto y cómo??? Espero que me haya explicado bien Muchas gracias por sus ideas y su ayuda

Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar: If cmbFecha.Text = Hoja1.Range("P4") Then Hoja1.Cells(Fila, 16) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then Hoja1.Cells(Fila, 17) = "X" ElseIf cmbFecha.Text = Hoja1.Range("R4") Then …

Buenas tardes amigos, Necesito de su ayuda Tengo un formulario en el cual tengo 2 combobox que hacen un buscarv. O sea en el primero elijo el RUC y en el 2do cmbox automaticamente sale la razón social que corresponde a ese RUC. El problema surge cuando lo ingreso manualmente. Ingreso manualmente el ruc, pero cuando voy a ingresar la razon social, se borra el ruc que ingrese y me jala un ruc que ya se encuentra en la base. Quisiera saber si puedo ingresar datos manualmente sin que se cambien los datos que ingrese. Espero me puedan ayudar. Gracias de antemano Control Km. - copia.rar

Buen día espero alguien me pueda ayudar, tengo este archivo el cual se divide por color (semana), área, nom y repuesta (color), en pocas palabras lo que quiero es saber el total por color de respuesta de cada área por semana, tanto semana como respuesta las quiero contar por color y área por texto, espero su ayuda y les agradezco de antemano. Saludos

Estimados Foristas: Espero puedan ayudarme con este problema, tengo un userform donde se carga segun un codigo que se introduce en el textbox1 los restantes textbox; y adicionalmente de acuerdo al codigo se recoge en el cuadro de image1 una grafica generada. El problema que tengo es que no puedo pasar el contenido de los textbox a una plantilla de word donde ya esta predefinido los campos donde deben entrar el contenido de los textbox. Alguien pudiera decirme que es mas sencillo copiar de las celdas a la plantilla, pero el problema es que antes de realizar eso debo verificar los textbox conjuntamente la imangen, una especie de revisión y aprobación para ge…

Hola soy nueva en esto y necesito ayuda Tengo una tabla con estos datos en la hoja 1 [TABLE=width: 86] [TR] [TD=class: xl74, width: 31, bgcolor: transparent]1.1[/TD] [TD=class: xl74, width: 31, bgcolor: transparent]1.2[/TD] [TD=class: xl74, width: 27, bgcolor: transparent]1.3[/TD] [TD=class: xl75, width: 27, bgcolor: transparent]1.4[/TD] [/TR] [TR] [TD=class: xl72, bgcolor: white, align: right]7[/TD] [TD=class: xl72, bgcolor: white, align: right]2[/TD] [TD=class: xl72, bgcolor: white, align: right]3[/TD] [TD=class: xl72, bgcolor: white, align: right]1[/TD] [/TR] [TR] [TD=class: xl72, bgcolor: white, align: right]8[/TD] [TD=clas…

Buenos dias!!.. Necesito colocar saltos de página de una hoja , donde la condicion para hacerlo es segun un filtro con varias posibilidades.....que al terminar de encontrar el texto "javier" en la columna con filtros coloque un salto de paginas, y asi sucesivamente hasta pasar por todos los contenidos de la columna con filtro ejemplo: colA ColB (con filtro y ordenado por alfabeto) 100 Javier 203 javier ............................aqui insertar salto pag 20 mario 49 mario 60 mario ............................aqui insertar salto pag 20 Luis ya probe una macro borrando prime…

tengo una pequeña interfaz que al dar inicio me abre unas opciones, cuando entro a la opcion centralizado me da 3 opciones, al entrar a cualquiera de ellas me envia a una tabla de selección. lo que deseo es que no se me abra un userform2 quiero que esa tabla se me abra en la pestaña 8 donde dice controladores y que la tabla que tengo al lado derecho de la hoja 1 de exel me quede en la hoja 2... le agradezco al que me ayude por que no e podido realizar este paso. adjunto el programita que estoy realizando perdon por lo feo que esta pero hasta ahora lo estoy realizando http://www.4shared.com/file/qDNq5mC4...nta_exel.html? herramienta_exel.part2.rar herramienta_exel.part1…

Hola a todos en el foro, hace bastante tiempo me dieron esta macro aquí en el foro, la cual funciona bastante bien dentro de la plantilla que utilizo, pero, me gustaría hacer una pequeña modificación a la forma en la cual trabaja. La macro copia filas completas a nuevas hojas, basado en un criterio de búsqueda (Forma 1 o Forma 2) , el pequeño problema, es que si presiono el botón más de una vez, se copian los datos dos veces en la nueva hoja (quedan repetidos), lo cual es un problema para luego analizarlos. estoy usando excel 2007, en windows xp, adjunto un archivo comprimido con el fichero de muestra, la macro es la siguiente: Sub CopyForm1() Application.ScreenUpda…

Saludos a todos: Tengo 3 tablas en el archivo de access, de la tabla me gustaría traer los datos por un rango de fechas y que los ordenara de acuerdo al Id y fecha, de la tercera tabla seria sumar por mes y año de acuerdo a cada Id y clave, de la segunda tabla es sumar por mes y año por cada Id. Adjunto un pequeño ejemplo solo con los datos necesarios, ya que realmente tengo mas columnas en la tablas de access Agradezco de antemano su apoyo y/o sugerencias Saludos datos.mdb Datos.xlsm

ya tengo mi macro que envia correos masivamente desde el excel. Por un tema operativo, necesito que este correo antes de enviarse se convierta en texto sin formato. ¿Cual sería el comando?

Hola Amigos... el tema es el siguiente: deseo crear una tabla en Excel, con los datos sacados de un archivo txt.. específicamente necesito.. * en el Excel colocar el nombre del archivo en una celda... * que se busque un texto especifico dentro del TXT... cuando lo encuentre devuelva a Excel en alguna celda lo que contiene el TXT en una posición específica (por ejemplo a 5 filas mas abajo y 2 columnas a la derecha mas abajo del texto encontrado... espero se pueda... Saludos Por ejemplo, Para el archivo adjunto, quiero que busque "3-Phase Short-Circuit" y me devuelva el valor de Ib (7,38). archivo.txt

Buenas amigos, les traigo otra duda que me está volviendo loco para ver si alguien me puede ayudar. Estoy intentando copiar todas las hojas de un libro a otro libro que ya tengo con varias formulas. Estoy utilizando este código Sub Macro5() ThisWorkbook.Sheets.Copy Before:=Workbooks(“Listado_de_Fondos”).Sheets(1) End Sub pero no consigo que me copie las hojas, me tira un error. El tema es que las hojas que necesito copiar, cada día cambian de nombre y de numero, y necesito seleccionar todas para poder copiarlas de golpe al libro existente y no encuentro la forma de hacerlo. Si selecciono este código: Sub Macro5() ThisWorkbook.Sheets.Cop…

Ante todo gracias anticipadas por vuestra ayuda. Debido a los problemas que me he encontrado con la opción de creación de calendarios del propio excel, que desapareció de versiones anteriores (utilizo Excel 2019), he diseñado una rutina con un formulario para hacerlo. Adjunto a este mensaje dicho archivo. La rutina funciona perfectamente, pero quiero depurar el código pues me parece algo chapucero, puesto que para hacerlo trabajar dependo de 37 botones que son los de los días posibles dependiendo de la posición de comienzo en el mes y de los días de los que consta. Como explicación, en la hoja de texto Cache, hay un cuadro donde está la rutina de cálcu…

este código lo tengo en formulario pero quiero tenerlo en un Modulo para no estar repitiendo código en 4 formularios pero; '>------------------------------------------------------< Dim lStyle As Long, hMenu As Long, mhWndForm As Long mhWndForm = FindWindow("ThunderDFrame", [COLOR="#FF0000"][B]Me[/B][/COLOR].Caption) lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm [COLOR="#FF0000"][B]Me[/B][/COLOR].Height = [COLOR="#FF0000"][B]Me[/B][/COLOR].Height - 18 '>------------------------------------------------------<[/CODE] En el modulo …

hola buen día Estoy programando en excel con Vba y tengo una duda, el ejemplo es el siguiente estoy trabajando con dos libros en excel y en un tercer libro tengo que consolidar la información de los otros dos libros, quiero crear una macro que me tome los valores de la siguiente forma libro 1 [TABLE=class: grid, width: 500] [TR] [TD][/TD] [TD]cola[/TD] [TD]colb[/TD] [TD]colc[/TD] [/TR] [TR] [TD]flia1[/TD] [TD]a[/TD] [TD] dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila2[/TD] [TD]b[/TD] [TD]dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila3[/TD] [TD]c[/TD] [TD]dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila4[/TD] [TD]d[/TD] [TD]no[/TD] [TD]prop[/TD] [/TR] …

Hola AyudaExcel requiero de su colaboración Lo que necesito es que una celda me cambie de color si el valor de la celda "PORCENTAJE DE CITA CANCELADAS" es mayor a 10 %, si es asi que se ponga roja si no es asi que se mantenga en verde (>10 = rojo ---- <10 = verde), pero esto teniendo en cuenta la fecha actual, es decir que mediante la fecha actual me busque en una tabla en que mes debe situarse y luego en el valor del porcentaje que corresponde para ese mes -------------- en el ejemplo que adjunto hice algo mediante formato condicional, pero no es funcional Adjunto archivo de ejemplo con una nota de lo que deseo No importa si se hace con funciones o macr…