Macros y programación VBA

Buenas Tardes, Me canse buscar y si me podrían ayudar con las macros que se necesiten para generar los 02 reportes que estoy necesitando en las pestañas de color amarillo como ejemplo así los quiero y la base de datos de lectura es la pestaña movimiento. Y a la espera de sus colaboraciones y ademas permitirme felicitarlos por la web y sus colaboradores que he encontrado herramientas que me ayudan con mi trabajo. Saludos Roger Inventario Permamente Valorizado.zip

Buenas Tardes: He realizado una macro en la cual realiza un filtrado de una lista, lo que no puedo resolver es que una vez filtrado el valor se resalte en forma permanente. Lo que seria parecido a buscar y resaltar.- Desde ya muchas Gracias Copia de MOTOROLA NEGRO Y BLANCO STOCK1.rar

Buenas, es mi primer post y bueno me voy adentrando a la programación en excel. tengo una duda es que yo tengo un archivo en el cual aplico este codigo para borrar una columna y una fila innecesaria ya que yo solo necesito los datos para despues subirlo aun servidor sql.. Sub prueba() ' ' 'prueba ' ' Rows("1:1").Select Selection.Delete shift:=x1UP Columns("A:A").Select Selection.Delete shift:=x1toleft Selection.NumberFormat = "yyyy-mm-dd;@" End Sub [/CODE] el problema es que en la tabla la columna "A" hace el cambio de formato pero para que se vea visible debo darle "f2+enter" y asi consecutivamente hasta que se actualize todos los campos y hablamos de …

Hola amigos de ayuda excel, necesito su ayuda con un tema que puede resultar simple pero que no e podido encontrar solucion. Tengo un problema al hacer una seleccion en un combo de una pagina web a traves de una macro de excel, el problema de este combo es que posee un onchange para cargar el segundo combobox. el codigo que utilizo funciona correctamente con los text pero e buscado de distintas formas y no e podido que me carge el segundo combox. Set ie = CreateObject("InternetExplorer.application") ie.Visible = True ie.Navigate ("https://www.paginaweb.com") Do If ie.ReadyState = 4 Then ie.Visible = True …

Buenas a todos, he estado buscando por el foro, y no encuentro o no se encontrar nada referente a lo que quiero hacer. Mi idea es que al ejecutar el macro, me envíe un mail con 2 rangos de diferentes hojas en el cuerpo del mail, visualizando todos los elementos que hay dentro de esos rangos, por ejemplo fotos, colores, etc. En un principio he encontrado la solución de un solo rango gracias a los códigos de "Ron de Bruin", pero no consigo que me mande 2 rangos en el cuerpo. El código de " Ron de Bruin" es este: Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope() Dim AWorksheet As Worksheet Dim Sendrng As Range Dim rng As Range On Error GoTo Stop…

Estimados, Necesito poder ir alimentando una base de datos copiando datos desde una pestaña "editador" hacia Base_vigencia, pero a la ultima celda en blanco que seria en la base que adjunto la A19:L19. Si fuera posible también arreglar una macro que realice que limpia los datos del cuadro de los espació, pero no que no borre los datos de espacio de la celda "C4" Otra consulta, como llegan a aprender a programar macros tan geniales de forma autodidacta??? Vigencias_Matriculas.rar

hola les explico mi situacion, hice un formulario de captura de datos, pero en mi trabajo me pusieron trabas para poderlo implementar dado que piensan que se vuelve un cuello de botella a la hora de que 30 usuarios quieren usar la misma computadora, muchos de ellos para adelantar su trabajo lo realizan primeramente en su maquina y despues llegan al libro de captura y solo copian y pegan los datos, yo considero que cuando hacen eso tambien copian las alteraciones que pudiera tener sus archivos de excel; como no podemos contar todavia con un sistema mas versatil se esta usando excel de mientras lo implementan: quise salvaguuardar un "poco" la informacion con respecto a los…

buenas alquien que me pueda ayudar , necesito bloquear un rango de celdas con una casilla de verificacion o al cerrar excel gracias

Hola buenos días tengo un archivo el necesito que me valide los datos cuando copio desde otro archivo pero no lo esta haciendo me explico en la hoja del archivo original tengo el siguiente código, que me valida que no se inserten letras en la columna A y H y que no se inserten números en las columnas B;C,D,E,F el código me funciona cuando dígito pero si pego desde otro archivo por ejemplo letras al campo cedula no me funciona, me podrías ayudar que me hace falta por favor o si quieres te mando el archivo al correo, muchas gracias por tu ayuda. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A, H:H")) Is Nothing Then For Each cel …

Hola: Tengo un formulario en una hoja excel 2007 y quisiera que en algunas celdas cuando termine de escribir automáticamente pase a formato Nombre Propio, encontré en este mismo foro el siguiente código pero no logro hacer que sea solo para las celdas B2 y B4, en la hija1: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = Empty Then Exit Sub If Target.Column = 6 Or Target.Column = 19 Or Target.Column = 23 Then Target = UCase(Target) If InStr("B2$,B4$", Left(Target.Address(, False), 2)) Then _ Target = Application.WorksheetFunction.Proper(Target) End Sub Muy agradecido de ant…

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 …

hola como puedo hacer para que al presionar un boton me sume ejemplo: la celda D1:E1 y me la guarde en la celda F1 y si ingreso nuevos valores a las celdas d y e me las sume con un for aqui mi codigo : suma= WorksheetFunction.sum(Range("D1:E1")) Worksheets("Hoja1").Range("F1") =suma donde hace la suma pero la quiero para mas celdas sin repetir el codigo ya que quiero sumar mas de 100 celdas saludos y gracias

Buenas tardes. Les comento lo siguiente: Tengo un formulario en el cual agregue un control SpreadSheet 11 para ver un excel, el problema es el siguiente: Cuando abro el libro que contiene este control me despliega una ventana donde dice: "Esta aplicacion va a iniciar controles ActiveX que puede que no sean seguros. Si confia en el origen de este archivo, haga clic en aceptar y los controles se inicializaran utilizando la configuracion actual del area de trabajo." Alguien sabe como omitir esta ventana al abrir el libro o ejecutar la macro? Gracias y quedo en espera de su respuesta. Saludos!!!

Muy buenas a tod@s quisiera realizar una liga en la cual me permita determinar a parte del numero de jugadores el numero de partidas que se ha de jugar para clasificar. buscando por el foro he encontrado una de Bigpetroman, que se ajusta bastante a lo que necesito pero no soy capaz de poder hacer para que indicándole el numero de rondas que quiero que se jueguen me realice un sorteo aleatorio y sin repetición en la hoja SORTEO. Espero su ayuda y muchas gracias de antemano. TORNEO LIGA.rar

Hola, ante todo me presento, es mi primer mensaje He descubierto este foro al buscar cómo hacer una búsqueda en varios archivos de excel a la vez y he descargado la solución de logroastur en este hilo. Funciona perfecto, pero no se adapta del todo a lo que yo necesito y no sé nada de VisualBasic. He estado indagando en el código y en Internet y creo que sé qué linea habría que cambiar, pero no sé cómo, a ver si podéis echarme una manita El problema está en que tengo tres archivos. En todos ellos hay, en la columna A un nombre (dato a buscar), pero en cada uno de ellos hay diferente información que quiero mostrar: Primer archivo: Datos en columnas A y K. Segund…

Buen Día Tengo 5 archivos de excel con infromación diferente pero tienen en común la información de diferentes escuelas ej. Escuela 001, Escuela 002 etc. Podría hacer una macro en la cual de los 5 archivos de excel, en una hoja nueva de excel si yo pongo escuela 001 me salga toda la información de la escuela que esta contenida en los 5 archivos de excel ?? Gracias

Buenos días A todos Hice esta hoja pequeña macro para elaboración de cheques en una impresora epson L220 normal la intención de esta es para no hacer los cheques manuales si no en una impresora cualquiera, como verán en la macro esta una hoja que se llama cheque si le dan imprimir se emprime únicamente la información del cheque y si le dan generar hace una copia del cheque asignando como nombre el numero de cheque en referencia ahora si se posicionan en la nueva copia que se genera para vaucher y le dan imprimir imprime todo el vaucher hasta aquí esta bien pero lo que deseo es que me ayuden hacerle cambios, en la macro esta la hoja 1 esta la información de algunas…

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Hola Compañeros. He realizado búsquedas pero no doy con la propiedad que me permita lo siguiente. Tengo un Userform con 2 ComboBox (uno pide un número y el otro el usuario asociado a ese número) y un Button (Aceptar). Me gustaría que al seleccionar el número del ComboBox 1 se mostrara automáticamente el usuario en el ComboBox 2. Lo he intentado con Additem, pero lo que consigo es que se agregue nuevamente el usuario a la lista, lo que querría es que lo muestre en el ComboBox. ¿Con qué propiedad podría hacer esto? Agradezco su ayuda de antemano, gracias.

Buena Tarde Tengo una macro en la que tengo algunas variables, una de ellas string pero es para recorrer las celdas, la inicializo con E, la siguiente debe ser F, G, H, I asi consecutivo para que realice una suma al avanzar en la macro de cada una de las celdas, corriendo el filtro, pero esta variable no he podido, hacer que pueda decirle next y sea la siguiente letra del alafabeto, como podria hacer esto ? Gracias Esta es la macro Dim n&, cCriterio$, H&, LE As String j = 5 LE = "E" For H = 5 To 10 For n = j To 19 If n = j Then cCriterio = "<>0" Else cCr…

Buenas tardes, Estoy a punto de finalizar el proyecto y tengo 2 pequeñas problemas que nos soy capaz de resolverlos. Os comento: 1ª - No consigo de evitar el parpadeo en la hoja "LISTADO" aun que para evitar el parpadeo debo de poner: Application.ScreenUpdating = False y al final Application.ScreenUpdating = True. 2º - Al ejecutar la macro introduciendo la fecha en la celda "K3" me tien que devolver los totale en la ultima fila como en la imagen adjunta. Adjunto el documento Muchas gracias por vuestra ayuda y perdonarme por ser pesado.. Saludios, Jose BREAKFAST LIST - evitar parpadeo y alinear suma total en fila unica - cop…

Hola cracks! Saben si es posible ajustar el tamaño de una tabla por macro, lo que pasa es que estoy haciendo un proyecto donde se agregan eventualmente nuevas filas o se cambia por completo las dimensiones y quisiera que la tabla tomara todos los nuevos datos al correr la macro y no solo los valores fijos con los que inicialmente se definió la tabla. Les dejó mi archivo en el que es un caso donde la tabla solo considera las filas de su tamaño inicial pero no las ultimas filas.Ajustar_DimensionesTABLA.xlsm

Buenos días a todos, explico brevemente mi problema: Estoy intentando copiar las datos (solo los datos) de una celda (que contiene una fórmula Condicional) concreta de la Hoja "Tesorería" y pegarlo como un valor en la Hoja "Saldos Banco" en una celda concreta. No se exactamente cual es el código que hay que poner para hacerlo, paso el código de la macro a ver si me podéis ayudar con el problema. Sub CopiarDiciembre2021() 'Desactivar eventos pantalla Application.ScreenUpdating = False 'Importe INGRESO (Pagos BANCO) '.... Sheets("Tesorería").Activate '.... i = 8 'comienzo el bucle For i = 8 To 8 'compruebo que el valor…

Buenas tardes, de nuevo por aquí pidiendo ayuda ?‍♂️ . Espero que se encuentren bien. He buscado como hacer para crear codigos qr desde el valor de una celda y he encontrado un codigo, pero no me funciona. Adjunto el fichero que tengo con el código. El error salta en la línea Set QR = ActiveSheet.Pictures.Insert(Ruta) ¿Cómo podría solucioanr este error.? Gracias de antemano. Un cordial saludo. QR Excel.xlsm

Buenas tardes grupo Recuro a usted a ver si alguno me puede ayudar con un problema que tengo. Tengo mi configuración regional en español (los campos numericos el searador de desimales esta con una coma "," ). el problema surge cuando quiero enviar datos al SQL que esta en ingles que el separador de desimales esta con un punto "." llevo semanas intentando con varias alternativas y ninguna me funciona todas dan error [microsoft][ODBC SQL Server Driver][SQL Server]error converting data type varchar to numeric Algunas de las alternativas que he probado son las siguientes. Sql = Sql & "'" & Format(ActiveCell.Offset(0, 8), "[en-US]…