Necesito colocar el calendario en 10 columnas intercaladas y la forma que conozco no me sirve ya que puedo solo en dos favor vuestra ayuda Muchas Gracias El código que coloco en la hoja en cuestión es el siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngFechas As Range Set rngFechas = Range("a:a,b:b") If Union(Target, rngFechas).Address = rngFechas.Address Then _ Call abrir_calendario End Sub

:livid: Como no he sido muy clara en mi consulta de esta mañana, adjunto este archivo que tiene una macro que hizo alguien en este foro y que es muy similar a lo que estoy buscando, salvando dos pasos que necesitaría modificar; pero como no entiendo mucho de macros, no sé como adaptarla así que aquí adjunto mi excel, y en èl explico, en la primer hoja, específicamente lo que necesito. Muchas Gracias y espero que alguien pueda ayudarme a resolver este problemita. Librería Final prueba.xls

Macro que busque un valor en otra hoja en una columna especifica y copiar los datos que se derivan de dicho valor macro buscar.zip

Buenas tardes compañeros Primero que todo un saludo y buenos deseos Tengo dos macros diferentes que tienen dos Workbook_Open y no se como hacer para que funcionen correctamente ya que individual hacen su trabajo pero juntos se genera un error que no permite mostrar las demás hojas del archivo a menos que se guarde el archivo otra ves, lo cual no debería de ser ya que tiene que ser automático al abrir el archivo con las macros activadas. Este seria uno Option Explicit Const WelcomePage = "Macros" Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False With ThisWorkbook If Not .Saved Then Select Case MsgBox("De…

Hola amigos: Quisiera su ayuda con lo siguiente, tengo una hoja de excel con varias columnas: NUmero, Nombre, Localidad, Producto1, Producto2, Producto 3; tengo tambien un formulario dentro del cual tengo un listbox y un listview, dentro del listbox he logrado hacer que me aparezcan los datos unicos de la columna "NOmbre" (que siempre tiene duplicados) ahora lo que quiero hacer es que al momento de hacer aclick sobre determinado nombre en el listbox pueda desplegarme las filas correspondientes a ese nombre dentro del listview, quiero comentarles que he encontrado en la web una opcion que utiliza otra hoja en donde filtra las columas que muestra en el listview, pero por …

Saludos, tengo un catalogo para piezas automotrices al que le agrege un motor de busqueda con VB. Soy nuevo en este proceso y las variables de mi tabla son muy amplias. La tabla tiene 12 columnas, A,B D es Marca, Modelo y Año y quisiera que el resultado de la busqueda me arrojara el resultado de las celdas correspondientes en las columnas F y H. Ejemplo de la tabla: Marca Modelo X año Y DEL Z TRAS Fiat 500 x1 2012 y1 D123 z1 T456 Fiat 500 x2 2012 y2 D456 z1 …

Buenas, estoy buscando ayuda para hacer que mi hoja de excel vaya eliminando filas (con los registros mas antiguos) a medida que se agregan nuevos registros. Tambien podria usar algun criterio de eliminacion como un rango de fechas, por ejemplo mantener las filas que correspondan al mes actual o del año actual. Desde ya muchas gracias, saludos

hola, saludos a todos, hace tiempo encontre un tema para poder aplicarla a este trabajo que estoy haciendo, pero me pregunto si hay una forma de que aparezca la cantidad de articulos que poseen tanto los galpones y las tiendas cuando uso las lista desplegable, y en la parte de rebajar y aumentar el stock una vez que llegue a 0 se pueda subir de nuevo a 1, 2, 3 respectivamente, saludos. (CoDiGoS).rar

(Solucionado)Copiar Filas en Respectiva Hoja Hola a todos , les escribo porque hace un tiempo que estoy buscando solucion a mi problema y no encuentro como solucionarlo. Estoy haciendo una planilla de Gastos y quiero q copie en otra Hoja de calculo toda la fila para sacar el total de "x" apartado. Ejemplo. Tenngo varios grupos . Uno de ellos es Cigarrillos , quiero que la fila cigarrilos se copie en la Hoja cigarrillo. Adjunto la planilla excel. Y a ver si alguno con mas conocimiento puede darme un poco mas de luz en este tema. Saludos y Gracias Jon julio.rar

Buenas tardes. Estimados es segunda vez que solicito apoyo con el tema de las macros. Muy amablemente me ayudaron en días pasados con esta macro y me funciona a la perfección, pero se me presenta el caso de que el archivo de excel a usar es necesario que sea compartido para ser usado y modificado por varias personas a la vez. El caso es que al compartir el archivo se deshabilitan las macros. Entonces necesito modificar la siguiente macro para que me busque el dato en la ubicación del archivo pero realmente no se como hacerlo. La ubicación del archivo llamado "09- BANESCO A. C. EPICA SEP-2013" es Y:\BANCOS\ASOC. COOP. EPICA\BANESCO que es donde debe buscar el dato. El …

Hola amigos: La duda que tengo es la siguiente: Me cree varios userform's para la introducción de datos, estos aparecen desde que abro el archivo excel. Cuando termino de introducir todos los datos desaparece el ultimo userform mostrándome la planilla excel. Lo que realmente quiero es tener en planilla excel un botón que me vuelva a traer uno de los userform con los datos que coloque, para poder cambiar algún dato. Espero puedan ayudarme.

Me conseguí una macro que copia un rango de celdas variables a un nuevo libro lo que quiero modificar es que el nombre del nuevo libro lo tome de una celda de la pagina en B1 pero me da error aqui el codigo CODE Sub CopiarCeldas() 'Definir objetos a utilizar Dim Nom_Libro As String Nom_Libro = Range("B1").Value Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & Nom_Libro) 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino…

Estimados, tengo este código para enviar por correo una hoja de excel. Worksheets("Hoja1").Activate With ActiveSheet.MailEnvelope .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf .Item.To = "destinatario@hotmail.com" 'Destinatario .Item.Subject = "Asunto" .Item.Send 'Enviamos el e_mail End With ActiveWorkbook.Save Pero, quisiera saber 3 cosas: - El archivo que envía lo envía adjunto. - Que tiempo se demora en llegar, ya lo hice 3 y no me llega el correo. - Existe otro código más efectivo, o estoy haciendo algo mal. Gracias por sus opiniones!

Hola a todos, Mi idea es definir una macro en un libro y, posteriormente, ejecutar dicha macro desde otro libro Excel con "Application.Run". Lo que pasa es que cuando intento ejecutar la macro en cuestión, se planta el Excel y se cierra con un mensaje de "Excel dejó de funcionar..". Si alguien puede conocer el motivo por el cual pasa esto, agradecería su ayuda. PD: La macro es sencilla y funciona cuando se ejecuta desde el propio libro donde esta definida y la llamada la estoy haciendo de momento desde el campo "Inmediato" del otro libro para limitar el campo de error.

Amigos encontre un codigo en el foro con el cual se crean carpetas y subcarpetas por columnas, pero tengo el siguiente problema al momento de correr la macros al encontrar una celda vacia me tira un error, a ver si me pueden ayudar es una base de datos que la completo por medio de un formulario y necesito crear mucha carpetas, por lo que me seria mucho su ayuda. BASE DE DATOS PLANOS LOMAS BAYAS prueba - copia.zip

Buenas tardes a todos los miembro del Foro, en esta ocasión necesito su ayuda en una macro que tengo la cual me permite inserta filas automáticamente a presionar en el botón INSERTAR FILAS, pero a la vez tengo una la formula en el texto donde indica TOTAL GENERAL "=SUMA(L8:L9)" y lo que necesito es que si inserto 5 mas 2 que tengo por defecto mi formula suma debería incrementar a =SUMA(L8:L14), pero no permite hacer este cambio. Desde ya agradezco su apoyo y colaboración. AYUDA CON FORMULA PLANTILLA ELECTRONICA.part1.rar AYUDA CON FORMULA PLANTILLA ELECTRONICA.part2.rar

buenas tardes como puedo hacer pa contar la cantidad de veces que salen las combinaciones de un numero ej 25=52 25 36 14 52 96 41 resultado 25 = 2 (25 y 52) son iguales 14 = 2 (14 y 41 ) suma.zip

Tengo el siguiente problema, en el paso de validación de un formulario, tengo que validar 3 o 4 campos por linea, las lineas pueden llegar a ser 20. Es por eso que quisiera poder mediante un FOR a cada uno de los textbox/combobox. Intente algo asi pero no funciona, se que no lo estoy haciendo correctamente. Lei algo acerca de indexar pero tampoco se realizarlo, podrian indicarme por donde atacar el problema. Muchas gracias. VALIDACIÓN PARA LA PRIMER LINEA: If Npedidobox1.Value = "" Then MsgBox "Por favor seleccione Numero de Pedido en la linea 1.", vbExclamation, "Carga de Movimiento" Exit Sub End If If Conc…

Ciao a tutti Mi chiamo Maurizio e il mio problema è questo: sul foglio Excel denoinato (Calcoli) ho alcuni risultati che inserisco nelle mani delle partite della lega di calcio (inglese) Ora vorrei: Ad esempio, nelle colonne J3: L500, devi inserire una formula che mi indichi quanti giochi hai vinto, legato e perso la squadra che ha giocato in casa nelle ultime 5 partite giocate. Tenendo conto che i dati dovrebbero essere presi dal foglio (Database_Results) che si inserisce qui il manuale grazie a Saluti da A.Maurizio -------------------------------------------------- -------------------------------------------------- ---------------------------------------------…

Buenos días Estoy intentando hacer copias automáticas de seguridad del libro de trabajo (libro1.slxm) cada vez que se cierra el libro. Las copias se guardarán en la carpeta Bakup (que se encuentra en la misma ruta que el libro de trabajo), y deseo conservar sólo las tres últimas copias mas recientes. ¿Me podrían ayudar? Un saludo y gracias anticipadas

Hola como están. Por favor su colaboración. La macro en el botón insertar fila copia la fila 5 que está escondida y la pega en la primera celda disponible en A y adicional inserta una línea debajo de la fila pegada (de esta manera baja la información que hay en el archivo real. El problema es que la fila que se inserta trae el formato de la celdas de columna I y K, es decir, está conservando el color gris. Lo que quiero es que no tenga color gris en esas columnas (I y K) de la fila insertada. ELIMINAR FORMATO FILA.xlsm

Hola a tod@s, agradecería mucha que me ayuden, debo hacer una planilla que calcule el material que se ocupara en la fabricación de un pedido de cortinas, principalmente la tela, la cual necesito saber cuantos metros lineales se ocuparían por cada tela del pedido. Les explico como funciona, solicitan medidas de cortinas, ancho x alto y debe elegir el tipo de tela (entre otras cosas). Teniendo estos 3 cosas fundamentales, ya deberíamos poder calcular la cantidad de tela a utilizar. Teniendo en cuenta que los rollos de telas miden 2.8 mts por 30 m de largo, si hay 2 o más medidas (ancho de cortina) si la suma de sus anchos sume igual o menor a 2,8 m, solamente se considera e…

Hola de nuevo, Me preguntaba cómo podría hacer para que la aplicación ofimática se ejecutara única y exclusivamente dentro del mismo puesto de trabajo. De manera que si otro usuario copiara el fichero Excel e intentara ejecutarlo en otro equipo informático, le saltara un error al tratar de iniciar la aplicación ofimática. Lo único que se me ocurre es algo parecido a esto: Private Sub Workbook_Open() With Application If .UserName <> "Ayuda Excel" Then Msgbox "Uppsss... Está tratando de abrir la aplicación ofimática en otro puesto de trabajo." .Quit end if end with End Sub A alguno de vosotros se os ocurre …

Hola estimados, nuevamente solicitando su ayuda. En este archivo quiero implementar una búsqueda inteligente en un ListBox (Fact1) aplicando entre dos rangos de fechas usando dos TextBox (Fech_InicioFact y Fech_FinalFact), con 2 condiciones; que sean de clase de Documento (DF) y que el Comité no sea Vigente. La busqueda inteligente o normal debe efectuarse al hacer Enter en el segundo TextBox (Fech_FinalFact) Para activar el formulario hay que hacer lo siguiente: Seleccionar celda A4("Cuenta") de la hoja Resumen Cart-Cli para activar UserForm1. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A57”) cargar de registros al UserF…

Puse el comando para poder buscar en diferentes datos y me sale error quien me puede ayudar Ayuda.xlsm