queria preguntar como se hace para que al ingresar un nuevo dato desde un formulario ingrese tambien el formato de celdas (borde, ancho, alineacion) y las formulas? intente grabando una macro con la grabadora de macros, pero se me hizo mucho codigo con solo el formato de celda... muchisimo... demasiado... exagerado... y no logro exagerar lo suficiente para acercarme a la exageracion... DEPRECIACION 3.rar

Buenas tardes a todos; Una pequeña ayudita si es posible.. Quería borrar los datos de unas determinadas celdas al abrir el libro Excel. En la macro que he creado y adjuntado hace eso mismo pero debo estar situado en esa hoja para que se cumpla. Lo que me gustaría conseguir es que los borre esos datos sin que sea obligatorio estar en esa determinada hoja. Gracias y feliz año a todos. BORRAR.xlsm

estoy por crear un userform de busqueda y navegando por alli e podido ir paso a paso pero me tope con el siguiente problema. el usuario debe de teclear el nombre del archivo con su extencion ( ejemplo: nuevo.xlsx) y el buscador busca todos los archivos con ese nombre incluso aun si llevan otro nombre ademas del que tecleamos en el textbox (ejemplo: nuevo documento.xlsx) en practica encuentra todos los archivos que se lleven al principio el nombre de nuevo y sean de la extencion especificada todo marcha bien pero e decidido que para la comodida del usuario elijan de un combobox la extencion dejando asi que solo necesitan teclear el nombre...... pregunta: como le hago par…

Aqui estoy otra vez, con este ya tengo 2 temas abiertos, el asunto es parecido al otro, pero no lo mismo. tengo un libro (lo adjunto) con 2 hojas, una es "datos" y la otra es "informe" en datos tengo la columna "a" que es donde esta el asunto, la columna "A" tiene los cargos: jefes, contables... etc de cada categoria tengo mas de una persona, su nombre en la columna "b" y mas columnas que son datos de estas personas tengo en el libro un modulo escrito por mi pero me falta lo principal, me interesa que genere informes por cargo, es decir, todas las filas que empiezen la celda de la columna "a" sea el mismo valor, pegue en su correspondiente lugar en el informe todos l…

Como va? Basándome ya en algunos temas tratados en este foro estoy tratando de añadir una animación de transición que consiste en la aparición de un label que muestra el texto entero que contiene una fila de de un listbox que se dispara a través de un evento de movimiento del mouse sobre las coordenadas de posición del puntero del mismo en la fila del listbox en cuestión. No lo he podido conseguir por el momento porque el label titila demasiado. Adjunto código y archivos, desde ya muchas gracias. Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) On Error Resume Next Dim xl As Integer 'Me.L…

Buenas tardes; soy nuevo por estos lares, por lo que ya me perdonareis si meto la pata en la forma de publicar o de preguntar. (Lo he puesto tb en Power Pi, pero igual con una macro se resuelve mas fácil) Una duda, creo que muy sencilla, para el que lo sabe claro; yo soy incapaz de resolverla. Tengo una tabla (Tabla) y he creado una tabla Dinámica (TablaDinamica) que quiero que me muestre los datos tal y como lo he remarcado en verde en la hoja "Tabladinamica", pero soy incapaz de hacerlo automáticamente; lo he hecho pegando parque por parque, pero claro esa no es la gracia; querría que lo hiciese automáticamente. Alguien me puede ayudar por favor. (La tabla es mucho ma…

Hola.. estoy utilizando una macro de macro Antonio para ocultar y mostrar columnas.. sin embargo no se como acotar para que solo busque entre las columnas B y AT, ya que tarma mucho tiempo para recorrer todas las columnas de la hoja. saludos Option ExplicitSub OcultarMostrarColumnasMA(Optional ACero As Boolean = True, _ Optional Vacia As Boolean = True, _ Optional FilasIgnoradas As Long = 0, _ Optional ColumnasIgnoradas As Long = 0) 'Definimos las variables Dim Filas, Columna, Columnas, FilaInicial Dim ColumnaInicial, FilasVacias, Celda, x, y 'Determinamos rango de filas F…

Tengo un archivo de excel que quiero darselo a cada alumno pero con su nombre en el nombre del archivo, ejemplo: Plantilla (es el archivo de macro) y que cree Plantilla Juan Plantilla Ana Plantilla Maria tengo el listado de nombres en una hoja, el nombre del alumno tambien apareceria dentro de una hoja oculta para que nadie me presente archivo de otro. Lo hice con el grabador pero de esta manera siempre hay problemas Quisiera que este preparado para hacer archivos por igual cantidad a la de los alumnos, si en el listado hay 3 que haga tres archivos, si hay 10 que haga 10 archivos Y que los grabe en la misma ubicación en donde esta el archivo con la macro que d…

Muy buenas Me gustaría saber como podría hacer que aparezca mi userform en la barra de tareas al esconder o hacer invisible el excel. he encontrado una supuesta solución en un tema anterior, pero me aparece que el archivo esta dañado. hay alguien que me puede ayudar? Gracias un saludo

Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23: Private Sub Worksheet_Change(ByVal Target As Range) Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then ActiveSheet.Shapes(i).Visible = False Else ActiveSheet.Shapes(i).Visible = True End If Next End If End…

Estoy trabajando en un programa muy especifico para hacer distribuciones de folleteria. La Base de datos para armar el rotulado no es siempre la misma así que tengo que elegir bien las celda con las que voy a trabajar. En el archivo que envío hay 3 hojas, las 2 mas importantes son "base original" De donde tomare los datos y "Base 1", donde los pondré. MI problema esta en que selecciono bien las celdas con Objseleccion enla macro. Pero no copia la entera seleccion y solo me pega los datos que se encuentran en la primer celda seleccionada. Porque puede ser esto? Dejo el archivo y de todas fromas pego la formula aqui. Muchas Gracias por la ayuda.!! S…

En la Imagen la descripción del problema.

Buenas tardes compañeros Primero que todo un saludo y buenos deseos Tengo dos macros diferentes que tienen dos Workbook_Open y no se como hacer para que funcionen correctamente ya que individual hacen su trabajo pero juntos se genera un error que no permite mostrar las demás hojas del archivo a menos que se guarde el archivo otra ves, lo cual no debería de ser ya que tiene que ser automático al abrir el archivo con las macros activadas. Este seria uno Option Explicit Const WelcomePage = "Macros" Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False With ThisWorkbook If Not .Saved Then Select Case MsgBox("De…

Buenas noches, espeor me puedan ayudar en esta ocasion estoy trabajando con una tabal especifica en la hoja DATOS, la idea es que cuando INGRESE, ELIMINE registros no altere los registros de las demas celdas que no pertenecen a la tabla he logrado agregar pero para eliminar me sale error, me da error al momento de ubicar la fila en especifico a eliminar. muchas gracias por su apoyo Copia de Guardar datos en Tabla.xlsm

Primero que todo un feliz año para todos .... Al declarar una matriz o arreglo en vba no conozco el tamaño de la misma ya que debo procesar una columna de una planilla para conocer el tamaño....que ademas varia mes a mes.....como defino correctamente la matriz "funcionarios" que tendra n filas y 30 columnas ??? puedo usar (despues de conocer la cantidad de funcionarios) algo como REDIM func(cantidadfunc, 30 ) ????? gracias de antemano

hola alguien me podría ayudar tengo una macro que me genera mi archivo txt, en la unidad d:\ con el nombre según celda j5, lo que quiero ahora es que ya no me guarde en la unidad d:\ sino que me guarde mi archivo según la celda l5 ahí esta la ruta que quiero que me guarde mi archivo. Sub GenerarTexto() Range("o8").Select Open ("d:\" & Range("J5").Value & ".txt") For Output As 1 captura: Print #1, ActiveCell ActiveCell.Offset(1, 0).Select If ActiveCell = Empty Then GoTo cerrar GoTo captura: cerrar: Close #1 Range("p5").Select End Sub

Buenas tardes; Estoy desesperado, no sé que le ha pasado a mí Excel. Al abrir una macro guardada de ayer el Excel no tarda nada en abrirse pero......si ese Excel que abro ( guardado ayer ) le guardo con otro nombre, le cierto y le vuelvo a abrir, se queda en la pantalla de iniciando durante 2 minutos (aprox.) Y luego se abre. Que puede pasar, me pasa con todas las macros que guarde. No he probado con Excel sin macro, luego probare. Sabéis cómo solucionarlo??. Muchas gracias.

Me gustaria que me explicaran paso a paso este codigo, gracias de antemano. Dim ligne, débutOrg, f, forga, inth, intv, Tbl(), n, d Sub DessineAscendants() Set forga = Sheets("BD") Set f = Sheets("bd") Set d = CreateObject("Scripting.Dictionary") Tbl = f.Range("A2:I" & f.[A65000].End(xlUp).Row).Value n = UBound(Tbl) Set débutOrg = forga.Range("I23") ligne = 0 inth = 60 intv = 40 liginit = ActiveCell.Row - 1 lig = ActiveCell.Row - 1 couleur = IIf(Tbl(lig, 4) = "M", f.Cells(2, 2).Interior.Color, f.Cells(2, 3).Interior.Color) créeShapeP Tbl(lig, 1), couleur, 0, IIf(Tbl(lig, 4) = "M", "AM", "AF"), " " End Sub

Hola Expertos, necesito de su apoyo para solucionar este programa, Ej. tengo un archivo en el que obtengo las ordenes de productos que tengo fecha y cantidad y en otro archivo tengo los componentes de cada uno de estos productos entonces tengo que encontrar los 10, 15, 20 o 30 componentes de cada producto y además ir obteniendo información de cada uno, eso creo que en lo que llevo ya está resuelto, sin embargo necesito darles prioridad por fecha entonces por decir si tengo para el día de mañana el requerimiento de un componente por 15 piezas y tengo 30 el Producto que requiere 50 piezas de ese mismo componente para pasado mañana solo podrá contar con las 15 …

Buenos días, Requiere de su ayuda para que por favor me apoyen diciéndome como puedo plantear un código vba, que me permita consolidar todos los archivos contenidos en una carpeta X en un solo archivo de excell para poder armar una base de datos. obviamente los archivos contenidos en la carpeta tienen la misma estructura (misma cantidad de campos, iniciando en A1 y terminado en la columna F), solo que son casi 60 archivos los que debe consolidar la macro. Si me pueden ayudar les agradecería inmensamente.

Hola colegas buenas tardes a todos. Estoy trabajando en un Proyecto que consiste en una modelo de Transferencias Bancarias que se debe presentar al banco para determinada Transacción. Esto se hacia directo en un documento de Word y yo pretendo automatizarlo para ahorrar tiempo y evitar errores al máximo posible. Que quiero? Cuando marque un CheckBox de los que se encuentran dentro de Cada Frame (3) los demás permanezcan desmarcados, o sea, cuando uno sea Verdadero, los demás sean Falso. Quizás con un Bucle pensé yo, pero realmente no encuentro la manera. También ahora se me estaba ocurriendo hacerlo con OptionButton... no sé, ustedes me dicen que debo hace…

Muy cordialmente solicito el FAVOR ! de ayudarme con las Conclusiones en TextBox, en Seguimiento de proyectos. 1. En Eficacia Tiempo: =SI(H32<1,"Eficiencia en Tiempo",SI(H32>1,"Deficiencia en Tiempo",SI(H32=1,"Tiempo Programado = Tiempo Ejecutado"))) 2. En Eficiencia Costos: =SI(I32<1,"Eficiencia en Costos",SI(I32>1,"Deficiencia en Costos: Sobrecosto →Deficiente",SI(I32=1,"Costo Programado= Costo Ejecutado"))) 3. En Estado proyecto en Tiempo: =SI(J32=0,"Coincide con Programación",SI(J32<0,"Adelanto en Programación",SI(J32>=1,SI(J32<4,"Atraso Tolerable en Programación",SI(J32>=4,"Atraso en Programación"))))) 4. Conclusión TIR: =SI(R32>…

Buenas tardes o días a todos; -He creado una macro Vba Excel que por medio de un Userform me hace una consulta a una base de datos Access. Al frm le he puesto un comboBox para elegir la consulta que quiero hacer. Lo he hecho por medio de un condicional "IF" de ahí mi pregunta. ¿Está bien así o hay otro método mejor?. El código del UserForm comento lo que he hecho con '<<< >>> Adjunto macro para mayor comprensión. Gracias y saludos a todos. ConsultaBD.zip

Buen día, espero me puedan ayudar con lo siguiente En una hoja tengo la base datos; en la columna "A" tengo los códigos de los datos (x20,x21,x22). Inserté un botón, grabé una macro, para copiar otra hoja en la que realizó los cálculos y nombrarla con los valores de dicha columna "A" (x20,x21,x22): Private Sub CommandButton1_Click() ' Copy_Form_NH Macro Sheets("Form").Select Sheets("Form").Copy Before:=Sheets(8) Sheets("Form (2)").Select Sheets("Form (2)").Name = Range("A8") Range("A1").Select End End Sub ----- El problema aquí es que siempre hace referencia a la celda A8 Lo que deseo es que al seleccionar la celda, y enseguida el botón me copie la hoja 'For…

(Ante todo perdon por la ausencia de tildes pues estoy usando un teclado extrangero ) Hola a todos. Tengo el siguiente problema: Resulta que tengo que hacer una macro que, en Word, busque las imagenes de un archivo Excel para importarlas a este. Como no tenia ni idea de como hacerlo, busque un pequenho ejemplo que recorre las distintas imagenes en la hoja excel. Asi pues, tengo el siguiente codigo: Dim ExcelApplication As Excel.Application Dim ExcelWorkbook As Workbook Dim ExcelWorksheet As Excel.Worksheet Dim img As Shape Dim chrt As ChartObject Dim Nombreimg As String Dim i As Integer Set ExcelApplication = New Excel.Application Set …