Estimados amigos, Soy un principiante en macros pero paso a paso he ido avanzado y estoy muy entusiasmado con todo lo que aprendo en este foro!! Sin embargo, estoy trabado con este tema y no encuentro solución. Les estaré inmensamente agradecido si me dan una mano!!!! En el archivo adjunto (la base de datos que estoy armando) en el formulario 11 tengo un listbox y debajo varios TextBox (un TextBox para cada columna del ListBox) Me gustaría poder lograr lo siguiente: 1) modificar los TextBox y que al hacerlo se actualice la información en la hoja que alimenta dicho ListBox. Para ello cree el botón "Actualizar". 2) lograr eliminar una o varias filas del ListBox. Para …

Teniendo un formato predefinido de una hoja de seguridad, donde hay que cambiar del mismo cuatro conceptos e imprimir copia para cada cliente y vuelo: Número de conocimiento Empresa Día de vuelo Hora de vuelo Me gustaria poder automatizar este trámite para que no sea tan engorroso, he intentado hacer mediante un buscarv que busque de una tabla con estos datos predefinidos y los inserte en las casillas de la hoja de seguridad pero tendria que abrir una hoja por cada vuelo, sigue siendo igual de trabajoso, por favor me seria de muchisima ayuda que alguien me sugiriera alguna macro que vinculará la tabla con el formato predefinido de la hoja de seguridad y te diera un…

hola tengo un macro y el problema que encuentro es que agregue una condicion a las celdas de la "fila A" "hoja2" CÓDIGO: SELECCIONAR TODO =SI(B8="";"";SUMA(B8*D8))[/CODE] que se repite en todas las filas ahora lo que pasa que el ejecutar el macro copia las celdas vacias,aunque en el macro especifica que copia las celdas que tienen valores si pongo [CODE]CÓDIGO: SELECCIONAR TODO =SI(B8="";"";SUMA(B8*D8))[/CODE] si lo saco me lo hace bien me pega las celdas que tiene datos nada mas Macro [CODE]Dim UltFila, Cant As Long UltFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1 Cant = Hoja2.Range("A" & Rows.Count).End(xlUp).Row Hoja2.Range("A8:E"…

Buen dia a todos! Quisiera saber si me pudiera apoyar con esta macro ya que no logro adaptarla a lo que deceo y hacerla funcional. Tengo un libro en el cual tengo dos hojas en ambas tengo el mismo numero de columnas con el mismo tipo de informacion, yo lo que quiero lograr es que de la hoja2 compare la columna A hasta encontrar celda vacia contra la hoja1 columna A hasta encontrar celda vacia, si encuentra el dato entonces reemplazar toda esa fila de la hoja2 en la hoja1 en la posicion donde encontro el dato que coincide. HAsta ahora solo tengo esta parte. Sub repetidos() sheets("Hoja1").Select Range("a1").Select posicion = 1 While ActiveCell.Value <…

Bien pues les explico resumidamente el trabajo que estoy realizando. Me entregan una base de datos de registros de polizas contables en varias hojas que estan definidas por Cuenta Bancaria, mi trabajo es concentrarlas para despues separarlas tomando ahora como referencia la cuenta contable a la que se aplican y asignarles una hoja por cada cuenta con sus respectivos registros. Esto ya lo tengo, donde estoy atorado es que al repartir la información en algunas hojas me puede dar simplemente un registro y en otras más de 500, por lo cual no se que codigo utilizar para que se apliquen las sumatorias a los rangos de valor numerico. Mis rangos de valor numérico empiezan a par…

Buenas, Ya se que me dirán que existe en google o por aquí mismo varios comentarios similares de mi problema, pero he leído bastante y no consigo que me funcione correctamente lo que quiero. Si alguien me pudiese ayudar le estaría muy agradecido. El tema es el siguiente: Necesito una macro que al pulsar un botón, me envíe un email por outlook con un rango de celdas (siempre el mismo) como imagen pegada en el cuerpo del mensaje además de un pequeño texto también en el cuerpo y añadiendo también la firma que esté por defecto en outlook, la cual incluye logos de la empresa. También que incluya los destinatarios que tengo en un rango de celdas de otra hoja. He conseguido…

Gente buenas tardes. Estoy trabajando con Excel 2013, y necesito abrir un archivo con código fuente. : Dim XL As New Excel.Application XL.Workbooks.Open "Z:\Documentos Personales\Juan Arduini\cargas de suero.xlsx", , False El problema es que de esta forma lo abre indicando Error de activación de productos en rojo en la parte de arriba y cuando lo quiero buscar no lo encuentra, ahora si lo abro haciendo clik no aparece el error y luego si lo detecta el código. La pregunta es, como hacer para que a través de código fuente se abra pero sin el error? Gracias Juan

necesito insertar varias imágenes en una hoja Excel y escribir el nombre de la imagen las imágenes están en una carpeta. Estoy empleando para insert imágenes: ActiveSheet.Pictures.Insert(carpeta & imagen).Select pero solo me inserta una

Cambiar filtros de informe de tabla dinámica con macro haciendo una texbox en otra hoja mismo libro Supongamos que tengo una macro el cual me hace una tabla dinámica en esta macro ya están todos los valores definidos. mi pregunta es: Si quiero que el filtro de informe este determinado por lo que esta en una lista desplegable de validación de datos que se encuentra en otra hoja como logro que, en el momento que se termine la tabla dinámica el filtro me lo ponga de acuerdo al valor que tengo en esa celda de esa otra hoja?? Esto es lo que tengo: ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tecnologia"). _ CurrentPage = "(All)" With ActiveShee…

hola a todos desde Colombiaresumiendo tengo un formulario que llena una base de datos en un archivo-aplicación la información se cambia y edita todo el tiempo; esto por que es para almacenes de tecnología, lo que hace necesario que tres personas estén ingresando información al mismo tiempo ahora mismo esta guardado en dropbox por lo que se puede llenar desde varios sitios, pero el trabajo de uno tapa el trabajo del otro ya pensé en manejar tres bases de datos, una para cada usuario ya pensé en poner la hoja base de datos como otro libro que se alimenta de los fomularios como un archivo aparte ya pensé en poner la base de datos como una base de datos sql en intern…

el rango de celdas es variable así que lo debería tomar de la celda A1 por ejemplo y el directorio y nombre donde se grabe el nuevo libro estaría en A2 de la hoja activa gracias por la ayuda que puedan brindar

Por sus 8 Años de ayuda e incondicional servicio de "Ayuda Excel" Te damos lsa Gracias; claro tambien mencionando a las personas que hacen grande la familia de "Ayuda Excel" Sergio propergol Gerson Pineda ioyama Fleming Macro Antonio Armando Montes bigpetroman pegones1 tese1969 johnmpl Riddle Enigma25 entre otros…..! Y claro tambien a todos los usuarios de "Ayuda Excel" Saludos a todos, un anorme abrazo y un merecido Gracias..!

Buenos días quisiera cambiar los datos como hago en mi código: For x = 2 To Normalizados.Range("A" & Rows.Count).End(xlUp).Row If Cond_Normalizado = Normalizados.Range("A" & x) Then Cond_Normalizado = P_Unitario.Range("A" & x) If TipoLinea = Normalizados.Range("B" & x) Then TipoLinea = P_Unitario.Range("B" & x)[/CODE] Pero sin embargo quiero que en mis combobox Cond_Normalizado y TipoLinea me sigan mostrando el valor anterior. Cambio el valor ya que tengo que buscar un valor con más variables. Esto se puede hacer? Gracias!!!

Buenas tardes amigos, El día de hoy les vengo pidiendo su total apoyo para con este archivo, el cual es un un Layout para importación de datos en excell a texto para realizar pagos masivos de convenio CIE, solo que tengo un pequeño problema probablemente es porque ya me bloquee. Anexo mi documento. Saludos y mil gracias por leerme. Layout CIE.xlsm

Estimados Muy Buenas tardes Esperando que se encuentren muy bien, comentó que el motivo de este tema es para solicitar cordialmente su generosa ayuda con este tema. trabajo en el área de ventas y me gustaría que cada cotización que realice se guarde automáticamente en otra pestaña (denominada seguimiento). Ejemplo: Realizó la cotización 1 para un x cliente, esta cotización posee 10 artículos por ende estos 10 artículos deberían agregarse a la pestaña seguimiento Realizó la cotización 2 para otro cliente, esta cotización posee 25 artículos por ende estos 25 artículos deberían agregarse a la pestaña seguimiento Cuando revise la pestaña se…

Hola a todos: Tengo un formato especial para realizar unos movimientos frecuentes, lo he hido trabajando con formulas de buscar para ingresar los datos. Pero me gustaria automatizar este. En una hoja coloco los datos con las que quiero que se llene el formato. como son fecha, almacen de entrada y salida y lo principal los codigos descripcion y costo. Adjunto informacion. Registro en formato.xls

Buenas soy nuevo y me gustaría una ayuda. quiero copiar tres archivos de una unidad a otra para trabajar con ellos. con un boton busco lo que pongo en la celda de la hoja1 en la celda a24 en un archivo de forma secuencial. set fso=createobjetc("scripting.filesystemobject") set archivo= Fso.CopyFile ("P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV") set archivo= Fso.CopyFile ("P:\ssv.pv", "C:\gonzalez\temporal\ssv.PV") Dim ts As TextStream Dim strCodigo As String Dim strLinea As String Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV") strCodigo = ("a24" ) Do While Not (ts.AtEndOfStream) strLinea = ts.ReadLine If strCodigo = Left(strLine…

Buen dia amigos alguien por casualidad sabra como correr macros automaticamente cada cierto tiempo Saludos - - - - - Mensaje combinado - - - - - Listo ya solucione colocando el siguiente comando al inicio de cada macro Sig = Now + TimeValue("00:15:00") Application.OnTime Sig, "NOMBRE DE LA MACRO" Saludos cordiales

Buenas Tardes Tengo un formulario, que contiene unos 10 textbox, para los cuales quiero configurar las siguientes propiedades Private Sub TextBox_Enter() TextBox4.BackColor = RGB(245, 245, 245) End Sub Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.BackColor = RGB(255, 255, 255) End Sub Quisiera saber si hay alguna forma de configurar esto para todos los textbox con un solo código, y no tener que hacerlo para cada textbox..

Buenos días, Ojalá y me puedan ayudar con esto.( Yo sé que si ) Tengo un archivo de informe de ventas por año, y necesito saber que clientes compraron en el año 2013 y 2014 y en que mes. Necesito sumar las ventas por mes y por linea(por cada cliente) y pasar los clientes con cada linea en la hoja consolidado, se debe sumar el valor por mes y por linea y pasárselo al cliente correspondiente al 2013 es decir, si el cliente pepito perez compro en enero de 2013 en la linea "ropa Hogar"y pepito perez volvió a comprar en marzo de 2014 en la misma linea, se debe insertar cada suma de cada año en la columna y fila correspondiente. pero si pepito perez compro en el 2014 en fe…

Buenas, Agradecería por favor vuestra ayuda con la siguiente hoja de cálculo que adjunto, para crear una macro en VBA que haga lo detallado a continuación: - Seleccionar solo los valores de las columnas R, S, T que lleven la fórmula de multiplicar las columnas V * F (en el archivo se aprecia). - Copiar estos valores seleccionados a su fila análoga de las columnas J, K, L. - Inicializar a cero los valores en fila análogas de la columna V y X. Muchas gracias. Saludos. Libro1.rar

Buenas tardes, tengo un pequeño problema con esta Macro, y esta macro me permite generar un archivo nuevo ARCHIVO DESTINO, pero no lo está generando como debe ser, porque tanto el ARCHIVO ORIGEN como ARCHIVO DESTINO se quedan con los mismos datos. Y lo que necesito es que los datos del ARCHIVO ORIGEN se copie todo al ARCHIVO DESTINO, pero en el ARCHIVO ORIGEN solamente borrarse desde la Columna B8 hasta la Columna AO5000 (resaltado) ya que el resto no resaltado contiene formulas. Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que uno quiere. Agradezc…

Buenas noches: Tengo el siguiente macro que lo acomode a mi utilidad Sub Copiar_a_RecKardex() For Each Hoja In Worksheets If Hoja.Name <> "REC" Then 'Comprobamos antes si la hoja está entre las mencionadas en la columna R Dim qRangoR As Range 'Set qRangoR = Application.Intersect(Columns("P:P"), Hoja28.UsedRange) Set Origen = Range("P2") For Each cell In Origen If cell.Value = Hoja.Name Then 'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row …

Hola amigos por aca de nuevo pidiendo de su apoyo, ten mun userform donde tengo un ComboBox como buscador este funciona bien pero ahora quisiera que al seleccionar o buscar un articulo de la lista del ComboBox1 aparesca la imagen en un control Image1 la cual esta en una carpeta llamada imagenes donde esta el archivo, la imagenes tienen el nombre que aparece en textbox1 Private Sub ComboBox1_Change() If ComboBox1 <> "" Then TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox4 = Empty ComboBox2 = Empty End If Dim c As Range With Worksheets("Inventario").Range("B2:B1000000") Set c = .Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing…

Hola, tengo una consulta relacionada con la numeración de Botones. Al crear un Botón (al que luego asigno un Macro), este asume el nombre "Botón 1", el siguiente "Botón 2", etc ..... Por la estructura de de mi hoja, una macro borra estos botones y luego los vuelve a crear. El problema es que los nuevos botones tienen el nombre "Botón 3", "Botón 4", etc. Como esta operación la repito muchas veces, luego de un par de semanas, el nombre de los botones llega a "Botón 65536", etc., luego de esto, me arroja error, me imagino por que llegó a número máximo de botones. Existe alguna forma de "Resetear" o Limpiar esta numeración en algún momento, para …