Macros y programación VBA

Buenos dias, necesito por favor si alguien me puede dar una solucion para el siguiente problema, he creado un macro para insertar unos materiales de un listado en una hoja, los materiales estan en otra aparte y los ingreso mediante un useform que tiene un textbox, un listbox y una command button, cuando escribo algo en el textbox el me filtra el listado de materiales y me da las opciones en el listbox, y al seleccionar el que necesito del listbox solo le doy doble click o clickeo el command button y el material se inserta en la celda que este activa en ese momento, en cualquiera. el codigo es este: -------------------------------- Private Sub CommandButton7_Click() …

hola amigos, nuevamente recurriendo a su gran ayuda, ya que quisiera saber si hay alguna manera de insertar un texto por medio de macro al final de una imagen que cambia de tamaño, ya que tengo un reporte que he elaborado por medio de la camara con una macro (codigo que encontre en este mismo foro y modifique de acuerdo a mis necesidades), ya que el reporte general es de mas de 20000 filas, y varia cada quincena, y solo se necesitan reportes de matriculas (MAT.) especificas que se van solicitando y que al momento de cambiar el valor en "X11" cambian los datos de la imagen del reporte extraido, sin embargo, tambien me contabiliza el numero de eventos que tiene por cada mat…

Hola a todos, por favor si alguien me puede ayudar con el siguiente caso: Tengo una hoja llamada "sin formato" la cual necesito dar formato en la hoja llamada "con formato". lo que necesito es que a partir de cada fila vacia de la hoja "sin formato" se inserte una debajo de otra el siguiente texto : SALDO ANTERIOR : MOVIMIENTOS MES : SALDO ACTUAL : SALDO TOTAL : debiendo quedar tal como se muestra en la hoja llamada "con formato" y si se pudiera hacer el respectivo calculo tal como se muestra en las columnas "F" y "G" que se encuentran sombreadas de color celeste. Muchas gracias Consulta_Libro.xlsm

Hola , Buenas Tardes , agradeceria cualquier ayuda para automatizar este problema Con la planilla lo que obtengo es el directorio de trabajo que se llama originales para efecto de este ejemplo Datos Tengo una cantidad no definida menor que 40 de archivos pdf en carpetas FA,FB, para este ejemplo,pudiendo ser más FC,FD etc. Necesito introducir numeros correlativos en cada pdf partiendo de 01FA hasta 40 FA (05FA en este ejemplo) , pero no tomando el 00FA , el resultado de esto seria mover 00FA a la Carpeta FAN y ahi poner todos los archivos de 01FA hasta 50FA o menor con el numero coorrelativo dentro de cada archivo y que…

Hola a Todos el Equipo del Ayudaexcel tengo una duda de como insertar un texto a una celda a travez de una macro la unica manera que se me ocurrio fue esta: Range("d11").Select ActiveCell.FormulaR1C1 = "matematicas" Pero siendo varios textos me salta muchas veces la seleccion por EJEMPLO: celda b10= texto(matematicas) celda b150=texto(quimica) celda b80=texto(algebra) esw decir me selecciona la celda b10 baja la seleccion a la celda b 150 y luego sube a la celda 80 Mi duda es que si puedo insertar el texto a la celda a traves de una macro x un commanbutton de una manera que no me tenga q seleccionar la celda Gracias de Antemano Mis Cordiales Saludos

buenos dias. necesito poder insertar en esta hoja tantas celdas como me marque la primera celda de la fila y que se refleje en otra linea. Muchas gracias. adjunto hoja consulta.xls

Buenas tengo el siguiente codigo: Private Sub CommandButton9_Click() Dim carac As String carac = ActiveSheet.Range("G5").Value ActiveSheet.Range("c14").Value = Len(carac) ActiveSheet.Range("c15").Value = Left(carac, 1) End Sub [/CODE] Con este codigo en la celda C14 obtengo el numero de caracteres de la celda G5 y el la celda C15 obtengo el primer caracter de la celda G5. Si en la celda G5 el valor es 845, tendre en la celda C14 el valor de 3 y en la celda C15 el valor 8, lo que quiero es con codigo que emplee el valor de la celda C15 (es decir el 8) y le añada tantos ceros como el valor de la celda C14 (es decir 3). Con este valor tendria un resulta…

Buen día amigos, Estoy intentando insertar un N° determinado de filas según las cantidades del ítem.Ejemplo.xlsx Es como pasar de una tabla dinámica a la base original. Lo importante es que tiene que haber 1 ítem por cada fila. Por ejemplo, en la fila 4, tengo 5 unidades del producto que se menciona y lo que yo debo hacer, es desglosar esas 5 unidades para que queden 5 filas con 1 unidad de ese ítem. En el archivo se puede apreciar el desglose que necesito. Favor de su ayuda. Saludos

Buenas tardes, Necesito ayuda en varios aspectos, me he bloqueado y a pesar de haber intentado varios métodos no consigo llegar a lo que necesito. Adjunto archivo con una pequeña prueba. 1. Necesito insertar un número determinado de filas desde A1 hacia abajo, a partir de la cantidad que ponga en B2, será entre 1 y 6 máximo, pero es por no estar insertando manualmente. Lo he intentado con la siguiente macro, pero siempre tengo que tener la celda bien marcada y con al menos 2 filas ya fijadas para que se quede el mismo formato, no sé si existe otra forma de hacerlo: Sub InsertarFilas() Dim numFilas As Long Preguntar al usuario por el núme…

Buenos días de nuevo. necesito hacer una pequeña consulta. es referente a la entrada de datos en un calendario. Se realiza mediante un UserForm con OptionButton. Necesitaría ayuda por que querría que al seleccionar una celda, escribiera el dato en un numero determinado de celdas contiguas (Ej si es Batería nº 1 como máximo son 3 días hábiles pero pueden ser solo 2 o 1), saltando los días de cierre de las naves, que es donde me lió. Lo he intentado con un contador con una variable que pide cuando das a validar pero no me ha salido Si me pudierais orientar os estaría muy agradecido. Subo un archivo para que lo veáis. Muchas gracias de ante mano baterias.xls

Hola soy completamente nuevo en esto del excel y tengo una inquietud, con un x sistema genero varios archivos en excel los cuales me gustaria poder insertarlos en un solo archivo igual de excel pero en varias hojas con ayuda de una macro alguien cree poderme ayudar con esto. De antemano gracias por la ayuda que me puedan brindar. saludos Leo

Quiero insertar imágenes desde una carpeta con una macro en un hoja de Excel este es el código cuando lo ejecuto me marca error 438, a que se debe ese error. </IniciaCodigo> Sub fotos() Dim ImgArray(158) As Variant Dim x As String Dim fotos As Long x = Dir("C:\CL_0121\*.jpg") Do fotos = fotos + 1 ImgArray(fotos) = x x = Dir Loop Until x = "" ActiveCell.Value = x For i = 1 To fotos Selection.InlineShapes.AddPicture _ Filename:="C:\CL_0121\" & _ ImgArray(i), LinkToFile _ :=False, SaveWithDocument:=True Next i End Sub </ FinCodigo> Que es lo que esta mal

Hola buenas tardes: Necesito ingresar una formula en la columna C solo si una celda celda anterior tiene valor Columna B. Mi formula es (=SI.ERROR(EXTRAE(B3,ENCONTRAR("*",SUSTITUIR(B3,"\","*",LARGO(B3)-LARGO(SUSTITUIR(B3,"\",""))))+1,LARGO(B3)),"") Espero me puedan ayudar. Gracias Insertar formula si.xlsm

Buenos dias al foro, Tengo una inquietud, ojala me pudieran ayudar a resolverla: 1. Tengo un archivo con varias hojas 2. En cada hoja hay un formato, en el cual esta el campo Cliente (Columna "D") 3. En este momento esta programado para cuando uno se posicione en dicho campo vaya a una Hoja y consulte si existe el cliente o no, si existe colca su nombre e identificación, si no, Coloca No existe y no mas. 4.. Deseo que cuando me posicione en el campo o celda nombre me ejecute la macro que adjunto, o sea, que consulte si existe o no el cliente Si existe que me copie la identificación y el nombre del cliente Si no existe crearlo. …

Buenas tardes, el codigo siguiente me inserta un codigo, es decir: En mi celda G1 tengo un codigo, copio ese codigo y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F. Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada. Mi codigo: '-------------------------------------------------------- ' Macro para insertar filas segun cantidad de codigo | '-------------------------------------------------------- Sub InsertarFilasCantidadsitio() 'Variables para fil…

Hola: Necesitaría insertar a la vez (con GetOpenFileName) las rutas de tantos archivos como seleccionara, dispuestos en una misma fila uno a continuación del otro (ej, si marco 3 archivos, se inserten sus rutas en A1, B1 y C1). ¿Cuál sería el código? He visto muchos ejemplos, pero permiten seleccionar sólamente un archivo. Razón: para aplicarlo a una plantilla que envía correos, por filas, con adjuntos. Saludos.

Hola a todos, vuelvo a consultarles ya que no encuentro solución, no se si es el sitio correcto, de no serlo indicarme por favor. Resulta que intento incrustar un archivo word de 100 paginas en excel, para que se imprima con el contenido que hay en excel. pero mi problema es que cuando lo incrusto, solo aparece el primer folio. ¿Como hacer para que se visualicen todas las hojas del documento? Un saludo y muchas gracias de antemano

Hola a todos, tengo un archivo que le debo insertar imágenes a una lista en celdas combinadas, me pregunto si se puede modificar la macro que adjunto que es la que uso para insertar imágenes sin celdas combinadas. en este archivo que adjunto ya tenemos las celdas combinadas, no siempre van a haber celdas combinadas y la imagen debe caer en una celda. Al eliminar una imagen de la carpeta aparece en el archivo como imagen no encontrada, por lo que hay que "pegar la imagen como valor". Agradezco mucho la atención, les pido de favor me puedan a poyar con este dilema, gracias. ejemplo.xls

buenas!, como están gente!, pues aquí estoy con una consulta sobre macros, de lo que yo no tengo idea, por eso acudo a ustedes por ayuda. Busque en el foro pero lo que encontré no es lo que estoy buscando. Desde ya gracias a todos. la consulta es la siguiente: mis datos originales como ejemplo son estos: (la lista original contiene mas de 1.000 filas) y necesito crear una macro que me inserte filas y copie el original pero con las sumas de +1 para "inicial" hasta llegar al mismo monto de "final" y +30 en las fechas, para que quede de esta manera: adjunto archivo ejemplo ayuda.xls

Hola Compañeros Me ayudarían Con esto Intente lo mas Que pude pero no lo Logre Lo que intento es que al organizar valores primero por fecha y después de mayor a menor si son iguales Me las deje en la Misma Fila delo contrario Me baje el valor hasta que sea igual este es mi codigo Sub Conciliate() C = Range("B" & Rows.Count).End(xlUp).Row F = Range("F" & Rows.Count).End(xlUp).Row If C > F Then For i = 2 To 500 If Range("C" & i) = Range("F" & i) Then End If If Range("C" & i) <> Range("F" & i) Then If Range("C" & i) > Range("F" & i) Then Range("E" &a…

Hola a todos, mi nombre es Maurizio E incluso si entiendo que para muchos de ustedes esta solicitud mía no tiene mucho sentido; Para mí programáticamente mucho. Dicho esto, mi solicitud es esta: En un formulario de usuario, inserté un objeto (Calendar1) y 6 (TextBox) Ahora, el propósito de todo esto sería seleccionar uno de estos (cuadro de texto) y al hacer clic en (Calendario) ingrese la (Fecha seleccionada eso es todo ! Gracias como siempre desde ahora por toda la ayuda que me des al respecto. Un saludo desde Maurizio ################################ Hi everyone, my name is Maurizio And even if I understand that for many of you this request o…

Muy buen día, tarde, noche. Quisiera ver si ustedes me pueden ayudar a resolver algo. Como les comenté en mi anterior post, estoy siguiendo un tutorial en youtube, donde enseñan como manejar una base de datos de Access y que se vincule con Excel, para hacer un proyecto de facturación. Más allá del fin del proyecto, lo que busco es aprender. La cuestión es la siguiente: El tutor se vio obligado a resolver las dudas que se tenian con una Dll que él proporcionó para realizar la conexión entre access y excel. Por lo que hizo nuevamente el proyecto, y dejó para descargar el siguiente archivo: https://www.dropbox.com/s/0428g5qufad6xmf/DsigExpressAcces.rar?dl=0 …

Hola de nuevo, quería saber si en la instrucción CopyToRange habría la posibilidad que copiara sólo valores y mantuviera el formato de la hoja destino siempre igual. Gracias

Hola a todos!!!! Espero puedan ayudarme a resolver este pequeño problema! Estoy creando una macro para que se cambien "dinamicamente" las etiquetas de datos de un grafico, el máximo de etiquetas que puede tener dicho gráfico son 8 . Y para lograrlo quiero insertar el siguiente codigo para que primero agregue las etiquetas de datos y después mediante la fucion If decida si la etiqueta de gráfico existe para asi asigarle el valor que se encuentra en una celda de la hoja. El codigo es algo asi: Private Sub CommandButton1_Click() ActiveSheet.ChartObjects("Gráfico 1").Activate With ActiveChart .FullSeriesCollection(1).Select .FullSeriesCollection(1).Appl…

Hola amigos de ayudaexcel... tengo una tabla en excel 2010 que en la columna B tiene los nombres y apellidos de varias personas y lo que requiero hacer es por medio de un formulario y un textbox de nombre a buscar, que al ir tecleando las letras del nombre me aparezca todos los nombres que incluyan lo que se esta tecleando para seleccionar el nombre buscado y pegarlo al textbox1........con un listbox????, un autocomplete???? o con que otra instrucción.... y si conocen algún ejemplo o ejemplos similares a lo que requiero???????? de antemano muchas gracias, su amigo Jorge