Buenas tardes necesito de su apoyo con la siguiente situacion. Necesito una macro que me reconosca el mes actual para asi poder filtrar la columna "a" que esta en formato "20131001 añomesdia" a meses ateriores y elimiar los datos que esten en la columna "b", despues poderla filtrar a meses futuros y elimiar los datos que esten en la columna "c", tengo que hacer un reporte todos los dias y no quiero tener que establecer el mes manualmente en la macro. Les adjunto un ejemplo. Se los agradesco mucho de antemano. Saludos. EJEMPLO (2).zip

Buenas Tardes, Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar. Muchas gracias de ante mano. Sub enviar() Sheets("Envios_mail").Select ufila = Range("a" & Rows.Count).End(xlUp).Row For i = 1 To ufila If Cell…

Hola a todos quiero agradecerles lo excelente del foro y la gran ayuda que ofrecen a travez de su experiencia y los comentarios y aportes que dan. No soy muy experta en el manejo de copia y creación de hojas por medio de macros, he logrado solamente crear una copia en una hoja nueva, pero tambien pone las formulas y otros detalles que no deberian aparecer, tambien la hoja original de Datos no la logro ocultar de nuevo porque me da un error. Este es el macro que cree: Private Sub CopiaBaseDatos_Click() Sheets("Datos").Visible = xlSheetVisible ThisWorkbook.Worksheets("Datos").Copy Sheets("Datos").Visible = xlSheetVeryHidden End Sub [/CODE] Quisiera poder hacer…

Buenas, les escribo por que queria saber si alguno me podia ayudar con el siguiente problema: Tengo en una macros dentro de varias cosas q hace usar los datos de una hoja e ir a buscarlos en otra y en el lugar que lo encuentro pegar unos datos que se encuentran en la primera hoja con cierto criterio, me anda bien el programa pero el problema es que cuando el dato de la primera hoja no esta en la segunda no continua en el ciclo for y me manda a depurar, cuando utilizo la sentencia on error goto me pasa que se sale del ciclo for, lo que quiero es que si no lo encuentra siga dentro del ciclo for, el sistema de buscador es similar a este Cells.Find(What:=aux, After:=ActiveC…

Hola buenos días: Estoy intentando crear una macro que me emule la función buscarv. En el ejemplo existen 2 celdas (año y SMI), mi idea es que si metes un año mayor de 2002, la celda de SMI me devuelva el valor encontrado en una tabla adjunta. Actualmente esta ultima celda lo calcula con la función BUSCARV, pero querria hacerlo con una macro, ya que estaría dentro de un private sub, en el caso de que cambie la celda del año, al introducir el año, me busque el dato en la tabla. Espero haberme explicado bien. Muchas gracias BUSCAR EN CELDA.xls

Tengo un archivo quisiera generar una macro que me extraiga la información de las transacciones ordenadas en una hoja de excel y no encuentro la manera de solucionar ya que tiene varios emcabezados, Gracias por su ayuda adjunto archivo de ejemplo. 20131009_20131009.txt

Hola a todos, ¿Alguien sabe como se pueden recorrer los valores de los argumentos que se reciben en una función en VBA? Estoy aprendiendo a utilizar JavaScript desde el propio Excel con Script Lab y hay una sentencia que es "arguments.length" que te da el número de argumentos que recibe la función, y con un bucle puedes recorrerlos ya que a cada argumento se accede a través de un índice. arguments[1], arguments[2], etc. La verdad que no he visto nunca como hacer esto con VBA, si alguien tiene idea de cómo hacerlo, sería interesante aprenderlo (yo no lo he visto antes) Saludos.

Hola distinguidos expertos. Necesito su apoyo para completar con macros un programita para control de tarjetas de cobro. Se trata de “Copiar, buscar y pegar”. Estuve buscando en este foro algo parecido y me encontré con uno pero no he podido adaptarlo, me manda un error de compilación “La clave ME no es válido” y estoy tratando de aprender a armarlos aunque confieso ya he podido con otros códigos un poco sencillos. Es aquí que necesito su apoyo. A continuación trataré de resumir el código que requiero. 1- El contenido de las celdas “E3”, que es para consulta, es un folio de 4 dígitos y el de “D3” que corresponde al Status de ese folio, es una de 4 palabras (A…

hola a todos, me gustaría saber si hay alguna forma de pasar varios txt con datos, a 1 solo csv ó xls, pero que cada txt esté en una hoja diferente pero todo en el mismo libro........ Espero haberme explicado Gracias y un saludo

Hola a todos, tengo una macro que inserta imágenes la cual me funciona excelente, lo que hace es que en la columna B tengo el nombre de un modelo y si existe pone la imagen en la columna A que la jala de una carpeta y cuando no exista la imagen se salta a la que sigue. La duda que tengo es cómo decirle a la macro que cuando no exista la imagen no se salte a la que sigue sino que me ponga una imagen titulada "no hay imagen" que está dentro de la misma carpeta. Esta macro funciona con un On Error Resume Next. Cuál sería el código fuente para que en vez que se salte a la que sigue me ponga esa imagen llamada "no hay imagen"? Agradezco mucho su apoyo.

Buenas tardes, como siempre recurro a vosotros cuando no encuentro una salida, de antemano muchísimas gracias por atender mi petición. Bueno vamos a ello. Necesito hacer una macro que me ordene los datos de la hoja adjunta (columnas A y B) de manera que queden como esta en las columnas (F y G), en principio no es difícil ya que es un orden alfabético por la columna “B”. El problema es que los datos de la columna “B” provienen de una fórmula que busca los datos de “A” en otro libro y si lo encuentra nos devuelve los datos de la columna “B”. Cuando intento ordenarlos por la columna “B” como la formula hace referencia a la celda del mismo número en la columna “A” se estropea…

Hola a todos! Mi pregunta es si se puede enviar un nombre de usuario y contraseña a cualquier sitio web desde excel o solamente a ciertos sitios web. He estado buscando macros que hagan esta función y he encontrado unas pocas, el problema es que sólo una de ellas funciona en mi navegador y no lo hace para todos los sitios web. También he encontrado un link en el sitio web "eHow" donde ofrecen unas instrucciones para poder programarlo personalmente (Cómo enviar un nombre de usuario y contraseña a un sitio web con el Código VBA de Excel | eHow en Español) Yo lo he intentado pero no lo consigo. ¿Alguien podría ayudarme? He intentado programarlo para poder ingresar en el fo…

Buenas noches a todos, Necesito ayuda, estoy haciendo un excel en VB para hacer presupuestos y me quedado encallado en lo siguiente... Estoy metiendo unos CODIGOS, DESCRIPCIONES, CANTIDADES, PRECIO COSTE, MARGEN, PRECIO DE VENTA, ETC.. en un ListBox. Cada cierto tiempo he de ir sumando (Con un Boton) en otra fila el total hasta ese punto (TOTAL PARTIDA), luego sigo añadiendo artículos y le vuelvo a dar en añadir PARTIDA, pero no consigo sumar desde la ultima fila que ponia TOTAL PARTIDA hasta la ultima que añadi. OS adjunto una imagen para que os hagais una idea y el código. Gracias Un saludo. Private Sub CommandButton7_Click() Dim i As Byte, tot As Currency For …

estimados amigos me podrían apoyar con crear macros que mé, al capturar en la primera pagina al dar anexar actualizara la pagina gdo 1, dependiendo de la fecha de captura y del bloque que este trabajando. agradesco, su apoyo, inserto el archivo. calificaciones dd.xls

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos

Hola Estimados del foro , estoy buscando información y a la vez tratar de solucionar un inconveniente con mostrar una imagen donde detalle mi problema: tengo un formulario: (controles listbox,image)y una carpeta donde están todas las imagenes (miles de imagenes).,cuando yo selecciono en el listbox un codigo concatenado ejemplo ("200085-41257"), deseo que me muestre la imagen que esta alojada en la carpeta "imagenes2021" ,pero aqui viene el problema las imagenes que estan en la carpeta no tienen el mismo nombre del listbox la imagen se extrae de una web y viene de la siguiente forma : codigo+zona+fecha ejemplo "200085-41257-20210215.PNG" mi pregunta es como po…

Necesito completar una ficha en Excel pero utilizando un formulario de Visual. La ficha de Excel es : [ATTACH]35900.vB[/ATTACH] Lo que necesito es que la imagen se coloque en el espacio que quedó combinado entre las celdas A2 y A5, osea, necesito que la imagen quede de ese tamaño. En la parte del formulario de Visual he hecho esto: [ATTACH]35901.vB[/ATTACH] siendo el botón "Examinar" el CommandButton4 (la idea es que al apretarlo abra la base del disco de la computadora y me permita buscar una imagen y seleccionarla) y el botón "Ingresar y Continuar Fichando" el CommandButton1, que al apretarlo tendría que subir la imagen y ubicarla en el espacio antes mencionado, c…

Buenos días tengais Vereis, con esto de no poder tocar el documento mientras está activado el userform, me preguntaba si sabías de algún modo de poder recorrer un documento como la celda activa a través del userform. Aquí os dejo un ejemplo de como lo había pensado (Las ideas son bienvenidas) Había pensado poner un scrollbar dentro del userform y al clickar que la celda activa fuera bajando hasta el final del documento. Además de agregar dos botones para ir tanto al principio (Pone en el botón A1, asumiendo que el texco comienza en ese punto) y otro que apunte a la última fila ocupada. grácias por vuestra ayuda, saludos. Scroll.zip

Buenos días a todos. He creado un Excel y un formulario de visual basic para guardar datos diarios. Os explico, En la primera columna he puesto los datos que necesito (Temperatura, ph, cloro...) y en el resto de columnas las fechas (01/01/2020, 02/01/2020...) He creado el formulario de visual basic y lo tengo hasta que me lo guarda en la segunda columna (que sería, por ejemplo el 01/01/2020) Lo que necesito ahora y no consigo de ninguna forma, es que cuando vuelva a registrar otros datos me lo guarde en la siguiente fecha o en la fecha que yo quiera. Es decir, si añado un combobox en el formulario con todas las fechas, si selecciono 02/03/2020, por ej…

Hola Amigos: Quisiera saber su existe algun macro que auto ejecute otro macro contenido en un formulario cada 2 segundos y que se empieze a ajecutar al abrir el formulario, lo que pasa es que en este formulario tengo un textbox que necesito que se actualice cada 2 segundos para tener datos actualizados. saludos

Saludos amigos, acudo a solicitar su ayuda en lo siguiente: necesito una macro que tome un rango de celdas de una hoja y lo copie a otra siempre y cuando los valores de una columna sean mayores que 0 consegui un ejemplo en este foro que se adapta a eso https://www.ayudaexcel.com/foro/macros-programacion-vba-10/copiar-datos-mayor-cero-otra-hoja-19620/ sinembargo cuando corro la macro se detiene en esta linea: .AutoFilter 5, ">0" segun el post original todo funciona, pero haciendo yo exactamente lo mismo no logro que funcione utilizo excel 2010 gracias de antemano

Hola Buen día, necesito su ayuda En esta ocasion como dice el titulo quiero que de un valor en Textbox (previamente seleccionado de un listbox) se completen otros textbox en el mismo formulario, Necesito que se tomen los datos de una hoja determinada. Para despues pasarlo directamente a la hoja activa, bueno esto si se hacerlo, solo necesito que se completen los textbox Gracias completar textbox.rar

Hola, soy nuevo en la comunidad y tengo el siguiente problema: Genere algunos formularios con MsgBox en Office365 en Windows OS 10, estos mensajes me aparecen delante de formulario y se ejecutan sin problemas, pero al momento de ejecutar el mismo documento en OS MAC todos los MsgBox aparecen detrás del formulario y debo correr el formulario hacia un lado para seleccionar la acción y seguir. Aplique el vbMsgBoxSetForeground dentro de la sintaxis, pero aun así persiste el incidente y esto solo pasa en MAC. Ejemplo de una configuración. Private Sub SalirA_Click() Dim Pregunta As String Pregunta = MsgBox("¿Desea salir?", vbYesNo + vbQuestion + vbMsgBoxSe…

De antemano muchas gracias por la ayuda que me puedan prestar. Tengo una base de datos en una hoja en la que necesito repetir una fila cuando en ella aparezca una fecha determinada en una de las celdas que la componen (a la fila). El problema es que la fecha aparece en varias filas de la base de datos y lo que ocupo es que repita la fila cada vez y no que me copie solo la primera fila siempre. Ya logré hacer una macro para que cuando me aparezca por ejemplo el 10-10-2013 me inserte una fila en blanco pero no logro que me repita la fila cuando encuentre ese valor y la copie en esa linea en blanco (ya que como puse en el ejemplo los montos varian y las cuentas tambien), p…

Copiar rangos discontinuos solo si cumple 2 condiciones [ATTACH]40820.vB[/ATTACH][ATTACH]40821.vB[/ATTACH][ATTACH]40822.vB[/ATTACH]Buenas tardes mis estimados: Edito mi mensaje porque creo que hice una historia, además de que solo me gustaría me orientaran, Me podrían orientar si se puede copiar rangos discontinuos de la hoja1 (acumulado) a hoja2(reportes) y que cumplan dos condiciones: 1.- con un InputBox copiar solo lo que sean Elektra y 2.- si se puede otro InputBox y con ello elegir el año y solo copiar los registros de ese año, la fecha que tomo para hacer el filtro es del titulo “REG_fechahora”. Mis títulos no son los mismos pero los relaciono en un archi…