Hola amigos/as. Vengo a titulo de solicitar información o alguna solucion mejor que la mia para lo sigueinte: Linea a linea via AyudaExcel fui construyendo este codigo; Sub EsconderMenu() On Error Resume Next Application.ScreenUpdating = False ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False ' Barra de fórmulas ActiveWindow.DisplayHeadings = False ' Nombre de Filas y Columnas For Each barras In Application.CommandBars: barras.Enabled = False: Next Application.ScreenUpdating = True End Sub[/CODE] No hace falta describirlo pues se que los expertos saben de que se trata. Para lo in…

Buenos días para todos... Mi consulta es: Tengo un excel en donde esta conformado en la primera hoja una lista y n cantidad de hojas donde: n= personas que deben cumplir con ciertos criterios para pasar primera hoja= lista donde deben ir las personas que no cumplieron con ciertos criterios como mencione anteriormente en cada hoja se pone el nombre y cédula del individuo y se desglosa en los criterios que deben cumplir para pasar ejemplo: Experiencia certificada, realizacion de cursos etc... Cuando la persona no cumple con el requisito de terminar estudios se debe reportar en la lista (situada en la primera hoja) con su nombre y cédula... Realice una macro para que c…

Buenas noches a todos, Necesito ayuda, estoy haciendo un excel en VB para hacer presupuestos y me quedado encallado en lo siguiente... Estoy metiendo unos CODIGOS, DESCRIPCIONES, CANTIDADES, PRECIO COSTE, MARGEN, PRECIO DE VENTA, ETC.. en un ListBox. Cada cierto tiempo he de ir sumando (Con un Boton) en otra fila el total hasta ese punto (TOTAL PARTIDA), luego sigo añadiendo artículos y le vuelvo a dar en añadir PARTIDA, pero no consigo sumar desde la ultima fila que ponia TOTAL PARTIDA hasta la ultima que añadi. OS adjunto una imagen para que os hagais una idea y el código. Gracias Un saludo. Private Sub CommandButton7_Click() Dim i As Byte, tot As Currency For …

Hola Amigos: Quisiera saber su existe algun macro que auto ejecute otro macro contenido en un formulario cada 2 segundos y que se empieze a ajecutar al abrir el formulario, lo que pasa es que en este formulario tengo un textbox que necesito que se actualice cada 2 segundos para tener datos actualizados. saludos

Como se puede adaptar este calendario a un archivo para que se pueda ver en todos los equipos en un userform. Anexo Archivo modelo con userform. Gracias

Hola, tengo un libro con el que hago escandallos para un restaurante. El libro contiene varias macros. Y cada vez que lo abro me da el siguiente error: Aviso: Hemos encontrado un problema con contenido de "wary_escandallos_19.xlms". ¿Desea qué intentemos recuperar el máximo de contenido posible? Si confía en el origen de este libro, haga clic en Sí. Le quito las macros y sigue dando el error. No se donde puede estar el error. No sé si tendrá algo que ver qué dicho archivo se abre en windows y en mac indistintamente. Muchas gracias por vuestras sugerencias.

Buenas tardes, como siempre recurro a vosotros cuando no encuentro una salida, de antemano muchísimas gracias por atender mi petición. Bueno vamos a ello. Necesito hacer una macro que me ordene los datos de la hoja adjunta (columnas A y B) de manera que queden como esta en las columnas (F y G), en principio no es difícil ya que es un orden alfabético por la columna “B”. El problema es que los datos de la columna “B” provienen de una fórmula que busca los datos de “A” en otro libro y si lo encuentra nos devuelve los datos de la columna “B”. Cuando intento ordenarlos por la columna “B” como la formula hace referencia a la celda del mismo número en la columna “A” se estropea…

Buenas Tardes, Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar. Muchas gracias de ante mano. Sub enviar() Sheets("Envios_mail").Select ufila = Range("a" & Rows.Count).End(xlUp).Row For i = 1 To ufila If Cell…

Buenas tardes, he estado empezando a trabajar con el Listview ya que a comparación de un listbox este podemos darle mas orden a los números, colores de acuerdo a criterios y bueno tengo la siguiente duda en cuanto a filtrar, si se filtra de acuerdo a un criterio solo muestre un solo valor por ejemplo en la imagen muestra en la ultima columna: B001,B001,B001,B002 Y B002 , si me pueden ayudar que solo muestre B001 y B002 (si se coloca B en el textbox1), ya agradecido por su lectura. Adjunto archivo. Filtrar datos en Listview.xlsm

Amigos alguien sabrá como puedo aplicar un conteo en ves de datos del color de la celda.. gracias de antemano

Saludos tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo. algo asi Sub filtro_interactivo() año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL") ' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019 If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items < año2 Then ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true End If End Su…

Buenos días Podríais ayudarme a refinar esta macro que realice con la grabadora. Gracias Sub MetodoAbrirLibro() Workbooks.Open "C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls" Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("A8:f78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("A8:f78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("F2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("G3").PasteSpecial xlPasteValues Windows("P…

Hola a todos; Adjunto una macro que simula un poco a un gestor de imágenes. En dicha macro hay un formulario y un botón con el cual importo a un listBox los archivos que tengo en una carpeta. Lo que no sé es como filtrar desde un textBox dicho listBox. Y también como cargar el listBox el abrir el formulario. Adjunto macro y un breve video. https://youtu.be/NkjF21iSoYc MCargar.zip

Hola Estimado, Saben si es posible leer una imagen desde vba excel y colocar lo que dice la imagen en una celda de excel? Encontré este ejemplo en internet, pero no me sirve, ya que alcambiar la imagen por otra, sigue poniendo el dato de la imagen anterior, https://drive.google.com/file/d/1Oah4v6U1pX0jvhGDQExKqkGhoSSRkWxS/view

Una pregunta: "¿Alguien sabe cómo centrar los títulos de un cuadro MsgBox que no se utilizando espacios en blanco, sino que se realice de manera automática?" Debe existir algún valor de una propiedad que desconozca. Gracias.

Buenas, tengo un Listbox, el cual cuando inicia el programa me lo trae con informacion que carga de la hoja 1, y a la par asociado un Combobox que se le va agregando mas info a este Listbox. El problema pasa cuando Inicia, y me carga la info previa que hay en la hoja 1 en el listbox, ya que luego, al agregarle mas info por el combox me deja un espacio en blanco. a continuacion el codigo que tengo Private Sub UserForm_Initialize() Application.ScreenUpdating = False Worksheets(1).Select Y = 0 vuelve: a = Cells(Y + 1, 12) If a = "" Then GoTo seguir: Y = Y + 1 GoTo vuelve: seguir: Range("L1").Select For ii = 1 To Y ActiveCell.Offset(1, 0).Select ListBox1.Add…

Tengo un archivo quisiera generar una macro que me extraiga la información de las transacciones ordenadas en una hoja de excel y no encuentro la manera de solucionar ya que tiene varios emcabezados, Gracias por su ayuda adjunto archivo de ejemplo. 20131009_20131009.txt

Necesito una macro que busque un producto (hoja productos) en el ejemplo estan los productos del 1 al 100 los productos 1 y 2 han cambiado de estado. Lo que requiero es que la macro me permita elegir un producto y preguntar si desea cambiarlo de estado (los estados estan en la hoja de estados) a otro de mayor nivel. Que al preguntar lo hago por un option button y que me traiga los mismos datos del producto solo que le cambie el estado, gracias

Hola Buen día, necesito su ayuda En esta ocasion como dice el titulo quiero que de un valor en Textbox (previamente seleccionado de un listbox) se completen otros textbox en el mismo formulario, Necesito que se tomen los datos de una hoja determinada. Para despues pasarlo directamente a la hoja activa, bueno esto si se hacerlo, solo necesito que se completen los textbox Gracias completar textbox.rar

Buen Día Debo comentarles que soy nuevo en este foro..y quiero agradecer de antemano su ayuda. Mi problema es el siguiente.. Estoy realizando una Macro en la cual a partir de una cadena necesito extraer una cifra (caracteres) en especial, para esto utilizo las formulas Hallar (Search) y MED(Mid), el detalle es que dentro de la macro al ejecutar la formula Search me muestra un error : No se puede obtener la Propiedad Search de la clase WorkSheetFunction.Les explicare que ago.. 1.- Una de las cadenas es la siguiente : "Delicados con Filtro1/8/25" "Focos Phillips 100W 1/10" *Se encuentran dos situaciones la Primera es que en la opción "Delicados con Filtro1/8/25" nece…

Hola de nuevo. Llevo varias horas con esto y no consigo trabajar bien con las horas en VBA. Ahora mismo el problema que tengo es que con este código no me suma los Textbox vacíos. Necesito que los sume como "cero". Porque a veces no hay hora de entrada, o tampoco final, simplemente porque ha estado de vacaciones. O por ejemplo no ha habido tiempo para comer porque se ha hecho la jornada continua. ¿Podéis ayudarme? Me da lo mismo que lo de en horas (hh:mm) que en decimal, pero que me de el resultado., que no sea un número entero. TextBoxT1 es el resultado, TextBoxS1 es la hora Final, TextBoxE1 es hora Inicio, TextBoxN1 es el tiempo para comer. Es decir que a…

Necesito completar una ficha en Excel pero utilizando un formulario de Visual. La ficha de Excel es : [ATTACH]35900.vB[/ATTACH] Lo que necesito es que la imagen se coloque en el espacio que quedó combinado entre las celdas A2 y A5, osea, necesito que la imagen quede de ese tamaño. En la parte del formulario de Visual he hecho esto: [ATTACH]35901.vB[/ATTACH] siendo el botón "Examinar" el CommandButton4 (la idea es que al apretarlo abra la base del disco de la computadora y me permita buscar una imagen y seleccionarla) y el botón "Ingresar y Continuar Fichando" el CommandButton1, que al apretarlo tendría que subir la imagen y ubicarla en el espacio antes mencionado, c…

Hola tengo esta macro si me funciona pero me pregunto si hay manera de modificarla y no repita las lineas de código ya que necesito que se haga la búsqueda hasta la columna DL Tengo una serie de datos mas o menos asi: A__M__N__DK__DL 1__4__5__2___3 3__6__7__6___1 3__2__6__12__11 4__1__1__4___9 7__3__2__13__32 9__3__5__7___5 9__2__4__3___90 DP_DQ_DR_DS_DT 1__4__9__11_14 3__8__21_39_51 4__1__2__6__15 7__3__5__18_50 9__5__14_24_119 Sub sumarsi() Application.ScreenUpdating = False Dim uf As Long, uf2 As Long Dim rangocriterio As Range Dim rangosuma1 As Range Dim rangosuma2 As Range Dim rangosuma3 …

Buenos dias a todos, primero que todo quiero agradecer a todos por su ayuda que me puedan brindar, y segundos pues necesito una macro la cual yo tengo una un listado en la pagina 1, donde tengo un listado tal como podrán ver en el documento que adjunto, lo que necesito es una macro la cual del listado que hay donde aparece nombres y luego debajo aparecen varios datos por cada fila, pues que en la Hoja2 se peguen los datos de cada nombre que aparece en vez de un listado en conjunto, que sera un listado por cada nombre que aparece, generando así columnas nuevas. Una cosa mas, se tienen varios nombres y los datos que tiene cada nombre puede variar y en algunos pueden s…

Hola. Tengo un listbox desde el cual quiero copiar un item seleccionado con doble click. El contendfio lo copia bien pero al pegarlo siempre me pega "??", dos interrogantes. He utilizado varios codigos y siempre ma pasa. Alguien podria decirme que hago mal?. Este es el codigo que utilizo: Private Sub ListBox_CONCEPTO_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim DMyData As New MSForms.DataObject 'Dim MyData As DataObject Dim copia As String Set MyData = New DataObject copia = ListBox_CONCEPTO.Text MsgBox copia MyData.Clear MyData.SetText copia MyData.PutInClipboard End Sub Gracias. MJ