If Mid(ComboBox1.Value, 1, 1) = "B" Or Mid(ComboBox1.Value, 9, 1) = "B" ThenTipo = 2ElseTipo = 1End IfAncho = Mid(ListBox1.Value, 1, 3)If Mid(ListBox1, 18, 1) = "u" ThenEspesor = Mid(ListBox1.Value, 16, 2)ElseEspesor = Mid(ListBox1.Value, 16, 3)End IfDim importacion As Variant, Proveedorproducto As Variantimportacion = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:J102"), 3, False)Proveedorproducto = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:F102"), 6, False)If IsError(importacion) = False ThenCells(n, 7).SelectActiveCell.FormulaR1C1 = TextBox7.Value & importacion & Proveedorprod…

Hola!! cómo están? necesito de su ayuda, quiero copiar datos de una columna de una tabla dinámica y pegarlos automáticamente en otra hoja. Adjunto excel, quiero copiar la columna AG a partir de la fila 2 y pegarla en la hoja2 a partir de A2. Desde ya mil gracias PayrollFuncionarios prueba.rar

Hola colegas, buenas tardes. Espero se encuentren bien de salud. Tengo un pequeño Proyecto donde trabajo las Ordenes de Servicios y necesito en el FrmEquipamiento, cuando agregue un nuevo registro poder insertarle una foto de ese equipo, o sea, en el ejemplo, en el registro 2 tengo Nevera Vertical y necesito agregar una foto de dicha nevera. Realmente no lo he hecho antes y necesito de su ayuda. Adjunto el Proyecto. De antemano gracias. Un saludo Pino Ordenes v1.0.0.xlsm

Hola! Soy nueva en este foro, así que espero estar haciendo esto bien...Me surge una duda al programar una lista para elegir varios valores. Tengo la lista, la elección de valores y todo parece ok, pero me surge el problema al querer mover el rango a uno en concreto y no dejarlo en la primera columna... Quisiera que mi rango estuviera definido por ejemplo entre D7:D20 y si puedo hacerlo en otra pestaña, mejor, alguien me puede ayudar? He puesto esto: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 3 Or Target.Row = 2 Then Exit Sub Else Form1 End If Cancel = True End Sub

Hola buen día. Disculpen tengo un problema, lo eh intentado resolver con fórmulas pero las verdad no eh podido, se ve muy mal con fórmulas, lo que quiero hacer es que la hoja llamada "Basa de datos", me pase los datos a la hoja llamada "Pagos realizados", pero solo me pase las celdas que están en color verde en la hoja "Base de datos", que me pasara solo el Nombre, Fecha, Seudonimo, Producto, Método o Forma de pago, Costo de Producto y Costo de envió. La verdad ya no se como hacerlo con macro, ojala me puedan orientar un poco, gracias por su ayuda. Saludos. Control Perfecto prueba 3.11.rar

Hola Chicos: Hace una semana expuse en el foro de Excel General el tema Extracción y ordenamiento de datos en hojas vinculadas. Averiguando y tomando ejemplos, desarrolle con formulas una aplicación e hice funcionar en mi trabajo y fue un rotundo fracaso porque pone muy lenta la computadora, creo que muchas formulas complica el cuadro donde registro los pedidos. Se ingresan casi 10000 registros al mes. Necesito otra alternativa y es el uso de Macros. El caso es: tengo 02 hojas, en la primera hoja se registran los pedidos de acuerdo a la fecha, orden, tipo, colaborador, sites, etc, y en la segunda, es una hoja Resumen de la hoja anterior, esta hoja me sirve porque realiz…

Buenos dias. les saludo desde monterrey nuevo leon mexico. tengo un detallito con una macro que hice, no soy avanzado en este tema. manejo ciertos reportes de la empresa donde trabajo, mismos que me dan informacion sobre las sucursales que tengan pendientes, dicha macro hace todo ese asunto, una vez teniendo el reporte, lo exporto a excel, identifica que sucursal tiene el pendiente, busca en una tabla y en base a esos valores se les envia un correo en automatico adjuntando el archivo generado con sus pendientes, todo hasta ahi funciona sin mayor problema. El problema comienza aqui....necesito que en el cuerpo del correo en lineas intermedias muesttre una imagen como "…

Saludos Tengo un gráfico de barras simple, que muestra las ventas por mes, para el año en curso y el anterior. El gráfico está hecho en excel tomando un rango de celdas. Los valores de las celdas los cambio con vba. Adjunto imagen Mi consulta es como puedo, usando vba referenciar las leyendas, para cambiarlas por los años, donde lo que aparece como serie uno debería ser el año anterior y serie 2 el año en curso. Otra cosa. Tampoco se como obtener el nombre del gráfico. Espero que se entienda la pregunta.

Estimado foro, Me dirijo a ustedes con la siguiente cuestión que me tiene retenido en el proyecto final de carrera. Tengo un base de datos con el formato que se muestra en el archivo adjunto, la base de datos va del año 2004 al 2017, en cada libro se encuentran los datos mensuales de cada año. Lo que me gustaría seria crear un código que me hiciera lo siguiente: -Ordenara las fechas de todos los ficheros en orden ascendente en vez de descendente -Eliminara algunas columnas de todos los libros -Introdujera una columna en cada libro con un código que le marcaría yo (NGF04, NGG04,....NGZ05, NGF05..) Una vez tuviera este tratamiento de datos me gustaría copiar cada lib…

Hola, Tengo una dificultad con un libro llamado Presupuesto de obras, el cual tiene barias hojas llamadas APU, donde se describen el Análisis de precios Unitarios de cada Item o Actividad, en este aparecen cantidades de materiales por unidad, la idea es que mediante una función o macro, calcule los valores de las celdas Cantidad/rend X cantidad del item y luego muestre el resultado total en la tabla Materiales, mas detalles en el Libro anexo en la actualidad, en la tabla materiales hace el proceso pero al verificar la operación manual no da coincide con el resultado del macro, si por favor me pueden ayudar a corregirlo. Gracias Presupuesto de Obra 2.zip

buenas noches consejeros de macros vuelvo a necesitar ayuda, es posible cargar un formulario con listbox con datos de una hoja oculta he estado buscando pero no encuentro el código de antemano muchas gracias por la ayuda PRUEBA4.1.xlsm

Lo que quiero lograr con el codigo es poder sumar los datos de una celda con los de mi formulario. Aunque ya logre que se sumaran, esto es solo en la celda No. 3 y no se me ocurre una forma en la que pueda abarcar todas las celdas. Asi que muchas gracias por la ayuda y este es el codigo que eh estado utilizando: Dim fila As Integer Dim final As Integer For fila = 3 To 1000 Dim suma As Integer Dim i As Integer i = TextBox7.Value 'Range esta localizado en el primer codigo por lo tanto va a sumar con los datos de esa celda suma = Hoja3.Range("E" & 3).Value If Hoja5.cells(fila, 1) = "" Then final = fila Exit For End If Next If MsgB…

Hola amigos, trabajo normalmente con grandes ficheros de datos de federados y me van actualizando los excel cada semana, pero en vez de ponerme solo los datos nuevos incluyen todos desde inicio junto con los nuevos federados. Necesito comparar los datos de dos hojas y que en una tercera me saque solamente los diferentes que son con los que trabajaria tengo conocimientos muy basicos de excel, pero bueno estoy en ello, jejeje. Cualquier ayuda os lo agradezco saludos

Macro para Rerporte Buenas tardes caballeros tengo algo pendiente ya que soy nuevo en este foro necesitaba saber como podria hacer un reporte de mi hoja consolidado mensual llenare datos ahi como figuran pero queria que en la hoja de extraer reporte con el boton reporte me bote el reporte de las fechas que ponga en las celdas d4 ya que no se mucho de excel espero su ayuda y estare muy cordial agradecido con su ayuda muchas gracias y bendiciones Acabo de subir un ejmplo del cual saque la idea pero este trabaja poniendo un codigo y sale todo los datos que tengan ese codigo Data.xls eJEM.xls

Buenas tardes tengan todos ustedes, sin encontrar una solución a mi problema hoy acudo a su apoyo. Tengo el siguiente código que me ayuda a seleccionar varios elementos de una lista desplegable: Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer Dim xRgVal As Range Dim xStrNew As String Dim xStrOld As String Dim xFlag As Boolean Dim xArr Select Case Target.Column Case 7 On Error Resume Next Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation) If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub If Intersect(Target, xRgVal) Is Nothing Then Exit Sub Application.EnableEvents = False xFla…

Buenas tardes, me gustaría ver como podria hacer una macro en la que bloquee y desbloquee varias hojas (por ejemplo 3) con una clave que yo ponga (por ejemplo "pepito", la misma para todas las hojas bloqueadas). Nada más, un saludo y seguid asi.

Estimados, Tengo un excel y una base de datos access, quiero sin utilizar formulario, solo con las referencias en las celdas, poder modificar un registro en mi base de datos acces. La idea es que busque el ID del registro y modifique el estado de "pendiente" a "terminado" pero no lo he podido hacer. Agradezco puedan ayudarme. Saludos!

Cree un formulario el cual asocie a una macro para que la informacion se gurde en otra hoja, el detalle es que simpre se guarda enla misma linea borrando la informacion que anteriormente estaba ahi, no se como hacer para que la informacion se inserte en el siiguiente reglon. No puedo adjuntar el archivo asi que pondre el codigo de la macro. Este es el codigo de la macro Sub guardar() ' ' guardar Macro ' para guardar datos ' ' Application.ScreenUpdating = False Sheets("Informe").Select Range("A3:K7").Select Selection.ClearContents Range("A4").Select Sheets("Formulario").Select Range("C5").Select Selection.Copy Sheets("Informe").Select …

Buenas nuevamente por este lugar, tengo un problema en la programación de VBS de Excel; el problema es el siguiente: Tengo 6 hojas: EV1_1 (1er trimestre) EV1_2 (2do trimestre) EV1_3 (3er trimestre) --------------------------------- OBS1_1 (1er trimestre) OBS1_2 (2do trimestre) OBS1_3 (3er trimestre) Al momento de registrar observaciones en la hoja EV1_1 buscándolo con el número de la lista automáticamente me captura el nombre del estudiante tendría que agregarse en la hoja OBS1_1, las observaciones que escribí en EV1_1 con el número que tiene el estudiante en la lista, la fecha de registro y el nombre más, cada que registre se …

Hola a todos y todas. Lo primero, gracias de nuevo a todos y todas. Me estáis ayudando un montón. Os cuento. Tengo una hoja prácticamente lista para introducir datos. Todo está preparado (o casi todo ), pero cuando comienzo a trabajar con ella me dí cuenta de una dificultad. Los datos son numéricos (por tanto utilizaré el teclado numérico de la "derecha"), y cuando quiero pasar a la celda siguiente, cuando pulso intro, lo que hace Excel es desplazarme a la celda de abajo en vez de a la de la derecha +1 (la adyacente estará bloqueada para que no se cambien las fórmulas). Probé hacerlo en opciones de excel/avanzadas/desplazamiento de la tecla ENTER y funciona, pero s…

hola gente este es mi primer post tengo un cuaderno de trabajo de 15 etiquetas, cada uno es un alumno de un curso. cada curso cambian los nombres de los alumnos. el cuaderno tiene en su primera etiqueta los datos de los alumnos ( nombre, apellido, documentos, etc) mi problemas es que cada vez que empieza un curso nuevo, ( cada semana) me paso el tiempo, cambiando manualmente el nombre de cada etiqueta por el de cada alumno. se que hay una posibilidad de cambiar ( macro) los nombres de acuerdo a la tabla de la primera etiqueta. el problema es que no se hacerlo :uncomfortableness: agradezco de antemano cualquier ayuda gracias

buenos dias amigos del foro nuevamente recurro a ustedes tengo un macro que aporto el maestro Gerson Pineda y que hemos estado adaptando a mi necesidades con ayuda de mi amigo Pajuma, el macro corre perfecto , el problema que tengo ahora es que cuando carga los datos del listbox y lo mando a imprimir lo pasa en otra hoja y necesito que me haga la suma de lo que manda y cambie los encabezados a las letras color amarrillo y el fondo en azul, este es el codigo que utilizo, adjunto el archivo Private Sub CommandButton5_Click() Worksheets.Add Cells.Select Selection.ClearContents With Range("A65536").End(xlUp) Dim fila As Integer For fila = 0 To ListBox1.ListCount…

Hola, necesito me ayuden con un macro. Tengo que sacar un hoja con datos semanalmente y guardar el histórico de esos datos que provienen de una exportación. Por ejemplo, pego los datos de la semana 27 en Hoja(datos) y en la Hoja(Resultado) en A1 pongo que la semana es 27, entonces en esa hoja se calculan un montón de formulas. Necesito un boton que cuando yo pegue los datos de la semana 27, copie ciertas celdas de semana 27 en hoja(resultado) en la hoja(histórico)debajo de la celda S27(no sé cual es) y al ser 3 datos en concreto, debe copiarlos en vertical. Los datos a copiar son siempre los mismo, por ello podría arbitrariamente copiarlos con el macro cell.range("X).co…

Buenos dias, tengo un problema, tengo una macro que va modificando una formula, es decir, le cambia primero la carpeta en la que busca, y luego le tiene que cambiar el mes en el nombre del archivo, pero sucede que al hacer esto, me pide actulizar valores, porque claro, logicamente no encuentra el archivo mientras esta cambiando la formula, y tengo q estar apretando ESC para seguir, siendo muchos datos (hospitales) A traves de que sentencia puedo sacar esto de "Actualizar valores" Por algun problema no me deja adjuntar el archivo, si alguien ya se da cuenta a que me refiero, gracias Intentare adjuntar el archivo Muchas Gracias.- Saludos.-!!

Hola amigos, espero se encuentren bien, quiero comentarles que acabo de realizar un pequeño archivo donde en una hoja tengo una tabla (pudiendo contener mas de 10,000 registros) que deseo imprimir en etiquetas, es un registro por etiqueta, para lo cuál usé la función CICLO FOR en vba y generar así la impresión. Mi impresora actual es una TSC ttp244pro, según lo que sé es que esta impresora no tiene mucha capacidad de memoria para guardar o para imprimir, por lo que las impresiones salen lentas. Me gustaría saber si alguien sabe como mejorar la macros para que pueda imprimir más rápido ya que en la cola de impresión un trabajo por etiqueta, no sé si exista forma…