Nola Buenos dias. Necesitaria vuestra ayuda, para poderme enviar un macro en respecto al fichero adjunto. Debo esfecteuar el recuento de unas votaciones. Y cada vez que cliceo con el raton en un boton bien determinado ,tengo que adicionar un voto en una celula bien determinada. Ejemplo: Cuando cliqueo en el grupo TW, me tendria que ir hacia las celulas que estan bajo esta nominacion en la hoja Resultados. Al siguiente paso, si cliqueo en el n° 1, me tendria que llevar aunas celulas bien especificas que esten situadas en el grupo TW y 1. Despues y para acabar si cliqueo sobre aceptar. tengo que adicionar un punto en la celula que he determinado aceptar del gsubgrupo …

Buenas días Primero me gustaría agradecer a la gente de este foro por toda la ayuda que proporcionan a la gente como yo que no se manejan muy bien con Excel pero que tienen ganas de mejorar. Aquí está mi problema y no sé como corregirlo: Me sale este mensaje: Se ha producido el error '1004' en tiempo de ejecucción No se puede asignar la propiedad Name de la calseFont Y cuando depura sale lo siguiente: Range("J301:P301").Select Selection.Copy Sheets("Mis recetas").Select Range("H2:N2").Select Range("H2").Activate Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveSheet.Paste Selection.PasteSpecia…

Hola Buen Día De nuevo yo haciendo preguntas. De ante mano quiero agradecer la amable colaboración que siempre me han brindado. Tengo el siguiente código Private Sub CommandButton1_Click() Worksheets("Hoja1").Select 'selecciona la hoja en la que se va a trabajar Range("A1").Select ' Selecciona la celda de la hoja que se va a modificar sobre esta se crea la nueva fila ActiveCell.FormulaR1C1 = TextBox1 ' a la celda seleccionada le escribe el valor de la caja de texto r1c1 lee o escribe valor Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox1.SetFocus End Sub Private Sub TextBox1_Change() Dim valorb As String, dato As St…

soy nuevo en el foro y cuento con conocimientos basicos de excel, necesito una macro que me permita importar datos de varios libros que son lista de precios de productos que tienen columnas de MARCA, CODIGO, DESCRIPCION Y PRECIO a un solo libro donde pueda realizar una consulta. desde ya muchas gracias.

Estimados Les pido me ayuden en lo siguiente: Necesito registrar cada cambio de distintos libros en una hoja especial para esto. Tengo una base de datos excel en Dropbox y somos tres personas que usamos los libros y necesito que que registrado cada cambio en una hoja o libro especial con los cambios. Gracias Da4754

Buen día Tengo una lista de prospectos, de los cuales tengo una fecha y una hora para llamarlos en un futuro, lo que quiero es que excel me emita una alerta cuando se cumplan estas dos condiciones. p.e. [TABLE=width: 500] [TR] [TD]Nombre del prospecto [/TD] [TD]Fecha para llamarlo [/TD] [TD]Hora para llamarlo [/TD] [/TR] [TR] [TD]Carlos Estrada Díaz [/TD] [TD]25 de Abril 2013 [/TD] [TD]03:00 p.m. [/TD] [/TR] [/TABLE] En base a estas premisas me mande una alerta por medio de un MsgBox, de antemano, muchas gracias. Saludos.

Hola gente del foro, de nuevo yo lo que pasa es que en la macro que ando haciendo quiero implementar un combobox (el codigo que tengo no me quiere dar y no me muestra los datos que están en la hoja que le indico los debe tomar). fuera de esto no sabría como hacer que en un listbox me muestre unos datos dependiendo del nombre en el combobox y que estos los pueda agregar a una columna en una hoja. les adjunto un ejemplo a ver que tal. De ante mano muchas gracias por la ayuda . :nevreness: PRUEBA MACRO - copia - copia.rar

Buenas soy nuevo en esto de la programación de vba en excel. Tengo un problema con un combobox y queria ver si me podrian ayudar. Necesito que un combobox se llene con la información de la columna A y otro combobox con la información de la columna B. Pero necesito que cada vez que se agregue información nueva en estas columnas esta aparezca en el combobox. Por eso no quiero usar el rowsource sino codigo. Tengo lo siguiente Private sub userform_initialize () Sheets ("variables").select Range ("A2").select While activecell <>"" Combobox1.additem activecell Activecell.offset (1, 0).select Wend End sub O tambien tengo Private sub userform_initialize () Sheet…

Hola estimados. Hace tiempo no participaba del foro, ahora me reintegro debido a que fui llamado para un nuevo trabajo (estuve cesante) y en éste me explicado que deberé aportar en el desarrollo y mejora de unas planillas de cálculo donde se llevan los indicadores KPI. Quisiera saber si ustedes tienen conocimiento de eso y específicamente si pueden ayudarme con alguna macro que me permita crear estos indicadores y automatizar al máximo su gestión. Desde ya, y como siempre, les agradezco mucho su buena disposición y ayuda. Mis respetos :tears_of_joy:

Hola compañeros, tengo una hoja a la que asigno una macro para que me guarde un rango de celdas en una carpeta determinada y con el nombre de un rango de celda. Todo eso me lo hace bien, pero se desconfigura y pierde todo el formato. Si me podeis indicar como solucionarlo estaria muy agradecido. Adjunto hoja tal y como quiero que me la guarde y tambien la macro que le asigno. Gracias macro guardar hoja.txt Libro4.rar

hola amigos tengo una pregunta que no se porque me causa confusion y espero ustedes me ayuden ¿como puedo hacer para que si una celda esta llena el checkbox esté checkeado y si esta vacia no lo este? gracias y saludos

Hola buen día. Tengo aquí un detalle para agregar una formula a una celda de excel mediante VBA. Agrego la formula Sub Botón16_Haga_clic_en() For i = 26 To 2381 If Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(11, AU) Or Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(14, AU) Or Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(18, AU) Then ||||||||sheets("Pin(mm)").cells(i,C) End Sub [/CODE] Ya tengo el for que me indica que celdas comparar para que en otra celda le iinserte la formula, entonces pongo un if para guardar algunos datos que necesito, despues del then viene el detalle, tenia pensando en poner algo asi [CODE]…

Buenos días foristas, uso una macro "pasa depósitos" para copiar un rango de datos ( V21:AH35 ) de la hoja "pol ing" e irlos acumulando en la hoja "depositos", solo que en el rango señalado hay formulas que si no cumple con requisitos las celdas se quedan en blanco, y al momento de irlas acumulando va dejando filas en blanco, me gustaría saber de que manera puedo corregir mi código evitando los espacios entre datos acumulados e irlos pegando debajo cada que los acumulo, anexo el archivo del que les comento, de antemano gracias. FORMATO COPIA DEPOSITOS.rar

Hola amigos! Necesito vuestra ayuda, he estado creando un pequeño programita para rellenar un formulario y que aparezca en un listbox y en la hoja de excel. El código lo he estado haciendo por mis pequeños conociemientos y buscando por internet. A ver si alguno con mas experiencia me puede ayudar. Tengo muchos problemas, pero os contaré poquito a poco: El primero, cuando relleno el formulario y doy a ingresar y pongo el nombre de una hoja que no existe, me crea la hoja con la cabecera pero sin los datos. Me podéis ayudar? Ando muy perdido. Muchisimas Gracias, para cualquier aclaración ya sabéis. Un saludo viiic Vic1804.xls

Excel 2010 se pone lentisimo al ejecutar macro Buenos dias, amigos. He creado una macro en Excel 2003 para imprimir en PDF tomando como nombre del archivo el valor de una celda (es un correlativo), la cual funcionaba maravillosamente, sin embargo, acá en el trabajo hicieron unos cambios y le instalaron a mi PC el Office 2010 y ahora en el nuevo excel (2010) trato de correr esta macro y se tarda muchisimo, incluso el programa deja de responder y despues de 10 a 15 min es que funciona la macro, quisiera saber por qué es esto y que me den alguna sugerencia o recomendación para resolver este problema. Nota: La macro con problemas es la que se ejecuta al presionar el boton …

Hola buenas tardes mi nombre es Victor M. es mi primera publicación, tengo tiempo buscando en temas anteriores un buscador pero los que encuentro no me ayudan y si existe me disculpo pero no lo encontré, tengo esta situación; Tengo una gran cantidad de datos alrededor de 12,000 actualmente lo realizo con una formula pero esto me hace lento ami macro busco la manera de buscar información dentro de un mismo libro en hojas diferentes con la diferencia de que necesito la información de una gran cantidad de datos sin UserForme, formulas, ni filtros avanzados ya los intente solo un buscador sencillo de información anexo el ejemplo espero que le sea mas claro lo que busco. G…

Hola como estaN, Camila desde argentina y estoy terminando, Pero me quede trabada y no puedo sacarla a flote El codigo es el siguiente Set RsBusq = .Columns("A2:Z2").Find(what:="cocacola", lookat:=xlWhole, LookIn:=xlValues) If Not RsBusq Is Nothing Then ROFO = RsBusq.Offset(0, 1).Value Necesito que encuentyre todas las palabras"cocacola...." y me copie sus respectivas columnas hacia la derecha, pero no me esta saliendo... Agradezco su ayuda!

Estimados Junto con saludar, solicito a Uds. la ayuda con una macro que me permita sacar dos informaciones desde una celda. Existe una celda en un archivo que tengo diariamente con las ventas de la empresa. En un campo viene la observación donde vienen dos datos que necesito sacar 1. Folio 2. Rut de Vendedor Frente a esto, he tratado de encontrar dos formas de lograr sacar el dato, con la formula Hallar y Reemplazar. El problema que se suscita es que existe a veces, un espacio de más y distintas variables de los espacio. He pensado que se podría buscar o hallar en una macro que me extraiga los valores conforme a dos criterios: a. Folio tiene 7 digitos XXXXXXX b. …

Estimados, Necesito una macro poder extraer los archivos de una carpeta especifica de Outlook a un directorio cualquiera C:/ por ejemplo. He buscado dentro del foro pero no he encontrado ninguna. Muchas gracias por su ayuda. Danie.

buenas tardes, quiero cargar un listbox dependiendo el valor de la celda, me funciona como lo hice pero queria saber si hay una forma mas resumida de hacerlo. asi es como lo hice Private Sub CommandButton1_Click() Range("a1").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = Range("c1").Value Or ActiveCell.Value = Range("c2").Value Or ActiveCell.Value = Range("c3").Value Then ListBox1.AddItem ActiveCell.Value End If ActiveCell.Offset(1, 0).Select Loop End Sub pero enves de eso me pregunto si se podra hacer de esta manera o algo parecido Private Sub CommandButton1_Click() Range("a1").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = Range…

hace poco me ayudaron con una busqueda nada mas que ahora necesito que si por ejemplo tengo en dos celdas juan perez garcia y pedro martinez perez al yo teclear en el textbox perez me arroje los dos nombres ya que hambos contienen lo que en el textbox se escribio y de paso creo que es igual pero que me busque en textos mas extensos palabras claves aunque no las escriba por completo ejemple si yo tengo en A1 este texto "el mejor amigo del hombre es el perro y el mejor amigo de la mujer es el gato", en otra A2 tengo "mi mejor amigo es juan" y en A3 "el tigre es el primo del leon que a su vez es primo del perro" si yo en un textbox escribo perro me debe de mostrar todo el c…

Tengo un archivo en excel tipico de ventas (ciudad, vendedor,ventas..etc) esta informacion esta en la hoja1 y quiero hacer una consulta desde visual basic tipo SQL (Select "Ciudad" from Ventas.xlsm where Ventas > 100). El recordset debera llegar a una hoja de excel del mismo libro (Ventas.xlsm) hoja2 Me pueden ayudar con el codigo de coneccion y si se requiere configurar el equipo para poder hacerlo. Envio Archivo .xls dado que la extension xlsm no pude subirla Gracias Ventas.xls

Buenos días. Necesito crear una hoja de resumen de un libro que a su vez se seguirán incorporando nuevas hojas para ir actualizando (la verdad soy nulo para macro, pero tengo muchas ganas de aprender) Estaré atento a sus comentarios.- adjunto archivo Sheet 1.xls

bueno tengo una macro con un InputBox que me permite copiar una hoja del libro de excel pero cuando la pongo a funcional y le doy cancelar entonces me muestra un error y al darle depurar me señala en amarillo este código (ActiveSheet.Name = UCase(nombre) ) y al igual me crea una hoja exactamente igual. [COLOR=#660066]Private[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]CommandButton2_Click[/COLOR]() [COLOR=#660066]Sheets[/COLOR]([COLOR=#008800]"TORTA ENVINADA COD. 100"[/COLOR]).[COLOR=#660066]Visible[/COLOR][COLOR=#000000] [/COLOR]=[COLOR=#000000] [/COLOR][COLOR=#000088]True[/COLOR] [COLOR=#660066]Application[/COLOR…

estimados compañeros del foro, si son tan amables de darme sugerencias con una macro,a la cual para mi gusto no le falta nada mas que al copiar a otra carpeta,esta no pierda el ancho de las columnas. esta es mi macro: Sub Salvar() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate nombre = Range("E4").Value Range("A1:K63").Copy Workbooks(otro).Activate Sheets(3).Select Range("a1").Select ActiveSheet.Paste ActiveWorkbook.SaveAs ruta & "\" & nombre ActiveWorkbook.Close False MsgBox "proceso terminado. El archivo se ha guardado en la carpeta: " & ruta &a…