¡Hola! Tengo la siguiente inquietud: Necesito mover de un libro de excel, desde la hoja 3 hasta la última hoja a un nuevo libro (el libro hay que crearlo). El nuevo libro se debe llamar "STOCK". Es importante mencionar que la cantidad total de hojas varía, pero siempre son más de 100. Entonces, lo que necesito es que desde la hoja 3 hasta la hoja N, se muevan a un nuevo libro que se llamará "STOCK". Desde ya agradezco cualquier aporte o sugerencia que me puedan brindar al respecto.

Hola, os pido ayuda porque estoy atascado, tengo una macro que utilizo para hacer una copia de una hoja concreta de un libro ésta macro la utilizo para todas las hojas cuando tengo que copiar y guardar hojas individuales por ejemplo guardar una hoja de un presupuesto como hoja individual, la hoja en cuestión por ejemplo es "Presupuestos" y tiene unas imágenes en la zona Cliente que quiero que vayan en la copia pero me pide el nombre de la imagen que no corresponde con el de la macro, estoy harto de buscar el nombre que le da Excel a dicha imagen para cambiarlo en la macro pero, y en propiedades no consigo encontrarlo, me podéis echar una mano, gracias

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 expertos buenas noches mi idea es como podremos distribuir 800 numeros que se encuentran en la columna A pasarlos a la columna E en grupos de 40 numeros por columna

Hola AyudaExcel requiero de su colaboración Lo que necesito es que una celda me cambie de color si el valor de la celda "PORCENTAJE DE CITA CANCELADAS" es mayor a 10 %, si es asi que se ponga roja si no es asi que se mantenga en verde (>10 = rojo ---- <10 = verde), pero esto teniendo en cuenta la fecha actual, es decir que mediante la fecha actual me busque en una tabla en que mes debe situarse y luego en el valor del porcentaje que corresponde para ese mes -------------- en el ejemplo que adjunto hice algo mediante formato condicional, pero no es funcional Adjunto archivo de ejemplo con una nota de lo que deseo No importa si se hace con funciones o macr…

Buen dia, tengo una macro que funcionaba bien pero hoy me esta dando este error 1004, en la orden de cargar una fila para despues copiar y pegar datos me tira error. (en rojo con carita) No entiendo lo que busque esta todo ok, que podria ser alguna ayuda🤔🤔🤔🤔?? Sub REGISTRAR3() ' ' REGISTRAR3 Macro ' Application.ScreenUpdating = False Sheets("REGISTRO").Select 'Desbloquea hoja ActiveSheet.Unprotect Password:="TANGO" 'Revisa las celdas existe = False For Each C In Range("C6:C10") If C.Value = "" Then celdas = celdas & " " & C.Address(False, False) existe = True End If Next…

Hola a todos soy nuevo en este foro, este es mi problema tengo que crear la forma de que con un formulario el usuario introduzca en un TextBox numero de gafet y al dar clic al botón este busque y seleccione la fila donde encontró el dato y ciertos rangos sean copiados y pegados en otra hoja de Excel 2003 lo que yo hice fue crear dos hojas dentro de mi libro hoja1 se llama “bd” , hoja2 se llama “reporte”, en bd tengo una tabla con los campos gafet nomina nombre apellido proyecto en la hoja “reporte” se peguen gafet nomina nombre apellido , nombre y apellido juntos y la fecha y hora en cuanto caiga el dato. Lo que yo hice fue una internas con su botón buscar este lo bu…

Grabe una macro en excel donde busco un archivo txt y en el mismo selecciono los campos que requiero, lo que quisiera ver la posibilidad de que pudiera utilizar una macro similar para todos los archivos que a diario me llegan con las mismas caracteristicas, ya que la macro que grabo solo me deja utilizar para ese archivo que grabo. Adjunto el ejemplo de parte de un txt que use para la macro: Sub BANESCO() ' ' BANESCO Macro ' EXTRAER LOS DATOS QUE NECESITO ' ' ChDir _ "C:\Users\Administrador\Dropbox\RED DE COBRANZA\INGRESOS BANCOS\INGRESOS BANCOS\INGRESOS BANESCO\Ingresos 2013\Noviembre" Workbooks.OpenText Filename:= _ "C:\Users\Administr…

Buen día Estimados, Intento conseguir dejar el zoom en 100% en cada hoja, haciendo referencia a un libro y hoja en especifica sin usar Activate o Select Windows(Nombre del Libro).Worksheets(Numero de Hoja asignado por un For).Zoom = 100 ¿Es posible hacerlo así?

Hola, tengo un problema, tengo un codigo para hacer que en una celda desaparezca las letras y solo queden los numeros. Pues bien, lo coloco en VBA y lo ejecuto, todo funciona bien hasta que cierro excel y al abrirlo me da error. El código no se guarda. Me podéis decir como hago para que el codigo sea funcional en todas las hojas de excel que abra. Gracias

Hola a todos amigos! Quisiera saber si alguien tiene algun ejemplo para trabajar desde otro libro donde puedo hacer capturas, modificaciones, eliminaciones, consultar y reportes. Les agradesco mucho amigos.. Saludos...

Hola tengo un gran problema En el excel de inventario necesito agregar una columna despues de la ultima empresa que se ingreso y despues copiar datos del excel de guia en esa misma columna y asi para cada empresa que tenga que agregar. ejemplo a mi me llegan varias guias de diferentes empresas entonces tengo una guia madre donde coloco las unidades de cada cosa que piden necesito una macro que en el excel de inventario me cree una nueva columna y que copie los valores en las casillas correspondientes. si no quedo muy claro me preguntan por favor. adjunto excel. ayuda.rar

Hola a todos¡ Quiero actualizar el contenido de una Content Control Text tras abrir el archivo, tal que así: Sub Sample() 'Ubicación y nombre de la plantilla Dim wArch As String wArch = Hoja1.Range("C3").Text & Hoja1.Range("C2").Text & ".docx" 'Con la variable siguiente definimos que vamos a trabajar con un documento de Word. Set objWord = CreateObject("Word.Application") objWord.Visible = True 'Abrimos el documento objWord.Documents.Open wArch 'Introducir un nuevo texto en el cuadro Dim cc As ContentControl For Each cc In ActiveDocument.ContentControls If cc.Title = "Text1" Then cc.Range.Text = "Hello World!" Exit For End If Next cc End Sub Sin…

Estimados, Visto que nadie pudo/quiso/supo cómo responder mi anterior post. Tengo otra inquietud respecto del mismo proyecto. De una planilla, busco y extraigo datos de otras planillas de origen externo. Estas vienen en formato de tipo delimitado por ";", el tema del formato, artesanalmente solucionado, una vez rescatados los datos (copiados al libro de interés para ser trabajados), le doy: Windows(OTRO).Activate 'llamo al libro auxiliar Range("a1").Select Application.CutCopyMode = False 'ActiveWorkbook.Close False (lo intenté pero evidentemente cierra mi libro principal:( ) ActiveWindow.Close savechanges = False ' aquí el problema [/CODE] Mi problema es qu…

Buenos días, tarde, noche Le presento una página para inventario (pero es muy versátil si se sabe modificar). La hice para la empresa donde trabajo (construcción de edificaciones metálicas), por eso su configuración. En 'Inventario' tenemos el stock dela empresa y los stocks de cada obra. También se presentan la cantidad y los kg para cada tipo de material. Esto significa que se puede llevar una empresa con uno o con varios almacenes en distintos sitios. A lo mejor en lugar de kg se coloca el precio de la mercancía para cada región donde este cada almacen. Se modifica la pagina de ‘Entrada’ para cada situación. (¡¡Recuerde que la macro hay búsqueda por letras!! Cu…

Hola: Pregunte en otro sitio y me dijeron que era imposible, pero ayer buceando en el foro vi una pregunta antigua del estilo. La pregunta era si “Es posible alterar el código VBA mediante el propio código VBA”, y era posible, y mi pregunta es: si una macro puede grabar “datos” en sí misma?. La razón: Tengo un archivo Excel “F:\Mi archivo excel.xlsm” con una macro que coge los datos de otro archivo que casi siempre está en la misma ruta, por lo que esa ruta es la que tiene la macro, “D:\Pruebas de Excel\Prueba_1_excel.xls”. Pero si mañana se cambia el directorio del archivo de datos a “D:\Cambio\Prueba_1_excel.xls”, o incluso el nombre “D:\Cambio\Prueba_2_excel.xls”,…

hola he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan guarda y cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice este es mi codigo Private Sub MultiPage2_Click(ByVal Index As Long) If MultiPage2.Value = 0 Then Application.Visible = False Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx" Worksheets("MATERIALES").Activate Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear Worksheets("MATERIALES").AutoFilte…

Buenas a todos, tengo una macro que busca en varios equipos remotos un archivo y lo lee para buscar una información especifica en el, el problema seria cuando no logra conectarse a un equipo tarda mucho antes de seguir al siguiente, quisiera limitar el tiempo en el que trata de conectarse a 3 segundos, mejor dicho que el programa se interrumpa y siga con el siguiente cada 3 segundos. les dejo el codigo a ver en que me pueden ayudar: Sub RevArchivo() Dim Ruta(5000) As String Dim c Dim i Dim r Dim fin Dim lectura As String Dim Origen As Long Dim Archivo As String Dim Respuesta(5000) Dim p Dim v Dim StartTime …

TextBox Change: Pérdida primera pulsación Buenos días, Adjunto hoja con formulario que incorpora 2 textbox programados para que, con el método change, al introducir datos en uno se borre el otro y viceversa. El problema que tengo es que pierdo la primera pulsación cuando, tras rellenar uno de los textbox, escribo en el otro.:confusion: ¿Cómo puedo solucionarlo? Gracias, Juan. TextBox Pérdida Primera Pulsación.xls

Buenos días, Busco hacer una macro que divida los valores de la columna "C" de la pestaña (2) entre el valor constante que le corresponde a esta planta , dato de la pestaña (1) , columna "A". Y devolver los valores resultantes de esta división en la columna "D", pestaña (2). Gracias por adelantado Libro1.xlsx

este código lo tengo en formulario pero quiero tenerlo en un Modulo para no estar repitiendo código en 4 formularios pero; '>------------------------------------------------------< Dim lStyle As Long, hMenu As Long, mhWndForm As Long mhWndForm = FindWindow("ThunderDFrame", [COLOR="#FF0000"][B]Me[/B][/COLOR].Caption) lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm [COLOR="#FF0000"][B]Me[/B][/COLOR].Height = [COLOR="#FF0000"][B]Me[/B][/COLOR].Height - 18 '>------------------------------------------------------<[/CODE] En el modulo …

hola buen día Estoy programando en excel con Vba y tengo una duda, el ejemplo es el siguiente estoy trabajando con dos libros en excel y en un tercer libro tengo que consolidar la información de los otros dos libros, quiero crear una macro que me tome los valores de la siguiente forma libro 1 [TABLE=class: grid, width: 500] [TR] [TD][/TD] [TD]cola[/TD] [TD]colb[/TD] [TD]colc[/TD] [/TR] [TR] [TD]flia1[/TD] [TD]a[/TD] [TD] dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila2[/TD] [TD]b[/TD] [TD]dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila3[/TD] [TD]c[/TD] [TD]dip[/TD] [TD]prop[/TD] [/TR] [TR] [TD]fila4[/TD] [TD]d[/TD] [TD]no[/TD] [TD]prop[/TD] [/TR] …

Buenas y salu2. Tengo un pequeño problema y no se cómo afrontarlo. El caso es que en un directorio tengo varios archivos (unos doscientos) que se descargan de la web y esta les pone un nombre bastante largo separando una primera parte del resto de caracteres del nombre mediante uno varios guiones bajos "_" ejemplo "nombre de fichero_13568_administ_trade.xls" . Bien, lo que necesito hacer es renombrar masivamente estos archivos de tal forma que me borre todo lo que hay a la derecha del "_", incluido el propio "_", dejando la misma extensión para terminar quedando así "nombre de fichero.xls".. A veces no son guiones bajos y sí otros caracteres separadores, como guiones medi…

Buenas noches, tengo poco que me uni al grupo y la verdad es que eh aprendido mucho espero y me puedan ayudar: Mi Problemas es que tengo un listbox de cosulta y utilice 3 combobox como filtros avanzados (rangos), el problema es que a la hora de seleccionar el ultimo filtro no realiza la acción, puedo filtrar por negocio, después por marca pero cuando quiero seleccionar el tipo de producto no pasa nada, adjunto el archivo para que se den una idea. Gracias. Dejo el Link del archivo ya que pesa mas de lo permitido: https://skydrive.live.com/redir?resid=297C243EEC5E4321!1008&authkey=!AMTVcvVy1PQoDAc

Hola, buenas tardes! Les comento, estaba tratando de armar una macro que fuera capaz que ordenar de mayor a menor los valores de cualquier columna de la tabla dinámica (principalmente del campo valores), la macro debe detectar la celda activa y ordenar de mayor a menor los valores de la columna en cuestión. Me encontré con una macro que logra hacer eso pero con el problema que solo funciona mientras tenga una solo valor en el campo "Filas" En este caso si yo solo tuviera el valor "Nombre" dentro del campo filas, la macro funciona bien, si yo tengo la celda activa en C5, entonces la macro ordena de mayor a menor lo valores del mes de enero, si la tengo en l…