En el archivo "Crear ficha Tecnica 20121125.xlsx", está la hoja "GenFicha" que tiene una figura predefinida ("Prueba1") y en la misma hay un hipervínculo que llama a la Subrutina ("Genera_Ficha") con una variable; lo que se pretende es esta Subrutina abra otro archivo a fin de buscar datos de la variable adjunta ("Prueba1"), esta parte está en desarrollo. La situación es que al llamar la Subrutina se empieza tener en la ejecución del mismo un comportamiento anómalo de tal formar que no se puede ni hacer una depuración (Debugger); caso curioso, la rutina la ejecuta dos veces antes de terminarla. Como puedo hacer para llamar la rutina desde el hipervínculo de la figura a f…

hola este es mi primer post soy nuevo en este temas de macros espero alguien me pueda orientar con la duda siguiente desde vba excel intento crear y Eliminar Citas en el calendario de outlook buscando adapte este codigo y puedo crear sin problema una cita pero no puedo eliminar la cita, espero algun maestro de aqui o alma caritativa de este foro me pueda ayudar orientandome gracias Dim ol As Outlook.Application Dim ns As Outlook.Namespace Dim Respuesta As VbMsgBoxResult Dim itmApoint As Outlook.AppointmentItem Sub Botón1_Haga_clic_en() Set ns = ol.GetNamespace("MAPI") Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) With itmApoint .Start = "2…

Buen día nuevamente, En ésta ocasión quisiera hacer la siguiente consulta, tengo un userform en el cual hay dos botones de opción, con ayuda casi he logrado adaptarlos a mis necesidades lo que me hace falta es lograr que al trabajar en el userform que se encuentra en la hoja llamada "TC", la información se cargue en la hoja llamada "PBA". Con relación a los botones de opción solamente he logrado utilizar dos, la pregunta es si se pueden usar por ejemplo cuatro botones. Por su ayuda anticipadamente gracias. userforms-ejemplo-02.rar

Buenos dias No se como expresar muy bien mi pregunta pero lo intentare. Al rellenar mi formulario hay un campo que habitualmente no se rellena y se manda vació a la hoja excel determinada.en esa hoja es excel donde van los datos tengo la funcion si ESBLANCO para determinar que me devuelve un 1 o un 0 para mas adelante realizar una división. El problema es cuando ejecuto el código la formula siempre me devuelve que hay un valor aunque no lo vea y me devuelve un 1. No se donde puede estar en error , sien la elección de la formula o dentro del codigo. .Worksheets("Hoja1").Range("B12").Value = Me.eje3 espero puedan ayudarme.

Buenas Noches a todos!!! Pidiendo de su ayuda, tengo una carpeta varios archivos que tienen informacion, yo quiero generar un reporte en donde me abra cada archivo de excel y me copie toda la informacion a un archivo de excel, solo que ese reporte quiero tenerlo en una solo hoja, es decir que vayan pegando uno abajo del otro como lista. se podra? Anexo archivos Gracias!!! Archivos.zip

Hola Amigos, soy nuevo con las macros y estoy dándole formato a una serie de hojas de excel en un mismo archivo, en este caso lo que necesito es que se eliminen ciertas filas , pero a partir del valor de una celda, me explico, necesito que en todas las hojas de un libro, me elimine las filas si en cierta columna se encuentra una celda en blanco, en este caso si en la columna B existe una celda en blanco, debe eliminar la fila completa y luego debe hacer lo mismo con la columna C, tengo éste código que armé pero no logro que el proceso se repita, es decir me elimina sólo la primera que encuentra y no todas las que tienen esas condiciones y además no lo hace en todas hojas,…

Hola Tengo un formulario del cual tengo 2 optionbutton, lo que deseo es guardar una "X" al seleccionar 1 de las dos opciones, por ejemplo si selecciono optionbutton1 guardar una 'X' en caso contrario dejar vacio y si selecciono optionbutton2 guardar 'X' en caso contrario dejar vacio: Para esto he pensado esta condición pero no me funciona If opc1.Value = False And opc2.Value = False Then MsgBox ("Debe elegir una opción en la pregunta 1"): Exit Sub If opc1.Value = True And opc2.Value = False Then opc1.Value = "X" And opc2.Value = "0" End If If opc1.Value = False And opc2.Value = True Then opc2.Value = "X" And opc1.Value = "0" End If[/CODE] Podrian explicarme p…

buenas tengo una consulta, se puede realizar en excel a nivel macro un chat pero no red normal, o algo que se le parescagracias por su tiempo espero su respuesta

Hola amigos de Ayuda Excel Quería consultar si hay alguna opción en VBA de bloquear la opción de "ELIMINAR" una hoja en particular de un libro. La opción de proteger el libro no me sirve pues necesito que otras opciones del menú de la hoja estén activas. Gracias

hola amigos:quisiera ayuda con el sgte formulario: en este ingreso los datos referentes a los productos que copio de la guia de despacho:fecha,cantidad,tamaño,nº guia,observaciones y los almaceno en la hoja de trabajo correspondiente, en este formulario de ingreso no es necesario que se me muestre el precio del producto, yo lo pongo en la hoja mediante una formula (ejemplo:=si(e211="52,5 x 45,9",c211*12.5,si(e211="73 x 60",c211*20,si(e211="44,5 x 40,6",c211*12,nd))), una vez que acabo de ingresar los otros datos. habra algun otro modo de hacer el calculo que es basicamente : cantidad*precio,el cual varia de acuerdo al tamaño del producto en el momento que doy ingreso a lo…

Buenas tardes, Amig@s del foro quisiera solicitarles el valioso apoyo con la siguiente consulta: como lograr eliminar un modulo por medio de macro cuando el proyecto se encuentra protegido? he revisado que utilizando la siguiente instrucción se elimina el modulo pero si el proyecto no está protegido en su acceso a vba: ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.CountOfLines En el archivo adjunto he insertado un botón en la hoja que llama al formulario, dentro del formulario he agregado otro botón para llamar a la macro, la clave es: PRUEBA, la idea es que en el modulo 2 cr…

Muy buenas, espero me puedan ayudar por que me estoy volviendo loco! Estoy realizando un pequeño programa en excel, este cuenta con una pagina que contiene una tabla con los datos de los productos del stock. En la pagina principal atraves de un formulario cargo otro formulario con un listbox que esta enlazado a esa tabla, en dicho formulario tambien hay 4 textbox en los cuales aparecen los datos del item que selecciono en el listbox. Tambien tengo dos botones de comando : Modificar y Eliminar Registro. El Problema radica que si yo modifico por ejemplo la cantidad del item seleccionado y presiono Modificar, No modifica nada sigue apareciendo lo mismo que antes y si qui…

Buenas tardes amigos. Actualmente tengo una macro que exporta las 4 tablas a un nuevo documento en un directorio x, dicha macro funciona a la perfeccion. Pero..., necesito exportar estas 4 tablas a dicho libro de excel, pero dependiendo de ciertos criterios. Los criterios son Seleccion por fecha, Rango de fechas, y Toda la tabla. Me gustaria que la seleccion de criterios fuera a través de un formulario. Es posible hacer esto ¿? De antemano mi eterna gratitud por vuestra ayuda. Exportar tablas.xlsx

buenas tardes amigos hace tiempo encontré una consulta en otro foro pero es exactamente lo que necesito espero me puedan ayudar en esta ocasión quisiera pedir apoyo para lograr un control de Inventario Bajo tres Variables de Control, es decir, en lugar de solo controlarlo por medio del Item, también se pueda ese control con Lotes y Caducidades. He intentado varias cosas pero no logro cristalizar mi idea.... Dado esto, es que no subo un archivo, solo comparto la idea por si alguien lo tiene o lo sabe hacer. Se Ingresarían al Inventario Productos que tienen un código de Referencia, un Lote de Fabricacion y una Fecha de Caducidad, el proveedor puede surtir un solo codico…

Hola , Quiero hacer una macro para solucionar el siguiente problema. Tengo un archivo con varios datos en 3 columnas name, amount y quality. Quiero poner una 4a columna con el numero de cuenta. Adjunto el archivo. la idea es agregar la columna D con una macro. muchas gracias. Account # : 6BQ10987 name amount quality 6BQ10987 lorena 1234 good 6BQ10987 patricio 9876 normal 6BQ10987 camilo 7654 bad 6BQ10987 Account # : 6BQ10787 name amount quality 6BQ10787 andrea 765 good 6BQ10787 javier 9879 normal 6BQ10787 francisco 34…

Hola, quisiera saber si es posible colocar en alguna parte de un documento la IP externa del equipo en el cual se utiliza dicho documento. Gracias

Buen día a todos; -Adjunto una macro que sí la hoja no está creada me la crea. Esto lo hace con la "Function ExisteHoja" Para que funcione tengo que nombrar las hojas como: Hoja1,Hoja2, etc... y yo las tengo nombradas de forma personalizada. ¿No sé si esto es posible?. Saludos. MHojaName.xlsm

Buenas tardes tengo una macro que me separa archivos .csv en columnas, me los importa y los separa de forma automática, la duda es que con unos archivos me lo realiza sin ningún problema y con otros teóricamente iguales no me hace la separación al ser importados. El código que utilizo, es el siguiente Sub CARGAR_ESR_CMMS() Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\GUILLERMO\PANEL LEAN\TOMA DE DATOS\export EmergencyServiceEvent.csv" _ …

Buenos días,Soy nuevo en el foro y también bastante nuevo en el tema de generar macros en Excel con VB.Necesito hacer un macro en VB para intentar quitar las dobles comillas que me genera al copiar una celda que contenga saltos de línea hacia un Notepad.Muchas Gracias de antemano.

Hola amigos agradezco de antemano su colaboración Pues antes de colocar un tema investigo y veo la forma de hacerlo pero no he encontrado mucha ayuda al respecto. Tengo varios Archivos TXT y CVS y XLS en carpetas y siempre tengo que abrir 1 a 1 cada archivo copiarlo y pegarlo en la hoja donde estoy trabajando. cada archivo tiene el mismo formato. pero varian la cantidad de filas. lo estaba haciendo muy manual y había creado una macro de repetición y la copiaba y la pegaba para que me repitiera la función. esto también es demorado. He visto otras macros que cuando las activas te salen un cuadro para que explores que carpeta elegirla y ella te trae los archivos que con…

Gastos-Ingresos Casa.xlsmEstoy haciendo un archivo para llevar gastos de casa, y estoy buscando una macro para que me haga la suma en la columna de saldo la suma gastos y de ingresos y la sume en la columna de Saldo. he intentado buscar pero no consigo que me funcione , lo he `probado con con hacer con la macro de excel y tampoco me funciona, os lo agradezco si me podéis ayudar con esta macro. Muchas Gacias Saludos

Hola, Encontré este código en internet para una macro para separar los datos de una hoja por medio de filtrado. El filtro funciona perfectamente, la creación de las hojas también, pero al ciclar para filtrar nuevamente y escribir en la hoja nueva, me manda un error 1004. Aquí el código: Sub separar() Dim arrProductos As Variant, i As Integer, hojaBase As String arrProductos = Array("001N", "003N", "004N", "005N", "006N", "012A", "012N", "017N") hojaBase = ActiveSheet.Name For i = 0 To UBound(arrProductos) Range("A1").Select Selection.AutoFilter Field:=2, Criteria1:=arrProductos(i) Range(Selection, Selection.End(xlDo…

Hola, Estoy intentando determinar en que se basa el excel para establecer las (L)íneas (D)iscontinuas (Q)ue (S)eparan (L)as (Z)onas (Q)ue (V)an (A) (S)er (I)mpresas, o para abreviar (LDQSKZQVAS), que segun mi experiencia, varian a la hora de modificar alturas, anchuras y formatos de celda, (Me refiero a esas lineas misteriosas que aparecen al regresar a la hoja tras haber realizado una vista preliminar de la hoja) En cada prueba que he realizado, antes de tomar las medidas, he aumentado la altura de la celda anterior a la LDQSKZQVAS para ajustar la línea al máximo, o dicho de otra forma, dejando la altura de la fila anterior a la LDQSKZQVAS de tal forma que aumentando …

Buenas, Tengo una hoja en la que en la que en una de las columnas uso un buscarV, que además quiero que se autorrellene usando referencias relativas (el autorrelleno inteligente, vamos). Os pongo un ejemplo que no es real, ya que son decenas de miles de celdas, y tengo en cuenta el tamaño del rango que puede variar, etc….pero para simplificarlo. Si lo hago grabando una macro, obtengo esto: ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Hoja1!R2C1:R10C3,3,FALSE)" Selection.AutoFill Destination:=Range("B2:B20") Pero no quiero que se vea que es una macro grabada, por lo cutre que queda. Además porque quiero aprender. Así que uso la expresión Appli…

Buen Días Mi consulta es la siguiente, necesito hacer 3 lista desplegables que se filtren dependiendo el valor de la anterior. Ejemplo : mi data cruda tiene los siguientes campos Cliente Proyecto Orden Cliente1 1proyectoA 334 Cliente1 1proyectoB 445 Cliente1 1prouectoA 567 Cliente2 2ProyectoC 199 Cliente2 2ProyectoA 134 Cliente2 …