por favor una ayudita para realizar una macro que realice lo siguiente, para los siguientes 3 rangos, pero para poder modificar celdas dentro de cada rango se pida una contraseña diferente, pero a la vez quede bloqueada la información diligenciada, que no pueda ser modificada 1 rango : desde la columna A a la columna I 2 rango: desde la columna J a la columna L 3 rango: desde la columna M a la columa P

hola que tal?, aqui de nuevo con mis dudas y esperando se me pueda auxiliar en esto y es que esta vez quiero hacer lo siguiente: Lo que Necesito hacer es que al estar escribiendo sobre un textbox (el cual obviamente esta dentro de un formulario) solo acepte: 1ro.- solo numeros o solo letras o los caracteres que yo desee 2do.- que al llegar al sexto caracter me ponga una " / " y posteriormente siga escribiendo solo y unicamente hasta el onceavo caracter. se que para poner la cantidad de caracteres permitidos es en la propiedad maxlenght, pero si quisiera saber manipularla mediante codigo No se si me di a explicar ponerdiagonalal5tocaracter.xls

Buenas tardes antes que nada agradecer por el tiempo que se toman en ayudarnos a todos con las dudas que tenemos bueno mi problema es el siguiente tengo una base de datos con códigos y descripciones y tiempo lo que deseo es sacar los subtotales de los codigos osea si tengo 3 codigos a20 me saque los subtotales y al mismo tiempo me coloque al costado los encabezados y los codigos EN SI AL INICIO ESTA ASI : A B C COD DESC TIEMPO A10 AUT 2 A A10 AUT 3 A A10 AUT 4 A A20 CTR 2 A A20 CTR 3 A A20 CTR …

Buenas noches; Estando en la cama, se me ha ocurrido algo que me vendría muy bien pero ni idea de como hacerlo, haber si alguien me puede ayudar. necesito que se ponga automáticamente en la columna A (la fecha) y en la columna B (la hora), de cuando se ponga un dato en la columna C. se podría hacer??. muchísimas gracias de antemano Fecha.xls

Hola Amigos Programadores, tengo este codigo ? que me sirve para que el archivo corra solo en las pc con los series de disco duro asignados en ese codigo, pero yo quería saber si es posible adaptarle fecha para que después de esa fecha el archivo se elimine.. Probé ponerle este codigo al comienzo de la macro paro me aparece error : Dim FechaVen As Date FechaVen = "20/07/2021" If Date >= FechaVen Then Private Sub Elimina() If IsError(Application.Match(Hex(CreateObject("scripting.filesystemobject").Drives.Item("c:").SerialNumber), Array("EE91AAE1", "8001a6af", "otroSerial_3"), 0)) Then Application.DisplayAle…

buenas noches a todos no tengo ninguna idea de como empezar para dar formato a una hoja de excel en la cual estoy implementando un control de trabajos de produccion para lo cual requiero ayuda ya que deseo poner en dos celdas distintas una fecha de ingreso y una fecha de entrega lo cual al poner el cursor en cada una de las celdas descritas aparesca el calendario para poner la fecha de ingreso y lo mismo para poner en la otra celda la fecha de entrega, espero me puedan detallar paso por paso la forma de como programarlo y asi hacer mas interesante mi pequeño proyecto ya que poco a poco quiero irlo implementarlo adjunto el archivo para que vean que es lo que trato de hacer…

Muy buenas a tod@s; he intentado de muchas formas hacer lo siguiente pero sin exito, cree un tema en general para hacerlo por formulas pero nadie a contestado ( es muy complicado ), a ver si alguien me puede ayudar a hacerlo con una macro. A ver como explico lo que necesito; De la columna H a la N lo que tenemos son ubicaciones de piezas con la cantidad que ahí en cada una, en la columna O, R, U etc...se encuentran las piezas que me faltan por entregar en ese mes, lo que quiero o mejor dicho lo que necesito es que en la columna siguiente a la de faltantes por mes, me aparezca la primera ubicación ( la primera ubicación con piezas ), y la cantidad que puedo coger de esa…

Hola colegas, buenas tardes y que tengan una excelente salud. Tengo un pequeño proyecto para controlar los comensales, pero necesito una hoja para llevar de manera manual las incidencias. ya tengo hecho todo, excepto que necesito en la Hoja Modelo, en la columna E me ponga una linea en la parte inferior de las celdas (Para Firmar), siempre que existan datos. Yo tengo este código: Private Sub BtnImprimirM_Click() Dim X As Long Application.ScreenUpdating = False Hoja10.Range("A4:D5000").Clear Worksheets("BD Alumnos").Range("A4:D5000").Copy Worksheets("Modelo").Range("A4") With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .P…

Que propiedad debo de utilizar en un ListBox de varias columnas para que me pongo tanto las líneas verticales y horizontales (cuadricula separador de filas y columnas)

Hola buenas tardes: Tengo una hoja en excel donde listo el nombre de las carpetas que están dentro de una carpeta raíz,por medio de una macro, este me es funcional ya que en ella tambien me lista "subcarpetas" y otras carpeta por columnas. es funcional para conocer las carpetas que existen dentro de esa ruta. Pero por mis labores debo estar revisando diferentes documentos en cada una de estas carpetas y regresar.(dentro del explorador de windows). Esta misma macro seria muy útil que directamente desde esta lista poder abrir cada carpeta o subcarpeta, ya sea con un link en cada carpeta y subcarpeta. Espero me puedan ayudar con esta parte, muchas g…

Hola todos agradezco de antemano cualquier gestión / ayuda tengo dos pestañas BBDD listado exportado de la ERP donde pueden cambiar los importes USUARIO listado histórico de BDD El código tiene que detectar por la columna del nº factura ( columna J ) y cuando detecte el mismo nº de factura que actualice los importes de acuerdo a la exportación ( BBDD ).....que mal me explico. Lo siento. Sub CORREGIRIMPORTES2() Dim i, j As Integer j = 3 ' DONDE EMPIEZA A ESCRIBIR For i = 3 To 10000 ' DONDE EMPIEZA A BUSCAR …

buenos días, os escribo porque tengo unas dudas de como hacer lo siguiente. tengo una hoja excel con una serie de nombres, me gustaría poner y quitar marcadores (Sufijos) en ellos y poder ordenarlos según si están marcados (Validados) o no, debajo os dejo el archivo con los resultados puestos en cada hoja. Muchas gracias de antemano, saludos Ptos y orden.xlsm

Buenas Noches!!! Escribo para que si por favor me pueden ayudar a hacer lo siguiente: tengo una grafica en la que represento al lado izquierdo un porcenteje de 0 a 100% tiena una imagen de regla atravesada lo que necesito, es que al mover la regla de arriba para abajo, esta en el lugar que la deje ponga en una celda el porcentaje en donde se quedo es decir si la dejo en 50% escriba 50% en la celda, o 60, 70 etc. de acuerdo a la posicion de la regla. anexo ejemplo, Gracias https://www.mediafire.com/file/j3mcj61f1dfh0qp/nivel.xlsm/file

Hola buenas tardes debido a mis constantes movimientos entre archivos necesito estar moviendome de un libro a otro y aotro. En un archivo 1, tengo mas de 30 hojas y en archivo 2 tengo 3 hojas o mas (funciona como plantilla). Que es lo que sucede: Cuando estoy trabajando en alguna de las hojas(X) del archivo 1 necesito ir al archivo 2. y a su ves regresar. Lo que me gustaria es que en mi archivo 1, poder poner en cada celda (R3) de todas las hojas un hyperlink o boton con la que pueda ir al archivo o libro 2. Con esto poder lograr que en cualquier hoja que me encuentre poder ir al archivo 2. y si agergo mas hojas en el archivo 1 se coloque en au…

hola he visto como ponen un reproductor de windows media que logra tocar una melodia en una hoja de excel la cual no suele ser versatil y solo pueede tocar una sola melodia a la vez pero si seria bastante bueno el que lograra poner una lista de reproduccion para poder seleccionar la que uno quiera y por lo menos darle "siguiente" mediante formulario sin tener que estarlo sacando del explorador de windows que resulta tedioso y fastidioso,,,pero bueno creo que alguien me contestaria que simplemente ponga el reproductor en una ventana diferente y listo, pero mi idea es poderlo realizar desde excel

Hola, Tengo una macro que pone las lineas de un listbox a varias lineas de excel. El problema es que esas lineas las tengo minimizadas y la intención es combinar esas celdas, pero entonces solo me poone la primera linea del Listbox. Como puedo hacerlo para que se pongan todas en la celda combinada. Ahora tengo esto. Worksheets("Formato Comunicación PRC").Select Y = 27 a = ListBox1.ListCount For i = 0 To a - 1 Hoja2.Cells(Y, 1) = ListBox1.List(i, 0) Y = Y + 1 Next i Gracias

Tengo una super pregunta a ver si pueden resolvermela. Mi pregunta es ¿como poner una pestaña de agrandamiento o disminucion de tamaño de ventana de un formulario? es una pestaña triangular que aparece por lo general en la esquina inferior derecha de algunas ventanas. La verdad no se si sea con codigo vba ya que uno la jala con el mouse y la pone al gusto. Espero no incomodarlos con esta pregunta y de antemano gracias. Saludos

El siguiente código que los estoy presentando funciona bien perfecto en Excel suma y saca el total y todo eso, pero esa misma cantidad lo sumo en la calculadora o manualmente me sale otra cantidad, por ejemplo cuando en la hoja rubrica pulso el botón generar me genera dos rubricas por que solo tengo dos alumnos registrado, bueno la rubrica3 la cantidad de sumatoria en el hoja esta bien pero cuando lo sumo en la calculadora sale otra cantidad y así comparo con las demás hojas , espero que me han entendido, de antemano muchas gracias expertos, adjunto el archivo. Sub correspondencia() Dim NumCriterios As Variant Dim nCantDatos As Double Dim nDatos As …

Copiar entre el pestañas Excel p HOla, buenas noches, un gran favor, tengo este archivo, (adjunto) en cual tiene dos pestañas uno que dice FACT y otro que dice ejemplo, lo que deseo es tener una macro que me copie todo lo que escribo en la hoja FACT incluyendo los item y cantidades (no precio), podrian apoyarme? Muchas Gracias de antemano. ejemplo.xls

Amigos espero puedan ayudarme con esto quiero habilitar y deshabilitar la solo lectura via codigo, pero cuando deshabilito se cuelga y se cierra, a veces si funciona pero la mayoria no. Sub ActivarSoloLectura() Application.DisplayAlerts = False If Not ThisWorkbook.ReadOnly Then ThisWorkbook.ChangeFileAccess xlReadOnly End If Application.DisplayAlerts = True End Sub Sub DesactivarSoloLectura2() On Error Resume Next If ThisWorkbook.ReadOnly Then With ActiveWorkbook SetAttr .FullName, vbNormal .ChangeFileAccess xlReadWrite Application.DisplayAlerts = False .Save Application.DisplayAlerts = True End With End If End Sub MACRO S…

alguien me puede colaborar y decirme en que esta fallando este filtro? pruebafiltro.xlsm

Buenas Tardes, Tengo un boton donde me muestra unos reportes que hice, pero me gustaría que cuando se habrá la hoja que se muestra este me permita mover el scroll del mouse hacia abajo. Actualmente me muestra los datos en la hoja pero como que se bloquea el mouse, existe alguna forma donde el mouse quede libre? Para que en el caso de que exista más información uno pueda bajar con el scroll? Adjunto archivo para que vean que la rueda del mouse no permite bajar cuando uno abre estas hojas de formulario. Muchas gracias.

Saludos, haber me explico cuando en la hoja 2 en la celda a1 pongo la formula ="hoja2"!a1 ( la idea es que cuando en la hoja 1 en la celda a1 ponga un dato en la hoja 2 me salga automáticamente la misma) os dejo un ejemplo muchas gracias ejemplo del =.rar

Hola a todos los que me puedan ayudar a resolver este problema. Buscando encontré este un código que lee archivos xml de un directorio seleccionado para luego pasarlo a una hoja de excel, el problema surgió cuando quise copiar todo el código en un archivo nuevo y proceder a testear, ya he revisado que tenga estén habilitadas las mismas referencias de las librerías, pero nada que encuentro el detalle. Una parte del código me daba interrupción en esta línea "ruta = LCase(CreateObject([explorador]).BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").items.Item.Path)" y luego consultando hice este cambio "ruta = LCase(CreateObject("shell.application").…

Hola a Tod@s y gracias por adelantado, puedan o no ayudarme. Estoy preparando un libro de Excel dedicado fundamentalmente a presentaciones de análisis económicos, y en muchas ocasiones, los números deben ir expresados en textos y los textos en números, y en otras muchas ocasiones, en un mismo texto aparecen de ambas maneras. He dado con un código para pasar de números a letras, el cual comparto por si a alguien le viene bien y digo que, al menos mi experiencia con él es buena. El código es este: …………………. Public Function Num2Text(ByVal value As Double) As String Select Case value Case 0 : Num2Text = "CERO" Case 1 : Num2Text = "UN" …