Macros y programación VBA
Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?
8680 temas en este foro
-
Macro para copiar hojas con checkbox a un nuevo libro Hola a todos!! Ojala me pudieran ayudar con esta macro ya que no se como activar los checkbox, les explico un poco. En esta macro tengo 11 hojas con diferente nombre cada una y en una hoja coloque 11 checkbox los cuales necesito que al seleccionar esos checkbox y picar un botón detecte cuales fueron palomeados para copiar solamente esas hojas a un nuevo libro. Hasta ahora lo que tengo es esto: If CheckBox1_Click = True Then Sheets("Hoja1").Select If CheckBox3_Click = True Then Sheets("Hoja2").Select If CheckBox4_Click = True Then Sheets("Hoja3").Select......... If CheckBox5_Click = True Then Sheets("Hoja11").Se…
-
0
Reacciones de usuarios
- 0 respuestas
- 1.6k visitas
-
-
Hola Foro nuevamente para pedir una orientacion, ayuda..... Deseo copiar los datos de la Hoja Datos a la Hoja Formato, actualmente lo realizo por medio de formulas pero es un rompecoco cuando los datos inician aumentar (Cantidad de Datos a Grabar) La idea es copiar los datos de las columnas que estan de color rojo como ID, NOMBRE APELLIDO, DNI, LUGAR DE NACIMIENTO, EMPRESA, y todos los ARTICULOS a la hoja Formato, respetando los articulos y sus medidas (Kilos, Unidades, litros, Metros etc, etc) Nota: cada articulo tiene sus propias medidas ver hoja excel guia. Como siempre muy agradecido por la colaboracion buen dia gracias. Espero haberme explicado EN…
-
0
Reacciones de usuarios
- 8 respuestas
- 1.6k visitas
-
-
Hola a todos, Tengo un problema… Estoy usando una macro directamente sobre un libro, hago debleclick (dc) sobre la hoja en determinadas celdas y dispara un modulo. El problema, es que ahora hago dc sobro las celdas y no las edita de manera normal, a que llamo normal, a que cuando haces dc aparece el cursor sobre la formula o texto de la celda. Que es lo que hace, me deja seleccionar y si escribo escribe, pero no me deja entrar en la celda, soy claro?? Les paso el código (sin el modulo), como para que vean a que me refiero… [INDENT]Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If ActiveCell.Colum…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
Buenos Dias. en una columna tengo los años del 2008 al 2013 y en otra tengo los meses de enero a diciembre, cada año con sus respectivos 12 meses. necesito una macro que me muestre todas las filas del año movil, un ejemplo: si escojo febrero del 2008 la macro tendra que mostrarme todas las filas hasta enero de 2009. la idea es que escoja el año y el mes y automaticamente me muestre las filas del año movil gracias
-
0
Reacciones de usuarios
- 0 respuestas
- 1.6k visitas
-
-
Hola a todos, mi nombre es Maurizio y mi problema es este: De ahora en adelante afirmo que este proyecto no debería de ninguna manera; Implicar el uso de la hoja de Excel Pero solo con su forma de usuario Habiendo dicho eso: comenzaría diciendo que dentro de mi formulario de usuario ingresé: 1) imagen 1) Botón de comando 1) cuadro combinado y finalmente una etiqueta Ahora, el propósito de este proyecto sería hacer que uno de los dos enlaces que pertenecen a tantas imágenes tomadas de una página web lleguen al interior (Label3) Pero por conveniencia he insertado los dos enlaces dentro de uno (cuadro combinado) Por otra parte, desde el progra…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
- 1 seguidor
-
-
Necesito ayuda ******* con este tema, ¿Alguien puede ayudarme ? Gracias x adelantado Adjunto un archivo zip con un formulario vba basico para enviar mail desde excel desde mi cuenta de gmail. En el botón "enviar" del formulario no sé como modificar el codigo de la macro para insertar una línea de código para permitir que se vinculen archivos adjuntos para enviar archivos adjuntos. La idea es utilizarlo desde excel, no de otros programas predeterminados como outlook (no sé si esto es posible) Con la macro actual sólo puedo enviar mails sencillos ¿Alguien puede ayudarme? Gracias por adelantado. Borja enviar email.zip
-
0
Reacciones de usuarios
- 0 respuestas
- 1.6k visitas
-
-
Hola, espero que me puedan ayudar porque no se como hacerlo y no se mucho sobre el tema. Tengo una celda con un userforms que contienen un combobox para seleccionar de una lista el CLIENTE. En otra parte de la misma hoja ("Factura"), tengo otro Userforms con combobox para seleccionar el PRODUCTO. Tanto los clientes como los productos vienen de diferentes hojas (CLIENTES y PRODUCTOS). Lo que necesito es que en la hoja "Factura" al momento de ingresar el nombre del Cliente, se me filtren en el combobox de los PRODUCTOS los valores de lo productos (valga la redundancia) que correspondan a ese Cliente ya seleccionado. Adjunto el fichero. Les agra…
-
0
Reacciones de usuarios
- 4 respuestas
- 1.6k visitas
-
-
Hola grupo recurro a ustedes para la ayuda para completar un Macro Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS. Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema" Else Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado" Me funciona bien cuando solo solo requiero ingresar un registro igual en cedula, cuando debo registrar más datos me…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
Necesito consolidar 128 archivos al mes en una sola hoja de excel, me conseguí una macro, en donde me copia toda la tabla que necesito, que es la siguiente: -->Sub ponernombre() 'Por.DAM Set l1 = ThisWorkbook Set h1 = l1.Sheets("concentrado") h1.Cells.Clear Application.ScreenUpdating = False Set nav = CreateObject("shell.application") carp = nav.browseforfolder(0, "SELECCIONA CARPETA", 0, "C:\trabajo").items.Item.Path If carp = "" Then Exit Sub carp = carp & "\" ChDir carp archi = Dir("*.xls*") Do While archi <> "" Workbooks.Open archi uf = ActiveCell.SpecialCells(xlLastCell).Row uc = ActiveCell.…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
Buenas tardes, Estoy utilizando esta fórmula =NSHORA(HORA(E2), MULTIPLO.SUPERIOR(MINUTO(E2), 15), 0), para redondear hacia arriba los minutos y horas y me da error al meterla en la excel, a ver si alguien me ayuda a ver como lo hago : EJEMPLOS si : 02:52 me devuelva 03:00, si 01:12 me devuelva 01:15, si 01:23 me devuelva 01:30, si 01:34 me devuelva 01:45. muchas gracias por anticipado.
-
0
Reacciones de usuarios
- 4 respuestas
- 1.6k visitas
-
-
Una pregunta: "¿Alguien sabe cómo centrar los títulos de un cuadro MsgBox que no se utilizando espacios en blanco, sino que se realice de manera automática?" Debe existir algún valor de una propiedad que desconozca. Gracias.
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
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
-
0
Reacciones de usuarios
- 5 respuestas
- 1.6k visitas
-
-
Hola Tengo un ahoja excel con el nombre de una serie de alumnos. Me gustaria crear una hoja por cada linea. EL problema que tengo es que si hay dos alumnos con el mismo nombre, me da error, puesto que no puede haber dos hojas con el mismo nombre. ¿Como podria comprobar si existe el nombre de la hoja? Mi codigo en Vba es el siguiente: Sub Crear_hoja() Worksheets.Item(1).Select [a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)" For i = 2 To [a65536].Value Sheets.Add after:=Worksheets(Worksheets.Count) Worksheets.Item(Worksheets.Count).Name = Worksheets.Item(1).Range("a" & i) DoEvents Next Worksheets.Item(1).Select [a10000].Clear End Sub [/code] Adjunto, envio u…
-
0
Reacciones de usuarios
- 1 respuesta
- 1.6k visitas
-
-
Buen día comunidad, estoy tratando de que por medio de un formulario registrar los datos de un grupo de usuarios y agregarle su foto, quiero cargar una imagen en un formulario, que al momento de dar click en el cuadro de imagen se abra una ventana para buscar la imagen y me la muestre en el formulario para despues insertarla en la celda correspondiente en la hoja de datos, las fotos la tengo en D:\Usuarios\csotoo\Pictures, agradezco de antemano su atencion, saludos cordiales. Formulario Registro de Usuarios con foto.xls
-
0
Reacciones de usuarios
- 0 respuestas
- 1.6k visitas
-
-
Buenas noches, Mi problema es que quiero hacer una macro que me recorra una hoja con dos campos "codigo Articulo" y "departamento" y que en función del numero de departamento me copie en su hoja correspondiente el "codigo Articulo" únicamente. Es decir que me coloque cada articulo dentro de su departamento correspondiente. Espero haberme explicado bien, de todas las maneras os mando el archivo adjunto, un saludo ordenacion por departamento.rar
-
0
Reacciones de usuarios
- 12 respuestas
- 1.6k visitas
-
-
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 …
-
0
Reacciones de usuarios
- 1 respuesta
- 1.6k visitas
-
-
Hola mi pregunta es la siguiente: Como puedo hacer un hipervinculo a las hojas ocultas de excel. Gracias....
-
0
Reacciones de usuarios
- 0 respuestas
- 1.6k visitas
-
-
Hola , necesito una pequeña ayuda para generar una macro que me compare la columna A en dos hojas diferentes (Hoja 1 y Hoja 2). La columna A de la hoja 1 contiene DNI+ Nombre (123456 Pedro Perez) y la columna A de la hoja 2 contiene solo el DNI (123456) La idea es recorrer con cada dato que hay en la columna A de la hoja 2 , la Columna A de la hoja 1 Si el DNI esta en la celda marcar la celda en verde, sino pasar a la siguiente celda (los DNI pueden estar descolocados) Sino lo encuentra, copiar el dato a la hoja 3 y marcar en amarillo. Adjunto un ejemplo Ejemplo comparar columnas.xlsx
-
0
Reacciones de usuarios
- 6 respuestas
- 1.6k visitas
-
-
Nuevamente por acá amigos, les platico sigo realizando una aplicación donde se realizara la salida de productos. Con la ayuda de varias personas del foro y lo que eh investigado ya esta un poco avanzado. Les platico como funciona en lo general: De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox. En caso de ingresar un producto no deseado, se puede eliminar seleccionando en el ListBox y después pulsar el botón "Eliminar datos". Hasta ahí t…
-
0
Reacciones de usuarios
- 14 respuestas
- 1.6k visitas
- 1 seguidor
-
-
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.
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
Gracias de antemano x su ayuda: Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y luego pase a la siguiente fila = a3,b3,c3...m3 y concatene y el resultado en p3 y asi sucesivamente concatenar todas las filas asta encontrar celda vacía en la columna A y allí termina la macro, la cantidad de filas es variable pero siempre en la columna a1 asta aX (X valor cualquiera) siempre hay datos, no quiero usar formulas por que antes de concatenar elimino varias filas no deseadas. doy g…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
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
-
0
Reacciones de usuarios
- 2 respuestas
- 1.6k visitas
-
-
Buenos dias compañeros seria posible que me ayuden con el siguiente tema, quiero hacer una macro que me compare los dos últimos datos de una columna dinámica de tal manera que si el ultimo es mayor tome el promedio de los dos dos datos y si es menor tome ese valor. Además después se compare con el ultimo dato de una columna de otro libro de tal manera que se tome el menor de estos dos. Agradezco en lo que me puedan orientar, estaré atento a sus comentarios.
-
1
Reacciones de usuarios
- 15 respuestas
- 1.6k visitas
- 3 seguidores
-
-
Hola tengo una macro que imprime y enumera, lo que quiero es lograr que esta macro realice la misma funcion pero en la columna T tengo datos los cuales tienen nomenclatura y en la columna U un valor el debe incrementarse en la medida que imprimo, para esto envío los datos gracias. PRUEBA.rar
-
0
Reacciones de usuarios
- 5 respuestas
- 1.6k visitas
-
-
Hola pido de su ayuda ya que me estoy atorando con la separación de miles y decimales en una macro. estoy haciendo un programa para administrar una carnicería, el cual el ejemplo que traigo para que me ayuden es el siguiente. "quiero aclarar que no tengo conocimientos exagerados en programación de VBA, y siempre combinó formulación de Excel y Macros." mi petición de ayuda es la siguiente: tengo un listado de productos y un formulario para poder actualizar los precios de los producto. cuando ingreso algún dato numérico con algún punto decimal y doy click en el botón calcular me devuelve datos asi: dato correcto: $38.20 y el dato…
-
0
Reacciones de usuarios
- 1 respuesta
- 1.6k visitas
-
Información básica de protección de datos
- Responsable: Sergio Andrés Celemín
- Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
- Legitimación: Consentimiento del interesado.
- Destinatarios : Hetzner Online GmbH.
- Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
- Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]
Información adicional: Encontrarás más información en la política de privacidad.