Leaderboard

Hola @MauriciodeAbreu Selecciona el formulario y busca la propiedad "StartUpPosition". Te dejo una img Eres nuevo. Por favor ten en cuenta que, para una mejor resolución de los problemas, debes subir un archivo ejemplo (no necesariamente el original ni con datos verdaderos, pero que tenga la estructura de aquel). Si deseas retribuir el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Qué tengas un buen día! Suerte!

Me aburría y he hecho esto. Abre el adjunto y pulsa sobre la flecha verde. Nota: Si utilizas una tabla en la propiedad RowSource de un listbox/combobox e intentas añadir/eliminar una fila da error, para evitarlo, debes desvincular la tabla del control y volver a cargarlo. En el archivo que he subido verás como hacerlo. 🙂😷 Inventario.xlsm

Hola a todos No pasa nada, solo usa tus lentes y ya Otra opción es usar el evento Layout del formulario, tal que: Private Sub UserForm_Layout() With UserForm1 .Left = 100 .Top = 300 '.Width '.Height End With End Sub Saludos!

Hola @MauriciodeAbreu Te dejo mi aporte, Nos comentas. PD. Solo modifique las propiedades: LEFT yTOP Formulario1.1.xlsm

Hola @jeaa Amigo, aquí te dejo una nueva versión (modificada para ver si podemos salvar el error que te saca fuera de la aplicación) Te agregué un formulario para que te haga las veces de formulario principal (menú). Si te continúa dando problemas, lo vemos. Qué tengas un buen día! ae20200731_post43836_inventario v2.xlsm

Los títulos de la fila 1 en ambas hojas han de coincidir exactamente. Sub CopiarPorNombre() For y = 1 To Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column Set columna = Hoja2.Rows(1).Find(Hoja1.Cells(1, y), , , xlWhole) If Not columna Is Nothing Then Hoja1.Columns(y).Copy Hoja2.Columns(columna.Column) Next End Sub

Esto pasa cuando dáis cosas por hecho al explicar el problema o subir los archivos... Que no tienen nada que ver lo que se hace con lo que necesitáis . En fin... Te dejo la solución, que espero que ahora sí Copia de BUSCAR DATO EN OTRA HOJA-1.xlsm

Silvia Creo que itz tiene razón en parte de no funcionar lo que le indicas, esto porque ella debe notar que la forma como se visualizan los datos no es la misma como esta definido en la celda, lo que significa que lo que se busca no es exactamente lo mismo (en cuanto a los datos con los que se cuenta), p.e esto puede ser algun espacio o caracter no visible a simple vista. Esto puede suceder cuando se extraen datos desde la web, esta es una posible razón para que una busqueda o las funciones de busquedad no encuentren el dato. Por ejemplo si buscas 5/1/2020 se posicionará donde encontró la coincidencia : Pero si digitas 05/01/2020 te saltará el error:

Saludos @andres palacios, te dejo un ejemplo que toma los 12 datos de la pagina indicada, con esto deberías poder continuar esto es un archivo que baje hace tiempo de internet, simplemente lo ajuste para tu pagina, allí tienes bastante información suerte Ejemplo.xlsm

Te podrá ayuda en algo: http://www.cpearson.com/excel/unselect.aspx

hola itz Según lo que comentas, con CONTROL+B, es suficiente... (explora esa opción, puedes buscar solo en la hoja, en todo el libro, puedes reemplazar valores, etc, etc, etc...) Espero te sea de utilidad Saludos, Silvia

Siempre tienes un truco bajo la manga! al carajo los lentes que pase a comprar entonces.... Saludos J

Hola @Alexmoon Te dejo una prueba para que veas si te conviene. Es muy complicado para el usuario filtrar en la misma hoja (por ahí puedes tener los datos en una hoja separada y filtras desde otra). Tú decide. El archivo está focalizado en base a tu pedido. Para actualizar la lista del filtro, solo elige otra Hoja cualquiera del libro y vuelve a ingresar. Si deseas valorar el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Qué tengas un buen día! Suerte! ae20200804_post43852_prueba filtro.xlsm

Hola Te subo una opción con tabla dinámica, considero que es la mejor opción, especialmente como tu que no maneja mucho el tema de las formulas Saludos INT-Listado De Recibos Paralizados Ayuda Excel.xlsx

¡Hola a todos! Revisa el adjunto. ¡Bendiciones! Libro1 (7).xlsx

Hola Tu Office es de 64 bits y en el archivo de ejemplo enviado hay varias funciones de la API de Windows que hay que modificar en las declaraciones. Modifica toda la parte que está entre la línea #If VBA7 Then y la línea #Else reemplazando por las siguientes: Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPtr Private Declare PtrSafe Function TerminateProcess Lib "kernel32" (ByVal hProcess As LongPtr, ByVal uExitCode As Long) As Long Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr Private Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal ncode As Long, ByVal wParam As LongPtr, lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Yo prefiero usar Public, pero lo dejo en Private como te lo han mostrado. Saludos.

😅😊 En la celda E10 debes escribir o seleccionar de alguna lista, el mes que deseas traer, por ejm Ago en F10: =INDICE(Hoja1!C10:N10,COINCIDIR(E10,Hoja1!C2:N2,)) //----------- 🙄 O si lo que quieres es traer el dato del mes actual =INDICE(Hoja1!C10:N10,MES(HOY())) Mi separador de argumentos es la coma, si el tuyo es otro, corriges. saludos, 😀 Silvia

Hola Ramonvar, espero te sea de utilidad 😅🤣

Saludos Prueba1.1.xlsm

Hola Te adjunto una opción en el adjunto Saludos Almacenar Fechas en Matriz_GP.xlsm

Hola @MauriciodeAbreu Dejo este enlace dentro del foro: Además te dejo mi aporte, espero que sea de utilidad, nos comentas, Saludos.!! InputPaswordChar1.1.xlsm

muy agradecido a los me han ayudado logre solucionar justos con sus ayudas mi proyecto sus aportes de cada uno de ustedes me han servido mucho...Gracias tema concluido.

hola Diego (y Luis Caballero) adjunto otra posible solución Saludos, Silvia sq.xlsx

Revisa el adjunto, el código está comentado, compáralo con el tuyo para ver las diferencias. Puede que haya algún error de interpretación de lo que pretendes hacer. VERSION 5.9.xlsm

Hola @jeaa Envió tu archivo de vuelta. Tarda un poco, por que después de cada registro, en el código quitas el UserForm en cuestión y lo vuelves a cargar.(No le veo propósito) No me marca error, pero hay algunos eventos que no tienen código, por lo que no tiene sentido que los tengas registrados. Nos comentas Inventario1.1.xlsb

Juraría que lo dejé para que funcionara al agregar más hojas. Mañana le echo un vistazo

Hola Puedes hacer uso de un macro de evento, te dejo un archivo de ejemplo Además un tema similar al tuyo aquí Saludos A mayuscula_GP.xlsm

Que bien Ruben! Solo debes presionar ctrl+k, para revisar ese atajo de teclas, debes ir a la ficha de programador/desarrollador y das click en macros, luego buscas el nombre de la macro, click en opciones y ahi podras ver Es básicamente pasar de columnas a filas las que se contemplan como categoría, por ejemplo, si tienes los meses de enero a diciembre horizontalmente, estos se deben transponer a filas, de modo que los meses se van a repetir tanta veces existan valores por cada uno y así sucesivamente y disculpa pero tu tabla si esta tabulada, pero lo que hace falta es trabajar de otra manera tus datos con power pivot, de manera que después de ese proceso y de relacionar ambas tablas, si se pueda hacer una tabla dinámica de la forma actual Saludos!

Hola No, no es posible cambiar ese color a través de VBA.

En fechas se puede ver 04-01-2020, pero en el cuadro de formula Fx yo veo 04/01/2020 Tal vez es eso, prueba con 04-01-2020 y si no, no estás buscando con las opciones adecuadas...

EL código que has subido funciona correctamente, siempre y cuando exista la hoja Hoja1.

sILVIA LO HAGO COMO DICES Y ME DICE QUE NO ENCUENTRA: CTRL +B INTRODUZCO GECHA EN CASILLA BUSCAR Y NO ENCUENTRA. HE HECHO TU MISMA BUSQYEDA

Hola @gacg1310 Ante todo, una aclaración: no tuve el tiempo necesario para revisar el archivo. El problema está cuando pones *.Enabled ="" (es simplemente "TRUE" o "FALSE") Dejo el código para reemplazo (pon un apóstrofo por delante de la frase para anular) Éste código lo encontré en el Userform2. Qué tengas un buen día! Suerte! Private Sub UserForm_Initialize() CheckBox1.Enabled = True 'CheckBox1.Enabled = "" CheckBox2.Enabled = True 'CheckBox2.Enabled = "" End Sub

jajajaja yo creo que ya hacen falta... 🧐 😂 Excelente!!, muchas gracias, lo tendre muy en cuenta. 👍 Nuevamente gracias a todos!! Saludos...

Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente, gracias a todos por el tiempo que me brindaron. Saludos, Tema solucionado.

Hola de nuevo. Por ahora solo funciona para la hoja "Folios Vencidos" Nos comentas. Prueba.xlsm

Muchas gracias por la respuesta, una disculpa, desde el sábado no he podido checar el mensaje, mas tarde valido, y les cuento, Saludos y excelente día.

Ummm, Entonces, tenemos un problema de entendimiento. @MauriciodeAbreu, por que mejor nos compartes una imagen o dentro del mismo archivo a que te refieres con: Por que me incline a pensar que lo que necesitabas era el Passwordchar, para que la clave no estuviera visible en el Inputbox (Que es lo el archivo que te envié hace): Si nos ayudas con eso, es más probable que respondemos tu consulta.

Recientemente estaba trabajando algo muy parecido a su consulta, pero usando Power Query. Para filtrar una tabla usando como parametros externos las celdas donde estan las fechas encontré la información en esta página WEB: Power Query – Using Parameters https://exceloffthegrid.com/power-query-using-parameters/ Adjunto archivo con la tabla "resumen", que cumple como criterio las fechas inicial y final que ha en las celdas nombradas como Fecha_INI y Fecha_FIN EXTRAER REGISTROS ENTRE DOS FECHAS.xlsx

Va de nuevo, para 64 bits. Nos comentas, Saludos. InputPaswordChar1.2.xlsm

Hola @MauriciodeAbreu En la propiedad "PasswordChar" ingresa un asterisco. Te dejo una img. Qué tengas un buen día! Suerte!

Sin macros se puede hacer muy fácil con Office 365. ¿Que versión de Excel está usando? Usando las funciones: UNICOS FILTRAR EXTRAER REGISTROS ENTRE DOS FECHAS.xlsx

A ver si ahora... Copia de BUSCAR DATO EN OTRA HOJA.xlsm

¡Hola, a todos! Otra propuesta en el adjunto. ¡Bendiciones! Cuotas - Rangos dinámicos.xlsx

Una nueva propuesta con rangos dinámicos. Cuotas - Rangos dinámicos.xlsx

A ver, ¿Entonces cuásl es elvalor que realmente PONES A MANO y dónde? Porque entonces puede que cambie toda la filosofía de la macro 🤕

A ver, para eso habría que buscar el elemento por los 3 campos, pero al cambiar cualquiera de ellos para modificarlo ya no funcionaría. He creado un ListBox con 3 CheckBox para que elijas mostrar o bien TUBERIAS, bien CABLEADO o ELEMENTO. La idea es que elijas en el listbox el elemento a modificar y cambies los valores en los ComboBox, ycon un botón modificar el que está seleccionado. Ahora la pregunta... ¿Quieres el el ListBox funcione así, o que puedas listar en él todos los elementos, o solo 2 de ellos (p.Ej ·TUBERIAS y ELEMENTOS)? Esto se va complicando...

Hola, mira si esto te sirve Libro1.xlsx

Hola Intento1.1.xlsb@gacg1310 Sin una muestra del archivo es difícil acertar, en base a él archivo TXT que envias te dejo una posible, pero muy alejada solución. Saludos.

Lo siguiente no tiene intención de publicidad pues no soy beneficiado en nada por comentarlo. No obstante a modo de informacion me he encontrado con un utilitario para crear código macro vba para diversos casos de proyectos que se quiera hacer, no sé qué tan eficiente sea pero para quienes no somos informáticos o conocemos poco o nada de código vba supongo que sería útil. De pronto me he encontrado con esto, y me parece que en el mismo excel se lo puede crear supongo con una base de datos de diversos propósitos genéricos o al menos de muestras o ejemplos. me pareció interesante lo comparto.... Cuál sería la limitante?? supongo en ideas complejas de proyectos. https://www.automateexcel.com/vba-code-generator