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
-
Os cuento, he realizado una encuesta en forms y eso me genera un excel que adjunto. En función de las respuestas quiero dar pesos, os cuento mi idea Consta de 8-9 preguntas ( dependiendo de la respuesta en la pregunta 7 se abre o no una pregunta adicional) 5 obligatorias y 4 opcionales. De las 5 obligatorias el máximo que se puede obtener son 100 puntos. La 4 opcionales dará un máximo de 10 puntos si se molestan en contestar (2,5 cada una) La pregunta 9, adicionalmente servirá para otorgar los premios del reto. Puntuación máxima 110 puntos Pregunta 1 Ordena por prioridad qué es lo que más te motiva para pertenerce al programa YOU …
-
0
Reacciones de usuarios
- 1 respuesta
- 454 visitas
- 1 seguidor
-
-
muy buenas tardes a todo el equipo y colegas en excel , se me planteo la siguiende duda, como arrmo dentro de mi codigo guardar ( en hoja1)de un formulario VBA que 2 o 3 txt entre tantos que existen en dicho formulario me los guarde tanbien en las tablas de hoja2, hoja 3 , Hoja4 y por supuesto que no se pisen si ya hay datos . bueno espero se comprenda
-
0
Reacciones de usuarios
- 2 respuestas
- 669 visitas
-
-
Buenas tardes colegas. Espero se encuentren bien de salud. Colegas, en este pequeño Proyecto pretendo trabajar el Comprobante de Operaciones de las Nóminas de los trabajadores de mi empresa y he creado un grupo de "herramientas" para facilitar mi trabajo y un grupo de informaciones que debo brindar, pero para completar o "redondearlo" necesito convertir un archivo .xlsx en .dbf. He estado preguntando si existe alguna manera de hacerlo, si alguno de ustedes conoce un medio o método que me pueda ayudar, por lo pronto yo lo que pretendo hacer es lo siguiente: 1.- Crear un archivo (puede ser .xlsx o .xls) con nombre Comprobante Nomina, que debe ser el que se en…
-
0
Reacciones de usuarios
- 8 respuestas
- 962 visitas
- 2 seguidores
-
-
Hola colegas, buenas tardes y ojalá se encuentren bien de salud. Colegas, no salgo de una para entrar en otra. Ahora mi Jefe me pidió que le hiciera un Proyecto para controlar el Parque de Transporte con respecto a Gasto de Combustible, Mantenimientos, Hojas de Ruta y Choferes, nada fácil para mi, pero me gustan estos "Retos" porque de cualquier manera aprendo tanto de VBA como de las normativas sobre los temas del transporte. Ya he tenido unos cuantos tropiezos, pero poco a poco voy resolviéndolos y voy a necesitar mucho de sus ayuda que realmente son los que saben, como siempre, acudiré a ustedes después de agotar mis "recursos de conocimientos". Por el m…
-
0
Reacciones de usuarios
- 4 respuestas
- 1.2k visitas
- 1 seguidor
-
-
Saludos compañeros, Necesito recorrer un rango de celdas en una hoja "PLANTILLAS" y validar cuáles son distintas de cero, las que cumplen el criterio uso esa referencia y el contenido en otras celdas (en esa misma hoja) para llevarlas a una tabla en una hoja "TABLA_DATOS" . Soy novato en esto, hice una macro pero no se comporta como espero puesto que copia los datos que cumplen con los criterios y los que no también, además que la información la exporta cientos de veces (seguramente hay algo que no está bien definido con los bucles) . De antemano agradecido, espero puedan ayudarme. A continuación la macro: Public Sub enviar_datos() Application.ScreenU…
-
0
Reacciones de usuarios
- 2 respuestas
- 499 visitas
-
-
Buenas Tardes Tengo dos cadenas de texto, la idea es averiguar si todos los caracteres que contiene una cadena están en la otra, no importando el orden. Saludos Cordiales Pedro Cadenas de texto.xlsx
-
0
Reacciones de usuarios
- 11 respuestas
- 3k visitas
- 1 seguidor
-
-
tengo un problema al momento de querer editar un dato en mi hoja de excel al ejecutar el boton de modificar me manda error 91 variable de objeto o bloque with no establecido ya le busque y no le encuentro adjunto el archivo el problema es el la pestaña AUSENCIAS espero me logren ayudar gracias!!!! Private Sub BtnEditarAUS_Click() Dim Rango As Range Dim NuevaFila As Long Dim Valor As String ' lo puse como string por que el dato de la columna A es 1-1 Dim mensaje As String mensaje = MsgBox("ESTAS SEGURO DE EDITAR LOS DATOS", vbQuestion + vbYesNo, "EDITAR DATOS") If mensaje = vbYes Then Set Rango = ThisWorkbook.Sheets("BASE.AUS.").Range("A1…
-
0
Reacciones de usuarios
- 5 respuestas
- 6.9k visitas
- 1 seguidor
-
-
Hola buscando el la web me encontré con un generador de etiquetas QR solo que no eh podido adaptarlo a mi proyecto , los codigo qr los genera sin problema , solo que busco que se pasena otra hoja en una celda en especifico segun corresponda al valor ejemplo en la celda A1 tengo el valor 01 y deseo que el el codigo qr generado con el 01 se pase en C1 de la otra hoja , adjunto archivo espero haberme explicado muy bien y que me puedan orientar ya busque otras alternativas pero el que genera qr con formula me hace lento el archivo
-
0
Reacciones de usuarios
- 1 respuesta
- 433 visitas
- 1 seguidor
-
-
Buenos días, Me gustaría saber cómo declarar una constante pública disponible en todos los módulos, tal y como aparece en la siguiente imagen: Public Const SH1_NM As String = "CONEXIONES" public Const SH1_PW As String = "***" Sin embargo, este es el mensaje de error que me aparece: He estado consultando la documentación de VBA, y dice lo siguiente: Fuente: https://docs.microsoft.com/es-es/office/vba/language/concepts/getting-started/declaring-constants Así que no entiendo por qué me da ese error, cuando en la documentación oficial e incluso en los ejemplos presentados dice claramente que admite la clase Str…
-
0
Reacciones de usuarios
- 3 respuestas
- 1.6k visitas
- 1 seguidor
-
-
Buenas foro. Mediante scraping me logueo en una web a traves de internet explorer. Llego hasta un cuadro de dialogo (Pulsando un boton) para subir un archivo. Se me ocurre subir la ruta mediante la funcion sendkeys, pero como es tan volatil, me pregunto si no hay alguna funcion para subir, adjuntar al cuadro de dialgo el archivo
-
0
Reacciones de usuarios
- 10 respuestas
- 907 visitas
- 2 seguidores
-
-
Buenos dias por favor espero me puedan ayudar, deseo encontrar la ultima fila de una columna pero segun su valor por ejemplo: aqui encuentro la ulitma fila de la columna A (Esta columna contiene fechas) uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row pero quiero el resultado de la Ultima Fila segun la fecha que se determine * No puedo subir archivo en este mmento por que aun no renuevo mi suscripcion. Espero me brinden su ayuda. Muchas Gracias
-
0
Reacciones de usuarios
- 4 respuestas
- 905 visitas
-
-
Hola colegas, buenas tardes, buenos días o buenas noches según el caso de ustedes y espero se encuentren bien de salud. Hoy necesito una ayuda más de ustedes. Hace más de un año hice un Proyecto (Conciliación y Disponibilidad Bancaria) con ayuda de algunos de ustedes que me es muy útil en mi trabajo diario y que funciona perfectamente, pero hubo en mi empresa un cambio de mando y el Jefe nuevo que entró quiere que le envíe por e-mail diariamente el reporte. Mis conocimientos no llegan hasta ahí, pero sé qué se puede hacer porque en algún momento recuerdo haber oído a Sergio Alejandro Campos hablar del tema. Ahora, ¿qué necesito? Este Proyecto trabaja con tres …
-
0
Reacciones de usuarios
- 5 respuestas
- 842 visitas
- 1 seguidor
-
-
Hola! Necesito que una Macro me haga lo del título: Imprima de forma consecutiva una hoja de datos donde una celda cambia la numeración y me arme UN SOLO PDF con todas las hojas mandadas a imprimir. Ya tengo armada una Macro que imprime en forma consecutiva, pero tengo dos inconvenientes: 1) Si mando a una impresora común me sale todas hojas impresas en una sola cara. Se desperdicia el doble de hojas. 2) Si mando en PDF para luego unir todos los archivos separados con algun otro software, tengo que darle imprimir a cada una de las impresiones y es muy tedioso. Por eso es que necesito una Macro donde me cree un solo PDF con todas las impresiones que se mand…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.9k visitas
-
-
Como hago para que los datos de un cliente que ya existe no se duplique en la base de datos cliente, pero que a la vez guarde datos específicos en en otra base de datos, como por ejemplo un pedido.
-
0
Reacciones de usuarios
- 1 respuesta
- 2.8k visitas
- 1 seguidor
-
-
Hola colegas, buenas tardes. Espero se encuentren bien de salud. Estoy en otro "Proyectico " para tratar de facilitar mi nuevo trabajo, pero tengo un pequeño problema. En el FrmRetenciones yo inserté varios TextBox donde cada uno de ellos imprime el valor en la Hoja4 en las celdas F28 al F37 y todo esto funciona perfectamente para lo que necesito, pero se me ocurrió hacer otra cosa, dentro del Frame2 diseñé un combobox donde localizo e imprimo el rango de cuentas 460... que se encuentran en la Hoja2 (Auxiliar) que no es mas que el Clasificador de Cuentas de nuestra empresa, de acuerdo al numero de cuenta en el CmbID el TxtNombre me imprime el Nombre del trabajad…
-
0
Reacciones de usuarios
- 2 respuestas
- 682 visitas
- 1 seguidor
-
-
Buenas tardes. Necesito cargar estos CheckBox en una tabla pero solo si están "check". De no ser así la celda debería quedar vacía. Se entiende? Desde ya muchas gracias por cualquier ayuda o aporte. .Cells(NuevaFila, 33).Value = Me.Comp35.Caption .Cells(NuevaFila, 34).Value = Me.Comp85.Caption .Cells(NuevaFila, 35).Value = Me.Comp205.Caption .Cells(NuevaFila, 36).Value = Me.Comp206.Caption .Cells(NuevaFila, 37).Value = Me.Comp207.Caption .Cells(NuevaFila, 38).Value = Me.Comp329.Caption
-
0
Reacciones de usuarios
- 2 respuestas
- 474 visitas
- 1 seguidor
-
-
Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar: If cmbFecha.Text = Hoja1.Range("P4") Then Hoja1.Cells(Fila, 16) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then Hoja1.Cells(Fila, 17) = "X" ElseIf cmbFecha.Text = Hoja1.Range("R4") Then …
-
0
Reacciones de usuarios
- 6 respuestas
- 1.1k visitas
- 1 seguidor
-
-
Buen día. Estoy buscando ayuda para el siguiente macro: Si en el rango B13:L24 (Son casillas combinadas) no se tiene nada de texto. ocultar el rango B11:L24
-
0
Reacciones de usuarios
- 2 respuestas
- 681 visitas
-
-
Buenos días, Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías, es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren. También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no te…
-
0
Reacciones de usuarios
- 8 respuestas
- 3.7k visitas
-
-
Buenas tardes, expertos en la plantilla que adjunto de prestamos, cuando calculo el prestamo y los registro en la hoja estado me registra de la mayor a menor los registro, esto me podrian indicar que debo hacer para que se registre de forma ascendente Por otro en la hoja resumen el porcentaje me muestra muy elevado, ejemplo si es 20% aparece 200% Por favor me puede ayudar, adjunto el archivo Planilla Prestamos 1.5Final.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 487 visitas
-
-
buenas a todos , pido disculpas por preguntar ta lves cosas elementales , ya con la practica ire aprendiendo . la cuestion que me toca hoy es saber cual seria la instruccion para que en un txt del formulario (todod datos numericos) se llene como resultado de la division de otros 2 txt , intente con: Private Sub txtValorPresupUsd_Change() Dim Valor1 As Double Dim Valor2 As Double Dim valor3 As Double Valor1 = Val(txtValorPresup.Text) valor3 = Val(txtCotiz1.Text If txtValorPresup.Value <> "" Then txtValorPresupUsd.Value = Valor1 / valor3 End If txtValorPresupUsd.Value = Format(txtValorPresupUsd, "#,##0.00") …
-
0
Reacciones de usuarios
- 4 respuestas
- 443 visitas
-
-
hola, chicos, tengo un problema con mi proyecto de VBA en Excel, y estoy parado, y no avanzo, por muchas vueltas que le de no doy con la solucion, a ver si alguno de vosotros teneis la sabiduria que no tengo yo, y me echais un cable. Gracias de antemano Os expongo el codigo y os digo que tipo de error me salta y donde salta. Private Sub cmbActualizar_Click() Dim jugador As String jugador = Me.cmbNomFutbolistas.Value Range("B1").Select Do Until ActiveCell.Text = jugador ActiveCell.Offset(1, 0).Select If IsEmpty(ActiveCell) Then Exit Do End If Loop ActiveCell.Offset(0, -1).Text =…
-
0
Reacciones de usuarios
- 1 respuesta
- 1.2k visitas
-
-
Buen dia, tengo un problema, espero me puedan ayudar, Tengo un libro Proncipal el cual hace su apertura si el formulario de acceso lo permite, y se comunica con otros libros, el detalle es que nececito que los otros libros se puedan abrir solo si el libro principal esta abierto, si no lo esta que lo abra para poder accesar desde el formulario de acceso. *Libro Admon.xlsm - Formulario acceso ***Libro Poliza ***Libro Diario ***Libro Edo Financiero lo intenté llamando esta macro desde los libros Poliza, Diario, Edo Financiero Workbook - Open Private Sub Workbook_Open() Call Inicializando End Sub _______________________________…
-
0
Reacciones de usuarios
- 2 respuestas
- 671 visitas
-
-
Saludos, quisiera que me ayuden respecto a un problema que tengo con un reporte. Tengo una tabla que contiene las siguientes donde almaceno la siguiente información: Fecha 1, pago 1, fecha 2, pago 2, fecha 3 y pago 3 Lo que necesito es que en un formulario en excel de consulta que tengo, en base a 2 textbox colocar el rango de fechas y haga la consulta en la base de datos de acuerdo a las columnas fecha 1, fecha 2 y fecha 3 y jale al listbox los datos de pagos 1, 2 y 3. Esta es mi macro, pero solo hace consulta con la fecha 1 Agradezco de antemano su apoyo Sub Consultacaja() Call Conexion.Abrir_Rs sql = "SELECT Correlativo, C_1, C_2, C_5, C_6, C_…
-
0
Reacciones de usuarios
- 6 respuestas
- 686 visitas
-
-
MUY BUENAS A TODO EL EQUIPO DE AYUDA EXCEL. Tengo el siguiente pedido de auxilio que no logro solucionar ya que estoy aprendiendo y leo todo lo que encuentro pero en esta ocasion no he encontrado info. el tema es el siguiente: En el formulario tengo 10 chechbox que cargan segun su condicion las correspondientes casillas txt y necesito cagar el txt Total presupuesto con la suma de todos aquellos txt con los que tenga sus valores cagados por el checkbox,cuando hago click en boton CargarDatos, he probado verios codigos para esta macro pero no obtengo resultado , Podran ayudarme con este codigo
-
0
Reacciones de usuarios
- 2 respuestas
- 509 visitas
- 1 seguidor
-
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.