Hola buen dia foristas, me veo en la necesidad de volver a publicar esto ya que no he podido solucionarlo, y resulta lo siguiente: Tengo un Formulario con una lista donde al seleccionar algun elemento de la lista y darle en word me genera un informe con respecto a dicha lista, el detalle aqui es que cuando me genera dicho informe lo hace sobre la misma plantilla original y lo que necesito es que me lo genere desde la plantilla para que sea un documento nuevo pero con los datos de la plantilla, ya intenté cambiar la extension de la plantilla de .doc a .doxt para que al momento de abrir la plantilla solo abra una copia y no se modifique la plantilla original pero no lo ha…

Hola: Necesito eliminar estas columnas ("A:E, G:G, I:J, L:M, O:Q, S:T, V:W, Y:Z, AB:AC, AE:AF"), pero no lo consigo con ninguna de las macros que he visto. Por ahora he conseguido una que funcione que aquí adjunto: Sub Eliminar_Col() Range("A:E").Select Selection.Delete End Sub pero solo elimina, lógicamente, las primeras 5 columnas porque no sé cómo se pueden añadir las otras. He intentado múltiples formatos para añadirlos a "Range" pero siempre me da error. Muchas gracias

Buenos dias: Aca les adjunto mi archivo que estuve creando. Por ahi alguno les puede servir. El problema que tengo y no lo puedo solucionar es el siguiente. 1-En la hoja de VENTAS me guarda todos los datos cuando confirmo el pedido en la hoja PRINCIPAL. 2- Cuando en la hoja principal confirmo un pedido con 2 articulos , me guarda celdas con espacios vacios y me quedan muchas vacias. Mi idea es que en la hoja de Ventas pueda sacar esos registros que no tienen articulos. No se si me explico bien. Cualquier ayuda que me puedan dar es bienvenida. Soy novato en el foro y espero poder ayudarlos en alguna otra cosa. PROYECTO_PEHUENretocado.zip

Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xl…

buenas tardes, tengo esta macro que funciona pero me gustaria mejorarla integrando la siguiente condición siguiente: si es >= "17:00" sumar y dejar el resultado en la celda p4, me podrían ayudar porfavor de ante mano gracias Sub FuncSum() Application.ScreenUpdating = False On Error Resume Next DisplayAlerts = False minuendo = Range("C5").Value minuendo2 = Range("E5").Value minuendo3 = Range("G5").Value minuendo4 = Range("I5").Value minuendo5 = Range("K5").Value minuendo6 = Range("M5").Value minuendo7 = Range("O5").Value sustraendo = Range("Q4").Value Range("Q5").Value = Application.WorksheetFunction.Sum((minuendo - sustraendo), (…

hola todos estaba buscando una mejor alternativa para este codigo funciona sin problemas, pero es lento, lo que hace es pisicionarse en "B7" y a partir de ahi buscar la primera fila vacia Range("B7").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop[/CODE] lo probe a cambiar por este, pero no empieza en B7 y tengo filas vacias antes de B6, al ponerlo me agarra fila antes de B6 [CODE]Range("B" & Rows.Count).End(xlUp)..Offset(1, 0).Select [/CODE] saludos

Hola de nuevo, tengo esta macro: Sub Inserta_foto() 'Renombramos archivo Name "C:\Seat\Fotos\foto.jpg" As "C:\Seat\Fotos\imagen.jpg" ActiveCell.Select ActiveSheet.Pictures.Insert("C:\Seat\Fotos\imagen.jpg").Select With Selection .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 60.75 'Alto de la imagen .ShapeRange.Width = 84 'Ancho de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior) 'Movemos archivo a la carpeta Historico Name "C:\Seat\Fotos\imagen.jpg"…

Hola a todos los del foro Requiero un favor de ustedes, con un macro que me convierta el dato de la columna D de la hoja TXT a número con dos decimales. Los números de esta columna todos ninguno tiene separador de decimales pero todos los últimos dos valores son decimales. macro.xlsm Ejemplo D2 = "60225700 debe ser 602,257.00" D3 = "16123300 debe ser 161,233.00" de antemano muchas gracias y espero alguno me pueda ayudar.

Hola. Dejo esa propuesta por si alguien quiere investigar y da con la macro que pueda hacerlo. Aquí dicen que se puede. Saludos.

Bueno días señores del foro...tengo una consulta.. tengo esta formula =SI(Y(H15<41;H15<>38);G15;0); la columna "H", es donde ingreso unos códigos a través de macro, pero no me admite, cuando sobre escribo a través del teclado, ahi recién se genera lo que dice la formula..alguien puede decirme cual es el motivo? ActiveCell.Offset(0, 1).Select ActiveCell = ComboBox2 Con estas líneas es que arrojo en la columna "H" los datos..les dejo el Link https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF

Buen día amigos, este código no me fallaba antes y ahora dice ERROR 13 "no coinciden los tipos", adjunto el código Falla cuando quiero asignar un rango a una variable (Rango) , rango que también se arma con una variable (FilaCeldaActual) Les agradezco la ayuda de antemano. Sub prueba() Dim FilaCeldaActual As Long Dim Rango As String ' el tipo de variable la cambio por range long string y siempre falla FilaCeldaActual = ActiveCell.Row Rango = Range("A1:X" & FilaCeldaActual) MsgBox Rango End Sub macro prueba.xlsm

Estimados buenas tardes, Recurro a Uds para ver si me pueden ayudar con algo que parece sencillo pero me esta complicando. Estoy cargando un combobox y guardando el Id en un textbox para usarlo posteriormente El tema es que quiero mostrar solo el nombre en el combobox y solo muestra campo 0 correspondiente al ID El Id lo copio correctamente al textbox pero no puedo lograr mostrar el nombre en el combo para seleccionar correctamente Aguardo sus sugerencias Adjunto archivo de excel y Base de datos Gracias Cargo Combobox Access.xlsb BaseDatos.rar

Hola buenas tardes, Escribo porque tengo un problema con mi macro en excel, debido a que actualmente es ocupada por una persona que ingresa datos a los diferentes formulario que tiene, el problema es que necesito que el archivo se pueda usar en más computadoras de forma simultanea. Estuve averiguando y creo que una de las opciones es que crear una especie de servidor donde 2 computadores en red se ocupen dentro de la misma carpeta el archivo, esto es posible? Alguien conoce algún método en el cual me permita ejecutar mi macro de excel en más computadoras de forma simultanea? Gracias.

Hola Foristas, buenos días. Espero se encuentren bien de salud. Hace algún tiempo realicé un Proyecto para mi esposa sobre las Pre-Nóminas. Este funciona correctamente gracias en gran medida a ustedes que me ayudaron, dándome solución a algunos temas que expuse, pero ahora me está surgiendo otro, que quizás no me di cuenta en ese momento. Dentro del FrmPreNominas yo creé un código para exportar a otra hoja las nóminas según su denominación, o sea, en el Formulario hay un Frame (Depurar) que tiene los nombres de todas las Pre-Nóminas posibles (dentro del Sistema) y al dar Clic, lo que hace es que según el Tipo de Pre-Nómina lo exporta a la Hoja con el mismo nombr…

Hola, muy buenas tardes a todos. Mi consulta el día de hoy es la siguiente, Necesito hacer una "Macro" que diga "Procesar" la cual al momento de darle clic procese o almacene los datos que yo escribí en la tabla de la hoja en otra hoja o en otro archivo de excel, ¿sera este posible? Aquí les dejo la tabla donde se escribirán los datos, si es un Ingreso se escribirá en la celda fecha, registro y factura [TABLE=width: 500] [TR] [TD]Fecha[/TD] [TD]Registro[/TD] [TD]factura[/TD] [TD]envió[/TD] [TD]presupuesto[/TD] [/TR] [TR] [TD][/TD] [TD][/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [/TABLE] Aquí les dejo la tabla donde se escribirá el material. [TABLE=width:…

Sé que con un archivo adjunto todo sería más fácil, pero en estos momentos no lo tengo conmigo.... Tengo un archivo de texto que contiene caracteres de ancho fijo y un rango de celdas en un libro de Excel que contiene valores Mi deseo (que no consigo encontrar la forma de hacerlo) es crear una macro que busque en el archivo de texto todas las líneas que comienzan por la palabra "FORCE", compruebe si los caracteres de esa linea contenidos entre las posiciones 8 y 17 coinciden con el valor de alguna celda del rango en la hoja y, si coinciden, copie toda la línea del archivo de texto en un archivo nuevo .dat. Si tenéis una respuesta rápida, lo agradeceré. Saludos

estimados amigos he creado un formulario en el cual ingreso datos con userform pero en la hoja de Excel donde se llenan los datos para buscar ejemplo el la celda de RUC del generador ya no busca por que cuando lleno con el userrform el la celda de la base de datos generador sale error y eso no permite que la formula de buscar lo encuentre eso sucede igual con lo que es la celda de licencias me dado cuenta que sucede cuando ingreso números quiero ver como modificarlo que me acepte la búsqueda agradesco de ante mano la ayuda que me puedan brindar he eliminado dos userform por que el archivo es pesado solo he dejado lo del generador haber si me ayudan MOVIL 5.xls

buenos dias amigos del foro nuevamente recurro a ustedes tengo un macro que aporto el maestro Gerson Pineda y que hemos estado adaptando a mi necesidades con ayuda de mi amigo Pajuma, el macro corre perfecto , el problema que tengo ahora es que cuando carga los datos del listbox y lo mando a imprimir lo pasa en otra hoja y necesito que me haga la suma de lo que manda y cambie los encabezados a las letras color amarrillo y el fondo en azul, este es el codigo que utilizo, adjunto el archivo Private Sub CommandButton5_Click() Worksheets.Add Cells.Select Selection.ClearContents With Range("A65536").End(xlUp) Dim fila As Integer For fila = 0 To ListBox1.ListCount…

Control de Existencias Prueba.rar

Tengo un archivo de Excel con macros para una gestión de biblioteca en la cual he agregado un ListBox para buscar usuarios en una tabla "Usuarios", necesito que después de realizar la búsqueda, al hacer un doble click en un registro desplegado en la lista, posicione el cursor en la tabla y en la celda de la primera columna del registro seleccionado con el doble click, esto es lo que tengo: Private Sub TXTBusqUsuario_Change() NumeroDatosUsuarios = Hoja2.Range("B" & Rows.Count).End(xlUp).Row Hoja2.AutoFilterMode = False Me.LBXUsuarios = Clear Me.LBXUsuarios.RowSource = Clear y = 0 For fila = 8 To NumeroDatosUsuarios Descripcion = Hoja2. Cells(fi…

Buenos días gente, bueno es simplemente lo que dice el titulo, quisiera que en una determinada hoja (no en todo el libro) se resalte la fila activa con algún color, sin que modifique los formatos condicionales que pueda llegar a tener esa hoja No lo intenté hacer con formato condicional ya que es una tabla muy extensa y supongo que el rendimiento del libro bajaría en comparación si usaría VB Desde ya muchas gracias y saludos Buena Vida

Hola a todos. Os adjunto un archivo para ver si podeis ayudarme. A grandes rasgos lo que queria hacer es lo siguiente. Se trata de buscar productos de los diversos alamacenes. Poniendo el nombre del producto en la columna PRODUCTO, ha de buscar todos los productos con ese nombre en los diversos almacenes. Ha de salir la marca de ese producto,precio,unidades......(hay productos iguales de diferentes marcas,diferentes precios y varias unidades en los almacenes). Si pongo el nombre del producto,se han de rellenar todos los campos de las columnas ,buscando en los diferentes almacenes. Gracias por la ayuda. PRODUCTOS.zip

Hola a todos. Si tengo en la celda C2 la formula =suma(c3:c10) y eso da X resultado... quiero pasar esa formula a una variable ej. varform de tal manera que varform="=suma(c3:c10)" Como puedo obtener esto. Gracias

Hola buenas tardes, soy nuevo en el foro por lo que no se, si mi consulta va aca. Tengo una tabla dinamica que analiza los datos de una tabla llama " tabla_productos" en la Hoja "Articulos", mi tabla dinamica muestra el stock que tienen los articulos de la "tabla_productos", pero debajo de ella tengo que dejar una celda con textos y una linea para firmar. El problema es que esta tabla dinamica al actulizarla se puede hacer mas chica o mas grande dependiendo del stock que tenga la "tabla_prodcutos", por ello no se como hacer que se inserte automaticamente debajo de esta tabla dinamica. Espero haberme dado a anteder. Gracias por su ayuda de antemano. PD…

perdonen la molestia espero me puedan ayudar, debo calcular en un formulario lo siguiente: tengo una fecha inicial, una fecha final, una hora inicial, una hora final, tambien tengo una tarifa, un elemento adicional, tengo una cortesia los calculos que quiero que haga el formulario a travez del boton calcular es: lo que hay en el textbox fechafinal restarlo del textbox fechainicial, lo que hay en el textbox de horafinal restarlo del textbox hora inicial,...la cantidad de tiempo establecerla en el textbox de tiempotranscurrido en horas, al tiempo transcurrido multiplicarlo por la tarifa para que me de el monto en $ y a esto sumarle lo que haya en elementoadic…