Hola buen día...tengo esta macro que envía los datos como lo quiero, incrementando la columna "T" para tomar como referencia de la última fila con datos...como puedo evitar eso, es decir que no me registre nada en la columna "T", y además me sale un mensaje de error al proteger la hoja..es una tabla dinámica donde se debe arrojar los datos...y finalmente que me ordene por fecha que se encuentran en la columna "A" Private Sub CommandButton3_Click() Dim MES As String ' BOTÓN REGISTRAR Dim UltFila As Long 'MANDAR LOS DATOS EN SUS MESES RESPECTIVO MES = ComboBox4.Value If MES <> "" Then Sheets(MES).Activate UltFila = Sheets(MES)…

Buenas a todos Aunque parezca cargante, daros de nuevo la enhorabuena por el portal creado y las gracias por hacerme participe de el, para utilizarlo en mi dia a dia Mi cuestio es la siguiente De la siguiente tabla, me gustaria que, o bien por proximidad de vencimiento del performance bond o del advance bond, se me avisara dentro de la base de datos cual es el momento de caducidad de los performance bond o advance bond payment No se si seria posible hacerlo de tal manera en que se tuviera como un cajon con contratos, y cuando se acercara la fecha de vencimiento de alguno de los dos anteriores( menos de 2 meses vista) pudiera aparecer una v…

hola amigos del foro nuevamente despues de mucho tiempo es un gusto estar por aca de nuevo, en macros anteriores busque una macro que tuve que adecuarlo y practicamente me sirve como buscardor por medio de un useform pero tiene un problema la macro corre perfectamente bien hace su funcion correcta pero despues de buscar la informacion requerida al querer buscar otra informacion nueva la macro ya no funciona por lo que tengo que cerrar toda la hoja y volver abrirlo para que funcione les adjunto la macro saludos y como siempre agradesco anticpiadamente su aporte para esta macro busqueda.xlsm

Buenas tardes, tengo el siguiente archivo donde se encuentra una hoja llamada MATRIZ en donde tengo en las columnas los meses de los dos últimos años 2014 y 2015 y en las filas grupos a ser calificados con las letras desde la A a la E, donde E es la peor calificación. Lo que intento, es buscar en cada fila aquellas situaciones donde la calificación D y E se repitan 4 veces consecutivas y sustituir a partir de ese cuarto momento repetido hasta el final de la fila por la peor calificación, en este caso por la letra E, es decir si las calificaciones D y E se repiten en algún momento 4 veces seguidas sustituir a partir de la cuarta repetición por la letra E dejando dicho que…

Estimados, tengo el siguiente problema: En la hoja “menú” puedo seleccionar entre distintos idiomas (ahora solo inglés, español y alemán). En la hoja “General data sheet” tengo Dropdowns con origen de datos. Deseo que los valores del dropdown también cambien de idioma al elegir otro idioma en la hoja “menu”. Adjunto mi archivo, por el momento solo tengo los datos cargados para el recuadro naranja. Excel 2010 SE puede lograr con las mismas fórmulas o un macro en la hoja o programación VBA? Desde ya estoy muy agradecido TDS consulta.zip

Buenas tardes, Tengo, en una columna datos del tipo xxxxxxxx/6/3. Necesito recorrer esa columna y modificar esos datos para eliminar todo aquello que esté a la izquierda de la primera barra. Es decir, en el ejemplo quedaría ésto: 6/3. A veces la celda en cuestión no contiene una barra, solo texto o números, en ese caso no hay que tocarla. Lo que necesito es un método rápido para recorrer esa columna y no se cual sería el mejor método pues hay días en los que la hoja tiene muchas filas de datos (cerca de 20.000) y no quiero eternizarme con este proceso. Adjunto fichero en el que muestro un ejemplo más amplio. Gracias por vuestra ayuda y vuestro tiempo…

Hola buen día...tengo esta macro para habilitar y deshabilitar un botón CommandBooton, como seria para hacer pero con una inserción de Forma? If Status = "Admin" Then Hoja28.btn_admin.Enabled = True End If If Status = "usuario" Then Hoja28.btn_admin.Enabled = False End If

Buenos días, Tengo un problema que no se resolver y me gustaría saber si alguien puede ayudarme con la solución. Tengo una macro para insertar imágenes, la macro funciona correctamente pero inserta las imágenes vinculadas. Al enviar el fichero por email las imágenes desaparecen. Me gustaría poder modificar la macro para que inserte la imagen rompiendo el vínculo con el fichero origen. He averiguado que para conseguirlo necesito usar el método Shapes.Addpicture, pero no se como hacer las modificaciones en la macro. Podría alguien ayudarme? GRACIAS!!!! Esta es la macro: Sub BorrarImagenes() ''Esta función recorre todas las imagenes del libro activo y las borra. …

Algún Maestro que me pueda ayudar Como bloquear la tecla menú contextual del teclado en Visual Basic VB, encontré como hacerlo con el ratón, pero necesito bloquear también el botón del teclado. De antemano muchas gracias por el apoyo que me puedan brindar Saludos

Amigos, debo vencer mi orgullo y recurrir a Ustedes, les adjunto una planilla de excel que tiene formularios, esta en proceso de elaboración y me encuentro que al "Activar la celda del registro elegido" me da un Error 91 en tiempo de ejecución, Variable de Objeto no establecido. Ingresando por el principal, buscando indices y Buscar, podran ver el error. Gracias desde ya. Gustavo IndiceMoneda.xlsm

Os aporto esta clasificación de equipos de la cual se puede adaptar, esta casi echa en vba para evitar el borrado, si alguien la quiere modificar, mejorar, u otra cosa que lo haga Resultados y Clasificacion.xlsm

quiero que las persona que tengan mi libro y alguien actualice algo los demás los vean desde su casa como seria eso

Buenos días, tengo el siguiente código que intenta copiar el mismo rango desde el archivo "DATOS DEL SISTEMA" hacia el archivo "Escenario" en la hoja Datos, siempre y cuando el nombre de la hoja del primero sea igual al encabezado de columna de la hoja Datos del segundo archivo, la intención es que si falta alguna variable el proceso no se detenga y salte al siguiente con datos, y luego en el archivo Escenario, elimine las columnas que queden sin datos, ya que no todos los días hay datos para todas las variables, esto cambia día a día. Necesito que en la hoja datos solo aparezcan las columnas en forma consecutiva co n las que tengan información. El problema es que la macr…

Buenas Tardes a todos mi tema a tratar es el siguiente estoy iniciándome en el uso de las Macros para Excel requiero mandar correos a varios usuarios de un listado desde outlook he checado varios ejemplos de este tema sin embargo solo hacen mención de seleccionar las celdas para insertar la información para el tema y el cuerpo del correo, sólo que yo manejo una libro de excel con 6 hojas las cuales están vinculadas con fórmulas y en una de ellas ya tengo trabajando una macro la cual inserta la hora y día en que se realizan las capturas de los registros, en otra tengo varias tablas dinámicas. Mi pregunta o duda es como indico en la macro de que hoja tomará la informac…

Hola, En la macro que adjunto al momento de darle doble clic a la casilla de chequeo, excel me pone un check y me lo tacha, al igual que el tema. En qué parte puedo modificar la macro para que no me tache las palabras?? Por favor su ayuda. Check_list_prueba.xlsm

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...necesito una mano para resolver esto; es lo siguiente, esta macro no me arroja los datos dentro de la tabla, me lo arroja muchos mas abajo, ya intente de mil manera resolverlo pero no llego a la solución...agradecería si pueden decirme donde está el error..la idea es que me arroje los datos a partir de la fila "A7 " y de ahí en adelante..la celda "A7", tendría las fechas seria posible que esto me los ordenes?;.....dejo la macro y el link del archivo..gracias Private Sub CommandButton3_Click() Dim MES As String ' BOTÓN REGISTRAR Dim UltFila As Long MES = ComboBox4.Value If MES <> "" Then Sheets(MES).Activate …

Hola buenos días a todos, haber si me pueden echar una manita, les estoy intentando hacer una tabla de resultados y clasificación para un equipo pequeño de fútbol americano de mi barrio de la cual os remito y es que tengo un pequeño problema en cuanto a los partidos perdidos, ahora os cuento, les he puesto el nombre de equipo local y visitante para no ofender a nadie, de momento solo funciona con el equipo local una vez funcione ya lo pasare a los otros equipos. El orden de partidos jugados funciona bien pues al poner el resultado ya suma el partido jugado, ahora bien en cuanto a partidos ganados o perdidos no se como hacerlo Por ejemplo en la jornada 3 pierde…

Hola. Estoy en un proyecto y me he quedado atascado por un simple código, que seguro que tiene una fácil solución pero que llevo horas intentando resolver. He creado un bucle For next que va cargando en una variable Array la posición de la última celda con datos en distintas columnas, empezando por "A" y hasta el final del bucle. El caso es que donde tengo el problema es en la propiedad "Range", me dice que no coinciden los tipos. Seguro que es por la forma de implementar el código pero es hasta donde sé. Es la primera vez que meto el "Range Rows.Count" dentro de un bucle. Pongo el código aquí mismo, si es necesario subiría el ejemplo. For x = 1 T…

Estimados Nuevamente necesito de vuestra ayuda, ya que debo crear la siguiente macro y no se por donde empezar: -Realizar una macro que solicite ingresar un rut y si el rut no esta lo ingrese en la columna A buscando espacios vacios y en caso contrario si se encuentra que arroje un mensaje que diga el rut ya fue ingresado. Ojala me puedan ayudar Saludos meggido

Estimados Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro: - Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no. Tengo este codigo, pero algo le falta al parecer: Public Sub prueba() X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción") End Sub Muchas gracias saludos meggido

Buen día, necesito ayuda con un problema que me tiene a mal traer. Tengo un formulario vba para ingreso de datos en una hoja excel, el cual funciona perfectamente, pero generalmente la primera vez que inicio el formulario luego de haber reiniciado la PC o incluso ocasionalmente en cualquier momento, tengo problemas en los textbox o combobox indistintamente, donde sin razón alguna se me desactivan por ejemplo la tabulación para saltar a otro campo (En este caso al presionat la tecla tab, en vez de saltar a otro campo, se genera una tabulación interna), o también se desactiva el evento keypress, y para que se solucione, tengo que cerrar el formulario y volverlo abrir. …

Buenas.. Este es un pedido o requerimiento que no encontré en el foro. Yo tengo un archivo excel llamado Base.xls donde es mi archivo en blanco o base, es decir como un formulario en blanco.En el cual contendrá varias hojas con títulos en columnas y macros ya que supone empezar a ser una base de datos de algo especifico. Entonces, Yo desde otro archivo el cual llamare INICIO.xls pondré a funcionar un programa. En el mismo tendrá un botón de "+nuevo maquina" por ejemplo. El macro que necesitaría es uno que me copie mi archivo base cree una copia en un lugar especifico y me permita escribir el nombre de la "nueva maquina". Y así tantas veces me copie y renombre …

Antes que todo un saludo para todos los miembros del foro. Me parece que "Unir dos lineas mediante un conector" es complicado o no se puede hacer, sería maravillo si alguien del foro me pueda sacar de esta duda. Intente hacerlo con el siguiente código: Sub UnirDosLineasConConector() ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 60, 15, 120, 15).Select Horizontal02 = Selection.ShapeRange.Name ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 180, 30, 240, 30).Select Horizontal05 = Selection.ShapeRange.Name ActiveSheet.Shapes.Range(Array(Horizontal02, Horizontal05)).Select Set Conector = ActiveSheet.Shapes.AddConnector(msoConnectorCurve, 0…

Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores 1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro) 2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo 'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea 'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto... la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir …