Que tal amigos de ayuda excel ,bueno lo que quisiera comentar y pedir ayuda es saber si se puede hacer lo siguiente: Tengo una plantilla con un encabezado, donde tengo un boton autocorrelativo lo que hace es aumentar de uno en uno su valor, lo que nescesito es lo siguiente que las demas celdas del encabezado esten bloqueadas y se desbloqueen presionando este boton autocorrelativo y q a la vez se guarde automaticamente ,pero de la forma como si se guardara con el diskete de la parte superior izquierda de excel (que lo que hace es guardarlo sin ningun cartel de de aviso de pormedio). Esto lo quiero hacer para obligar al usuario que lo primero que tiene que hacer es a…

porque me sale clase no registrada al tratar de personalizar mi listview Cuando seleccion un listview en mi formulario y le doy click en personalizar de las propiedades me sale: "Clase no registrada"

Tengo un archivo de Excel con macros para una gestión de biblioteca en la cual he agregado un ListBox para buscar usuarios en una tabla "Usuarios", necesito que después de realizar la búsqueda, al hacer un doble click en un registro desplegado en la lista, posicione el cursor en la tabla y en la celda de la primera columna del registro seleccionado con el doble click, esto es lo que tengo: Private Sub TXTBusqUsuario_Change() NumeroDatosUsuarios = Hoja2.Range("B" & Rows.Count).End(xlUp).Row Hoja2.AutoFilterMode = False Me.LBXUsuarios = Clear Me.LBXUsuarios.RowSource = Clear y = 0 For fila = 8 To NumeroDatosUsuarios Descripcion = Hoja2. Cells(fi…

Buenas a todos, lo que voy a preguntar aunque para muchos sea fácil creanme que lo he intentado de muchas maneras y googleado y no logro dar con lo que quiero. Tengo que hacer un reporte diario donde necesito insertar la formula de suma (no el valor, sino la formula), donde el inicio del rango siempre es J5 pero el fin del rango varía como pueden ser solo 2 o 3 filas, pueden llegar a ser hasta 40 filas. La ayuda que solicito es para via VBA poner en la siguiente fila en blanco de la columna "J" la formula de suma donde el rango comience en J5 y que mediante código determine cual es la ultima fila con datos de la columna J. Espero de su valiosa ayuda, desde …

He realizado este codigo para que cuando escriba en la columna A se rellene con la hora en la casilla E. Ahora necesitaría que si borro el dato de la celda por ejemplo a1 se borrara la celda e1 y sucesivamente, es decir que si quito la información de alguna celda de la columna "a" se borrara la celda e correspondiente. Gracias Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then Range("e" & Target.Row) = Format(Now, "hh:mm") End If End Sub

Buenas noches, tengo el siguiente problema, estoy haciendo una hoja de Excel para imprimir cheques, esto ya lo tengo resuelto y pude agregar un macro que me pase los números a letra y todo eso bien, pero el problema está en que ocupo que al escribir el nombre de la persona a la que va dirigido el cheque agregue esta información en alguna hoja, llámese "Hoja 2" que luego cuando le tenga que hacer otro cheque a la misma persona me pueda autocompletar la información grabada anteriormente en "Hoja 2". La idea es que no tenga que estar llenando manualmente la información de la "Hoja 2" manualmente si no que al escribir el nombre del cliente automáticamente se almacene en la …

Buenos días, expertos necesito una ayuda por el momento en la hoja llamado 1 que cuando pulso clic en cualquiera de los botones de opción de los platos u otros que se encuentran en la parte inferior se me agreguen en el cuadro de lista como por ejemplo la cantidad, plato, precio y otros, y si vuelvo a presionar clic en el mismo botón que agregue solo se aumenten la cantidad mas no debe agregarse un nuevo registro; por favor me pueden ayudar y espero lo pueden entender mi problema es un poco complicado para mi. Adjunto el archivo MEJORA-2.0.xlsm

Buenas noches, estaba intentando adaptar una solución que me dio @Haplox, hace bastante tiempo, junto con otra de @Antonipara una pequeña base de inventario, pero me da error en esta parte Set encontrado = wsDestino.Range("b2:b" & uFd).Find(Celda) y llevo un par de días y no doy con ello, imagino que es un problema del Rango definido, pero me pierdo. Cuando le doy a depurar, observo que "encontrado" es = a nada, también que uFd = a 1048577, no se si esta recorriendo toda la columna hasta el final del libro. También querría ignorar, ocultar o que no me cargara ciertas filas en mi listbox, del formulario inventario.…

Hola estimados, aqui nuevamente solicitando ayuda de esas magicas..que uds. tienen les comento tengo textbox1(donde ingreso fecha de recepcion factura ); 1 combobox ( que es para seleccionar dias) y y textbox2 ( que es donde automaticamente debe cargar la fecha de pago, segun la cantidad de dias seleccionado ) por favor, no es flojera sino el no saber..uds. podrian a yudarme con la sintaxis atte. Milton fecha de pago.xlsm

Hola buenas tardes a todos. He estado buscando y no he encontrado nada sobre ello. Vereis tengo un código VBA para que me indique un número con 3 cifras significativas (ojo no 3 decimales). Por ejmplo: 123 65.1 8.89 0.235 0.0457 etc El código es el siguiente: Sub Macro2() Range("b2").Select While Not IsEmpty(ActiveCell) cifra = ActiveCell.Value a = 0 i = 0 While (a = 0 Or a = ",") i = i + 1 a = Mid(cifra, i, 1) Wend If i = 1 Then If InStr(1, Mid(cifra, 1, 3), ",", vbBinaryCompare) Then cifra = Left(cifra, 4) Else cifra = Left(cifra, 3) End If Else cifra = Left(cifra, 2 + i) End If ActiveCell.Offset(1, 0).Value =…

Hola de nuevo amigos, necesito una ayudita con una hoja en la que registro facturas aleatoriamente y el resultado debe de darlo por orden cronologico. Como vereis en el archivo adjunto solo me ordena el rango B que es el de las fechas pero el resto no lo mueve. Alguna macro para que moviera toda la fila? Gracias de antemano, un saludo. Facturas IVA.rar

Muy buenas foro. Tengo un libro con 2 hojas de operarios internos y externos que se llama "Prueba General". Lo que quiero es traspasar todos los datos de las filas a otra hoja según el operario (TO, GA, OR, JP, MJ, ..) para que cada uno rellene las columnas AN, AO y AP, de su hoja particular y, posteriormente, se actualice en "Prueba general". Las iniciales de los operarios están en la columna D. La hoja "TO" que adjunto está copiada. Espero haberme explicado bien. Gracias por adelantado. TO.7z prueba general.7z

Buenas amigos del foro estoy trabajando con una hoja de excel para trasladar informacion de una hoja a la otra pero en forma de resumen, en la hoja llamada "libro diario" tengo la informacion, y en la hoja "balance de comprobacion" quiero que aparezca cada cuenta con el total igualito como aparece en la hoja "balance de comprobacion asi" yo he tratado de modificarla pero me arroja todo los movimientos de la cuentas mas no el resumen, no se mucho de macro, es un tema de mucho interes, saludos Libro Diario (Prueba).zip

Buenas Tardes: Estoy tratando de realizar un ciclo que me calcule una formula para 26000 filas aproximadamente. He echo el intento con 3 ciclos distintos pero al ejecutar la macro se me colapsa el excel (No responde) y se demora mucho tiempo la ejecución. (Macro_1, Macro_2 y Macro_3) Acudo a ustedes para que me guíen y me digan que error estoy cometiendo o cual puede ser la mejor forma de realizar el procedimiento. De antemano muchas gracias. Julio Cesar Sanguino L. Option Explicit Dim Fila, I As Long Dim StarTime As Double Dim Endtime As Double Dim A As Integer Sub Macro_1() AgilizarExcel StarTime = (Now - Int(Now)) * 24 'Tiempo Inicio Fila = Cells(Rows.…

Hola a todos MacroLovers, Sucede que de vez en cuando me encargan reiniciar un servidor, al cual posteriormente debo cargarle una serie de comandos vía telnet por el puerto 23, lo cuál claramente toma tiempo, en consecuencia estaba pensando si será posible ejecutar alguna macro que a través de un combobox me pregunte la IP, para posteriormente enviar el listado de comandos en forma automatizada? Gracias,

Necesito una macro que cuando encienda la pc se abra un archivo de excel en la fecha determinada

Hola amigos, que tal estan De nuevo por aqui con ustedes con un problema que no consigo resolver, les explico, tengo que buscar un dato del listbox, por nombre y entre fechas, hasta ahora he conseguido, buscar por nombre y fecha pero no entre fechas, espero que me puedan ayudar Gracias por adelantado Saludos https://www.mediafire.com/file/gftvekr0z4l7lok/Prueba.xlsm/file Prueba.xlsm

Buenos días, A ver si me pueden ayudar. Con el siguiente codigo consigo desbloquear las hojas de Excel. Pero me gustaría, y no lo consigo, generar un código que al crear un archivo alguien intenta desbloquearlo con esta macro por ejemplo, le pida una contraseña. Por ejemplo, le paso un libro bloqueado a un amigo e intenta desbloquear con este código, y Excel al intentar acceder a la propiedad esta le pida una clave nueva. ¿Es posible? Muchas gracias de antemano.

Hola buenas noches a todos y gracias de ante mano a la ayuda que me puedan dar tengo un libro en excel con macros de un sistema de ventas con ayuda de un amigo lo fui terminando el tema es que tengo varios botones con macro que me llevan a siertas hojas explico con el codigo Sub ARCHIVOS_IR() Hoja3.Activate End Sub ese es el codigo de uno de los botones los otros sin similares bueno lo que nesecito es agregarle a este codigo uno que tenga contraseña para cuando hacen clic en ese boton le pida una contraseña porque son hojas que solo yo puedo ver y modificar si alguien sabe como hacerlo o si me pueden dar alguna ayuda con una buena y larga explicaicon de como se hac…

Buenas tardes, Que podría hacer en la macro del formulario, para que el textBox con formato de fecha (dd/mm/yyyy), cuando lo lleve a la celda de la hoja lo coloque como número, y no tenga que recurrir a la opción de Datos-Texto en columnas. Gracias. Adjunto archivo prueba.xlsm

Hola a todos, Me gustaría que al pulsar una tecla o un atajo de teclado, se le aparezca un mensaje en un MsgBox al usuario de la aplicación ofimática. No sé muy bien cómo plantear el problema. Se me ocurre lo siguiente, pero no funciona: Sub MostrarMensaje() If Application.OnKey Key:="{c}" Then MsgBox "Hola mundo" End Sub Alguien tiene una idea mejor? Gracias.

Buenas saludos a todos de nuevo necesitando de su ayuda,resulta que tengo en un textbox1 una cifra con separador de mil deseo que en el textbox2 al apretar un boton se extraiga el punto como separador de miles y me quede solo la cifra con el decimal que en mi caso es la coma,ejemplo: si en el text1 tengo 25.985,12 me gustaria que el text2 me traiga como resultado 25985,12 sin necesidad de usar Replace(textbox1, Application.ThousandsSeparator, "") si no algo como un ciclo que cuando encuentre el punto lo elimine o algun otro metodo que no sea el que yo indico,intente con Mid() pero no me salio,gracias y espero su valiosa colaboración eliminar punto.xlsm

Hola buen día, Necesito sumar una fraccion de hora, por ejemplo sumar 0.09 hrs a una hora en excel. Ejemplo, yo comienzo un proceso a las 6:31 am y me tardo en ese proceso 0.09 hrs lo que equivale a 5.4 min. Entonces mi hora final debe ser 6:36 am pero no encuentro como sumarle a la hora esa fraccion de tiempo. Anexo archivo. Esto con VBA Gracias TIEMPO POR REFERENCIA FINAL.xls

hola amigos, tengo este archivo que el gran maestro Macro Antonio realizo en cual genera listas de inventario, lo estoy utilizando y funciona de maravilla, mientras el archivo este abierto, es aqui el problema. pues cuando cierro el archivo y vuelvo abrir para seguir realizando los inventarios diarios estos se generan iguales al 1er listado generado. para que lo vena mejor generen lsitad e inventario con la cantidad a inventariar impriman o guardan en otro sitio y cerra archivo. vuelvan a abrir vuelvan a generar la misma cantidad de listas y items a inventariar y veran que son iguales al anterior. y me gustaria pues realizar aleatoriamente estos listados asi cierre …

SOS, estoy desesperada leyendo y leyendo en mil paginas y no consigo resolver mi duda. Tengo un documento word que utilizo a modo plantilla (pero es .doc) y en excel tengo un botón que al presionar quiero que copie el documento word, le cambie el nombre y escriba los valores de ciertas celdas en un sitio determinado. Todo me funciona ok con marcadores de word, excepto para poner una tabla excel en un sitio determinado del word. Este es el código que tengo. nGracias por la ayuda porque de verdad ya no se que hacer. muchísimas gracias!!! Private Sub boton1_Click() Dim aDOC As Object Dim varA As String, fs As Object Dim fichero As String vruta_0 = "c:\prueba\"…