Etiquetas Twitter (HashTags): Quisiera ver quien me puede ayudar en mi libro, lo que necesito es poner la cantidad de articulos vendidos y que se valla descontando automaticamente de las existencias de mi inventario de verdad agradeceria me ayuden 1.xls

OK, la duda es la siguiente, tengo libro que contiene 5 columnas de datos, la primera columna "A" es el ID y la ultima "E" es el Estado del documento, que por defecto esta en Disponible, como puedo hacer para que al momento de ingresar el ID en un textbox y hacer la búsqueda me diga si el documento esta o no esta disponible; en caso de estar disponible solicitar con un botón un préstamo y que la disponibilidad cambie a No disponible... Pd. No subo archivo porque realmente no tengo nada respecto al tema que estoy tratandoles.

Buenas a todos los que pertenecemos a este gran foro. Desde hace unos 4 o 5 días me arroja el error 13, porque hasta la fecha la macro corría bien, por mas que he leído en el foro no doy con la solución. en rojo es la linea que me arroja el error. Private Sub Matricula_AfterUpdate() If WorksheetFunction.CountIf(Hoja12.Range("C:C"), Me.matricula.Value) = 0 Then MsgBox "Matricula Incorrecta" Me.matricula.Value = "" Exit Sub End If With Me nombre = Application.WorksheetFunction.VLookup(CLng(Me.matricula), Sheets("AGENTES").Range("C3:D3000"), 2, 0) End With End Sub

Buen dia, a todos, soy nuevo en este foro y tambien en excel 2010...soy usuario de excel pero a nivel de crear macros, me ha resultado muy complicado crear incluso esta. la cual pido su asesoria. explico: debo extraer o mejor copiar los datos desde un hoja excel que nos envian y pegarlos en otra hoja pero resulta que el origen es bastante desordenado y no encuentro la forma de hacerlo bien. cuando intento crear una macro solo copia lo primero que indico y lo segundo no aparece. ojala y puedan ayudarme... adjunto un archivo con una copia tipo y datos, ademas una hoja con los datos como deben quedar para ser analizados. talvez les parezca simple. pero yo como les explique…

Tengo varias macros en una misma hoja y el excel me bota un error y no me las deja ejecutar por favor me pueden colaborar. El código es el siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$7" Then MostrarVentasFacturadas End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$8" Then MostrarVentasPerCapita End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$9" Then MostrarRotacionTotal End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$10" Then MostrarRotacionNeta End Sub Private Sub Worksheet_…

Hola, buenas tardes. Llevo varios dias dándole vueltas a un problema con una macro, me explico: La función de esta macro es de, en primer lugar, listar los documentos archivados en una carpeta cualquiera (seleccionada con un Browser), con sus propiedades y características. Esto ya he conseguido hacerlo (es la parte fácil) No obstante, ahora necesito que, si escribo en otra columna X un nuevo nombre para el documento (digamos que el nombre actual del documento está en la celda "C2", y yo tecleo un nuevo nombre "*.*" en la celda "D2") al activar la macro ésta vaya a la carpeta del documento, y modifique su nombre antiguo por el nuevo, sin modificar el directorio. Más o …

Buenas tardes a todo el mundo. He estado investigando y se que se pueden copiar/pegar archivos de una ruta a otra mediante macro. No he conseguido encontrar solución para mi problema. En una carpeta llamada Registros, se me generan una o varias carpetas. El nombre de estas carpetas siempre varían y dentro de estas subcarpetas hay archivos con 2 extensiones, .doc y .xls. con nombres que también varían. Como podría coger todos los archivos con extensión .doc y pasarlos a una nueva ruta? O sea, que todos los archivos dentro de las carpetas que hay en la carpeta registros, me los copiase a otra.También me serviría que me copiase los dos tipos de archivos. Gracias por vuestro …

Buenas tardes, Tengo un pequeño programa que e estado creando gracias a los temas que he encontrado en el foro pero hay algo que no me agrada de este programita es que cada vez que tengo que agregar un cliente buscar un cliente u otras cosas tengo que activar la hoja donde estan los clientes. Me gustaria que todo se maneje en base del programa sin tocar mas que una sola hoja mejor dicho algo que suplante al Sheets("Hoja3").Activate[/CODE] Adjunto el programita para que lo entiendan. Gracias cotizacion victor 1.rar

Estimados Amigos, Buenas tardes, tengo una pregunta sobre como podría optimizar una macro que recorre 300.000 registros y concatena información con el siguiente código: Sub ConcatenaColumnas() Dim numzeros As String numzeros = "0000000000" Range("A:B").Select Selection.NumberFormat = "@" Range("E3").Select '------------------Columna Validación-------------------------------------------------------------------------------------------- Do While ActiveCell <> "" 'Bucle hasta la celda este en blanco ''de la celda activada retroceder xx números (0, -xx) a la izquierda y escribir fórmula ActiveCell.Offset(0, -4).FormulaR1C1 = _ …

Buenas. Necesito de su ayuda, en la oficina manejamos muchos archivos de excel q pasamos al sistema de la empresa codigo por codigo. Hay manera de crear una macro en excel que salte entre excel y el sistema incluyendo la informacion por nostros? Explico: Codigo Descripcion Cantidad 10000 pañal 1 10001 toalla 1 ahora bien, necesito q al activar la macro excel vaya a mi sistema y ponga esos datos, cuanto termina una linea, sigue con la otra, Es posible?

Qué tal foreros? Sub UseOpenXML() Application.Workbooks.OpenXML _ Filename:="customers.xml", _ LoadOption:=xlXmlLoadImportToList End Sub [/CODE] En este comando, quiero saber como abrir el archivo con un nombre que no cambie jamás. Lo tengo dentro de un loopy el nombre debiese quedar igual independiente del nombre. Luego de abrir, cierro el archivo creado sin guardarlo, pero si necesito que ese archivo se llame siempre "Book1.xls" o algo así.Les agradeceré que me enseñen cómo se hace. Saludos.

copiar imágenes de word a excel con macro Que tal, ya es un tiempo que no pasaba por aquí debido al trabajo, pero seguimos en pie, me llegó una gran duda y me gustaría que pudiesen ayudarme. El punto es que me llegan documentos Word con fotos que yo debo meter a una base de datos en Excel, ya busqué y ya sé como abrir un documento word desde excel, pero no sé como copiar un objeto (imagen) de word y pegarlo en excel. Adjunto los archivos, tanto word como excel, (no tienen macros definidas ya que nunca he manejado word vba y menos combinado con excel) para ver si les sirve de guía para entender lo que busco. gracias de antemano. Saludos P.D. Hasta ahora me di cuenta de…

Buen dia, Quiero que al hacer una selecion de un listbox o combobox, se imprima en 2 textbox dieferentes informacion relacionada al item seleccionado. ej: Al seleccionar de un combobox 1 el numero de parte de un producto (N/P), se debe imprimir en el textbox1 el tiempo promedio de reparacion y en el textbox2 el nombre del modulo seleccionado. Estos dos ultimos valores son constantes y propios de cada parte numero. Espero contar con su ayuda, mil gracias

Hola, me estoy metiendo en esto de las macros y me he econtrado un problemilla. Tengo un libro con un montón de datos que de hecho són vínculos a otros muchos libros. Se llama "Offers". Filtro estos y copio las columnas que me interesan hacia un nuevo libro, "Report". Funciona bastante bien pero en dos casos ("Margenes" y "Precio") sólo me copia la primera fila de entre las filtradas y no el resto. Cómo puede ser que funcione bien en algunas columnas y no en otras cuando és exactamente el mismo código? Y los origenes son todos vínculos y el destino tiene formato general de celda. Muchas gracias por vuestra ayuda, os pego lo que tengo hecho. Sub filtrar_offers() 'F…

Buenas a ver si me podéis ayudar a solucionar este problema, resulta que he pasado de win 7 64 bits a win 10 64 bits y ahora el modulo que usaba para que en un textbox al darle con el botón derecho se me abría un mini menu para cortar pegar texto ahora este no se ejecuta, y no se cual puede ser la razón del problema. Libro1.xlsb

hola buenos dias queria saber si me pueden ayudar tengo un formulario en excel con vba y puse los codigos para poder in ingresar y limpiar los datos del formulario pero no tengo idea que codigo colocar para poder modificar los datos, buscarlos, y poder eliminarlos agradeceria su ayuda muchas gracias no pude subir el archivo era muy pesado pero solo necesito el codigo y la indicacion de donde agregar los textbox1,2,3etc.

Estimados buenos dias Agradezco su apoyo en la siguiente línea que no me funciona, deseo cerrar un archivo excel tener presente que nombre archivo lo tengo celda B10 . Dim nombre As String nombre= Range("B10").Value Workbooks("nombre").Close SaveChanges:=False

Buena tarde, amigos del Foro .. alguien que me pueda asesorar sobre un código a traves de una macro que me permita concatenar los varias celdas con caracteres siempre y cuando se cumpla una condición con otras celdas con números. es decir si el las celdas de G51:G54, tienen valor numérico concatene la cadena de caracteres que tenga H1:H54, del archivo RO_SECHU a CONTROLROSECHU, Sub CopiarCeldas() Dim Orig, Dest, i&, uf& Dim wbDest As Workbook Dim wsOrigen As Worksheet, wsDest As Worksheet Application.ScreenUpdating = False Orig = Array("A37", "D5", "D7", "D17", "A23", "I13", "I15") Dest =…

hola, quiero hacer una escogida automatica con excel. tengo un lado 70 zonas de trabajo libres (zona 1, zona 2,etc.) y por otro lado 900 comerciales que pueden cambiar de su zona asignada si estan interesados. Cada comercial que quiere cambiar entrega su solucitud con su preferencias (1ª) zona 34, 2ª) zona 6, etc.). a la hora de hacer de asignar se hace por antigüedad en la empresa. ¿como lo hago? ASIGNACION ZONAS.xls

Hola Tengo que sacar de unos 500 libros cerrados algunos valores de celdas. Encontre un código que se adapta casi al 100%. Mis libros en su (hoja1) sus nombres son diferentes y quisiera encontrar el código adecuado para que lea cada libro cerrado sin importar como se llame la hoja1. Magnifico y práctico código. La parte del código motivo de mi mensaje es: CStr(NombreHoja). Sub RecuperaDatoA2_y_I2_Opcion_1() 'Usando función de Macro de Excel4 (predecesor de VBA) [Macrofucion] Dim ruta_directorio, Archivo As Application, NombreArchivo As String, NombreHoja As String Dim n As Long 'Indicas la Ruta base, estoy suponiendo que los 4000 archivos estan e…

Hola a todos, Soy nuevo aquí, y en realidad es en el primer foro que participo. Quiero dar color a una fila según el criterio de una celda. En la celda TIPO si pongo una M quiero que se me ponga la fila de una color y si pongo M que se ponga de otro. Así en toda la hoja. He intentado seguir vuestros consejos, pero aun soy demasiado torpo para esto. Aquí os adjunto mi hoja TOTAL AÑOS.foro.xls

Hola, Estoy buscando como resolver este tema. Actualmente para importar archivos de texto, estoy utilizando esta macro: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/convertir-varios-archivos-texto-concentrar-sola-hoja-excel-28481/ Mi problema es que necesito que en los archivos de texto, todos tienen la primer fila con los nombres del campo, lo cual no deseo importar más que una sola vez, y por otro lado, necesito poner el nombre del archivo de donde viene ese registro en un campo de cada uno de los registros. Primero estoy importando los archivos a excel, pero despues los importare desde access para manejarlos en una bd. Alguna sugerencia? Saludos !

Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As St…

Bueno como el titulo lo dice quisiera que el listbox mostrara solo el rango de datos filtrados en este caso la fecha. no quiero que considere en los datos que muestra la fecha 00-01-1900 el filtro ya esta aplicado en la hoja reporte naves espero haberme explicado bien. adjunto archivo para su revisión de ante mano muchas gracias. PRUEBA REPORTES.rar

hola!!! estoy tratando de grabar una macro que en cierto momento abre una hoja nueva. la primera vez que la corro es todo maravilloso!! (crea la "hoja 1") a partir de la segunda ya no está tan padre, porque al ejecutar la macro, en lugar de hacer referencia a la hoja1 abre nuevas hojas (hoja2, hoja3, hoja4...) y las siguientes fórmulas, siguen haciendo referencia a la hoja1, y no a la que se acaba de crear.... (hoja2,3,4...) se les ocurre algo que pueda hacer??