Buenas noches Me gustaría crear una macro para introducir un valor (x) indicando varias opciones: fila, columna de inicio y columna final. Es decir el userform tendría 3 cuadros, en uno ingresaría en que fila se insertaría; otro cuadro donde se diga la columna de inicio, y un tercer recuadro donde se indicaría donde acabaría, por decirlo de otra forma las dos ultimas indicarían un rango, pero necesito indicarlo por separado. Lógicamente tendría un cuarto botón que seria el de aceptar los valores introducidos anteriormente. Como decía arriba el valor a ingresar seria la letra "X". Gracias

Buenas tardes Necesito que me ayuden a saber como se modifica un Texto enviado en OUTLOOK desde una macro en VBA.

Buenos días a todos , agradecería su ayuda con el siguiente tema Lo que pasa es que vi esta consulta [sOLUCIONADO] Editar datos desde un ListBox | Ayuda Excel que realizo el señor Macro Antonio en la cual decía como eliminar un registro desde un listbox de búsqueda, que era justo lo que yo estaba necesitando, pero en el momento en que adapto el código para mi archivo me sale un error y la verdad no he podido dar con el problema. A contonuacion relaciono el link donde se encuentra el archivo: Dropbox - Eliminar Registro ListBox.xlsm Alguno me podría asesorar para saber cual es el problema por favor. Muchas gracias

Tengo un libro excel que cuenta con 31 hojas (días del mes) y una hoja resumen, he creado una macro para que en la hoja resumen me coloque el total de movimiento de un producto o servicio de todo el mes. pero no se por que motivo no me suma bien por dia el producto ej: dia 1 Dia 2 Resumen (así tiene que quedar) programación $200 programación $100 programación $550 Programación $250 reloj $200 Reloj $350 Reloj $150 No se que estoy haciendo mal, tener en cuanta que la macro es par 31 días. Le agradecería una solu…

Hola como estan? Me he pasado todo el dia, intentando revisar en donde tengo un error y no lo logro. Les comento, estoy haciendo la suma de un producto de cantidades. Ej unidad1 * cantidad1 = subtotal1 unidad2 * cantidad2 = subtotal2 unidad3 * cantidad3 = subtotal3 Saco un suma de los subtotales Subtotal = subtotal1 + subtotal2 + subtotal3 A este subtotal le saco el IVA IVA = Subtotal*0.16 Y hasta ahi va bien, pero cuando quiero sumar el subtotal y el IVA, en un textbox que se llame total, no funciona nada Estoy subiendo el archivo para ver si me pueden asesorar Pedidos.rar

Buenos días, Les comento que hace unos meses un usuario me realizo una macro, la cual hasta ahora me ha funcionado de maravilla. El problema que presento ahora es el siguiente, descubrí que si no hay datos en la Columna M la macro no realiza el proceso. Hoy utilizare esta misma planilla, pero en la columna M no existirán datos. Alguien puede revisar la formula y ver la forma de modificar eso, las otras columnas seguirán intactas, solo la M es la que ya no tendrá datos. Concatenar valores Vba_GP.xlsm

Buenas gente, llevo rato buscando por el foro y google y como no consigo hacerlo, paso a preguntaros a ver si me echais una mano. Os pongo en situacion, tengo una columna , la C de la hoja1 con resultados FALSO y VERDADERO, lo que necesito es mediante un comand boton que busque cual es el proximo VERDADERO, si por ejemplo comentanzo de C1, deberia buscar el proximo verdadero , poniento de ejemplo que se encuentre en C7, y si le volvemos a dar que vaya al proximo. La cuestion seria, desde ActiveCell realizar la busqueda del proximo VERDADERO. Lo he intentado con un par de funciones, y no me ha salido, como he visto que hay varias formas, a ver como se podia resolver, d…

Buenas, tengo una inquietud, alguien me podria ayudar con un macro para asignar nombres de rango desde valores de celda segun el archivo que adjunto espero su comentario. Salu2 Esto lo consegui con esta macro, genera una hoja con los nombre definidos de los rangos del libro. Sub List_All_Defined_Names() Set NewSheet = ActiveWorkbook.Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names NewSheet.Cells(i, 1).Value = nm.NameLocal NewSheet.Cells(i, 2).Value = "'" & nm.RefersToR1C1Local i = i + 1 Next End Sub[/CODE] Ejemplo nombres de rango.rar

Hola, una pregunta muy sencilla: tengo unas macros funcionando con botón para ejecutarlas, la pregunta: se puede bloquear dicho botón (que no ejecute la macro) dependiendo del valor de una celda ? o, se puede cambiar el color dependiendo del valor de una celda ? Les agradezco de antemano la ayuda.

Hola buenas tardes a todos. Por ahí encontré un código que realiza búsqueda y regresa múltiples resultados, sin embargo, no logro identificar como sería para que me repita los datos de acuerdo a un rango de fechas, adjunto archivo en donde muestro de como actualmente me devuelve el resultado y como debe de quedar, Ojala alguien me puede orientar, de antemano gracias... Saludos, Diego Busqueda con multiples resultados.xlsm

Hola a Todos, Tengo un textbox con el siguiente codigo: Private Sub TextBox39_AfterUpdate() TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) sCar = Chr(KeyAscii) If sCar = "," Then KeyAscii = IIf(sDecimal = ".", 46, 44) sCar = Chr(KeyAscii) If (InStr(TextBox39, sCar) > 0) Then KeyAscii = 0 Exit Sub End If ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then KeyAscii = 0 Exit Sub End If End Sub Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749…

Estimados, Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones. Sub Add_Toolbar2() Dim TlBar As CommandBar Dim BarBtn As CommandBarButton Set TlBar = Application.CommandBars.Add(, , , True) With TlBar .name = "DupreeTasks" .Position = msoBarTop .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoCustomize End With Set BarBtn = TlBar.Controls.Add(msoControlButton) With BarBtn 'ADDED HERE!! .BeginGroup = True .Caption = "Tom" .OnAction = "Open_Tom" .Style = msoButtonCaption End With Se…

Buenas tardes. He logrado adaptar un filtro horizontal de columnas a mis necesidades a traves de una tabla dinamica. Con los campos texto no hay problema. El problema viene cuando lo que queremos filtrar son fechas. Por lo que veo .PivotItems adopta la fecha en formato ingles. en las columnas ha filtrar lo he solucionado conviertiendolas a texto: dim str as string:str = c.value: set pi= Set pi = .PivotItems(str) el problema es con el origen de la tabladinamica donde para que funcione tengo que añadir un ' a cada fecha y de esta manera convertirlas en texto He probado de todo.............incluso cambiar la tabla dias a un formato de fechas no …

Hola amigos, necesito de su ayuda ya que necesito hacer organizar un catalgo para llevar un buen control del mismo, mi idea es la siguiente, es hace un macro en el cual pueda agregar modificar o eliminar productos mi catalogo con los siguientes valres CODIGO, NOMBRE, DESCRIPCION, PRECIO y lo mas importante IMAGEN. Un boton que diga agregar producto al darle click me salga agregar producto, modificar producto o eliminar proucto y que guarde los valores que les menciono antes. Muchas gracias PROYECTO.zip

Abrir un Libro2 al rellenar una celda en Libro1 Hola a todos Tengo un Libro_1, en la celda A1 tengo la ruta del libro que quiero abrir, es variable (libro2......), y quiero que se abra al rellenar la celda A2, tengo claro que esto se hace con una macro y tengo algunas ideas al respecto, pero no me funcionaron, alguien me podría pasar un código. gracias anticipadas y salud_2

Muchas gracias a todos por su tiempo y su ayuda, tengo el siguiente codigo para abrir un archivo de RTF (word) e imprimirlo. Sub Abre_word_imprime_cierra() With CreateObject("word.application") .Visible = False With .Documents.Open("C:\Users\erick\Desktop\archivo.rtf", , , , "password") .PrintOut .Close False End With .Quit End With End Sub Quiero ver si me pueden ayudar con 2 cosas 1 Que imprima 4 paginas en una sola pagina. 2 Que imprima en automático todos los archivos *.rtf de la ruta C:\Users\erick\Desktop\imprimir\ Nota: Los archivo no estan protegidos Muchas gracias por su ayuda!!!

hola...mi gran agradecimiento a este foro ..hace unos dias recibi solucion a un tema y en esta ocasion los molesto con lo siguiente..necesito que me orienten a encontrar una macro que me valide 3 textbox y que en un listbox me envie el resultado de la busqueda que los llamaria desde una celda en la cual ya le he puesto la funcion SI.ERROR(BUSCARV..subo un ejemplo para que se den una idea. Desde ya muchas gracias validar textbox.xls

Buenas tardes estimados... necesito de su ayuda una vez mas... en el archivo que adjunto, - una vez llenada la informacion en el userform, necesito que al momento de dar click al boton "guardar" automaticamente imprima las areas de impresion de dos hojas distintas ("ficha" y "compromiso") hacia la impresora predeterminada... la idea es que se ingresen los datos al userform, y al dar click en guardar, se impriman para firmar... - lo otro, como puedo hacer que la busqueda sea mas rapida? hice una prueba con cerca de mil ingresos y la busqueda tarda un minuto o mas... ojala me explique bien... cualquier ayuda muy bien venida sera, quedo atento a sus comentarios... sa…

Buenas tardes expexto, recurro a su ayuda para pedir sus valiosas ayudas, se trata de una dos hojas primero la hoja registro donde registra los pagos desde la columna D en la hoja pagos trabajo muy bien, pero necesito hacer otra macro que me copie los montos dependiendo del numero de cantidades de cuotas y en la fecha donde lo corresponde en la table del lado derecho donde comienza en la columna K. Por favor agradecere mucho la ayuda. Adjunto el archivo. Macro Neo.xlsm

Hola! Espero puedan ayudarme, estoy utilizando un userform para ingresar datos, he logrado que los datos ingresados aparazcan en las celdas correspondientes sin embargo, cuando se ingresa un nuevo registro se copia en la celda anterior modificando el ingreso. no puedo lograr que el nuevo ingreso aparezca en la siguiente fila. Esto es lo que he utilizado: Private Sub CommandButton1_Click() Dim Referencia As String ' variable para almacenar referencia del control Dim Control As String ' variable para almacenar el control Dim Actividad As String ' variable para almacenar descripcion del control Dim Responsable As String ' variable para almacenar el responsable Dim …

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 quiero hacer una macro, en la cual pueda aplicar una formula CONCATENAR varios registros. a b c 1--- pedro martinez rodriguez =concatenar (a1;b1;c1) Como lo puedo hacerlo en una macro ya que son muchos registros. Gracias.

Hola, cordial saludo pues nada, resulta que tengo este problema, estoy intentando crear en un formulario 2 combobox y el tema de siempre, uno depende de otro... esto es lo que he intentado hacer, pero de momento no me refresca el segundo combobox... alguna sugerencia me caeria muy bien Private Sub UserForm_Initialize() ComboBox1.List = Array("Red", "Green") End Sub If ComboBox1.Value = ("Red") Then ComboBox2.List = Array("uno", "dos", "tres") ElseIf ComboBox1.Value = ("Green") Then ComboBox2.List = Array("cuatro", "cinco") end if por otra parte si no quiero asignarles el valor como lo hago en este caso a través de un array, si no que el valor los tome de una ce…

Buenas tardes!!! Estoy trabajando en un proyecto, casi esta finalizado pero me gustaría me ayudaran, LA MACRO SE UTILIZA PARA EL REGISTRO DE MALLAS (PRODUCTO) POR DÍA Y POR ÁREA PRODUCTIVA DE UNA EMPRESA DE FLORES. Al ingresar el primer registro todo perfecto, pero al ingresar el segundo registro la información se sobrescribe en las mismas celdas , necesito que se, almacene en las celdas continuas y conservar todos los registros. también les pido su ayuda para que vinculen la información a un concentrado final de todas las variedades, POR FECHA EL TOTAL DE FREEDOM PRODUCIDA 04/04/2014 Agradezco su atención mallas.zip

Muy buenas noches, si alguien me puede ayudar a crear un macro el cual al ingresar un numero de cedula, me lo busque en una lista y me despligue la informacion que tiene en las columnas siguientes, y si la informacion esta errada me de la opcion de editarlo y si no encuentra la informacion me deje agregarlo, yo lo estaba haciendo con formulas y macros pero demanera independiente, pero nunca pude editar la informacion, las formulas que tenia eran las siguientes [TABLE=width: 80] [TR] [TD=class: xl68, width: 80]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;1;FALSO)[/TD] [/TR] [TR] [TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;2;FALSO)[/TD] [/TR] [TR] [TD=class: xl68]BUSCA…