Amigos, la siguiente macro se ejecuta perfectamente, pero al terminar de ejecutarse aparece Error 13 "No coinciden los tipos", no he podido encontrar la solución. Alguien me puede ayudar? (Ya probé instalando el Hotfix KB983246). Saludos......................................................................................................................................................................Sub Tramos() 'Borrar Datos Anteriores '**************************************************** Range("L4:M175").Select Selection.ClearContents Range("L4").Select '**************************************************** Dim m, j As Double Dim p, n, u, r, t, k, w…

Buenas compañeros, un gran placer saludarles. Les escribo una duda que tengo, ojalá me puedan ayudar. ¿Cómo podría filtrar el valor de una variable que tengo definida en el código y a su vez tengo indicado su nombre en una celda de excel? Por ejemplo: La variable a=12 (en el código) Si escribo "a" en una celda como puedo poner el filtro para que filtre el valor "12" y no el valor "a". Es decir, que el criterio de filtro sea el valor de la variable a, que he indicado en la celda. .Range("A1:D200").AutoFilter field:=1, Criteria1:=(El valor de la variable a) Muchas gracias a todos por su valiosa ayuda. Un abrazo

¡Saludos nuevamente amigos de AyudaExcel! En esta oportunidad les solicito su colaboración para realizar una tabla filtrada con las siguientes características el cual ejemplificaré fácilmente: En mi país (Venezuela), la organización territorial es de mayor a menor en 24 Estados, cada estado se divide en Municipios q son en total 355, los municipios se dividen en unas cuantas Parroquias y estas a su vez en otro tanto de Sectores El caso es que quiero filtrar datos los cuales están contenidos en Sectores, pero para eso primero tendría q seleccionar en una celda, tipo lista desplegable (la cual ya se hacer este paso por "Datos--->Validación de Datos"), Estados, para qu…

Hola a todos, escribi una macro para que cuando apieto un boton en un textbox me tenga que aparecer la ultima fecha ingresada, pero no funciona, lo dejo por si alguien me puede dar una mano y decirme que estoy haciendo mal. yo creo q es xq deberia transformar las fechas a otro tipo de dato para comparar o compar los años, los meses y los dias por separado. Muchas gracias! Prueba Visual.rar

Buenas tardes, Tengo una hoja excel con varias pestañas con datos. Estos datos los consolido en otra hoja en el mismo documento. Lo hago manualmente utilizando la función del menú Datos-> Consolidar. Quería automatizar el proceso y crear una macro para que sólo pulsando un botón lo hiciera, A través de Menú Programador, quise grabar la macro, pero me da error al grabarla. He estado buscando por internet y en el foro y no encuentro como usar la función "Consolidar" en una macro. ¿Alquien me podría ayudar por favor? Gracias!

Buenas foro. Estoy intentnado aplicar el comando attrib /s /d -r -h -s *.* en la unidad d: y no se como hacerlo para insertar dos comandos, con uno solo no tengo problema Call Shell("cmd.exe /S /K" & "D:", vbNormalFocus) Como seria para justo despues aplicar el comando attrib?

Pues eso amigos, al agregar cliente nuevo, al pasar al TextBox2 me dice eso (OCURRO UNA EXCEPCION) y no puedo seguir. Ya di vueltas al codigo pero como praticamente nada entiendo pues, quisiera una ayuda de algun experto en la materia. Estuve con F3, averiguando los nombres y algunos hacian referencia a un directorio y libro no se el porque, ni libro ni directorio existen, elimine esos nombres Agradecido. Fiesta0.part1.rar Fiesta0.part3.rar Fiesta0.part2.rar

Buenas tardes para todos: Tengo una hoja de Excel donde la celda A1 tiene la fórmula "=1+1", que tiene como resultado el número 2. A través de VBA, sin usar barra de herramientas, quiero copiar ese valor 2 en la celda B1, pero no la fórmula. Actualmente, el sistema sí copió lo que hay en la celda A1, pero copió la fórmula, yo necesito que copie el valor. Ya he leído muchas páginas en Internet, entre ellas, las siguientes: Copy value not formula excel vba Copiar el resultado de una formula y pegarlo como valor automaticamente He probado con los siguientes métodos, que no me han funcionado como lo necesito: .PasteSpecial Paste:=xlPa…

Buenas tardes: Necesito que una columna entera en una hoja de Excel (donde hay una fórmula) quede protegida para que nadie pueda modificarla pero sin tener que proteger la hoja entera. Cómo hacerlo? Gracias!!

Buenas Tardes, Alguien me puede ayudar a que al momento de apretar el boton "Eliminar", este permita elimina más de una fila del listbox. Además al momento de usar el textbox como filtro que también pueda eliminar más de una fila filtrada del listbox. Adjunto mi archivo. Gracias! PRUEBA.xlsm

Hola estimados. Tengo una tabla en la cual realizo diferentes acciones desde un formulario, en este punto pretendo filtrar a travez de un CheckBox desde un formulario 3 campos de una columna, esto lo he logrado con el siguiente código Private Sub rojo_Click() If rojo.Value = True Then ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="rojo" Else ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3 End If End Sub Private Sub CheckBox29_Click() If CheckBox29.Value = True Then ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="amarillo" Else ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3 End…

Buenas tardes, Ante todo, muchas gracias por vuestra página Web, que me ha permitido avanzar bastante en el fascinante mundo de la programación VBA, pero no lo suficiente, ya que no fui capaz de resolverla esta duda que les envío a continuación: Tengo una serie de datos de diferentes respuestas, agrupados por columnas (a partir de la D) y quisiera obtener sus modas, es decir el valor que más se repite, en función de que la clase a la que pertenecen, la cual la tengo definida en la columna D. [TABLE] [TR] [TD]Columna [/TD] [TD] D [/TD] [TD]E [/TD] [TD]F [/TD] [TD]G [/TD] [TD]H [/TD] [TD]I [/TD] [TD]J [/TD] [TD]K [/TD] [TD]L [/TD] [/TR] [TR]…

verán, estoy haciendo un programa en el cual debo insertar una imagen (algo así como una base de datos) y lo que quisiera hacer y no me sale es que en otra celda me ponga el nombre de la imagen seleccionada. adjunto un ejemplo del archivo que estoy haciendo a ver si alguien me puede ayudar. desde ya muchas gracias! ejemplo.rar

Saludos a todos me pudieran ayudar con este codigo el cual pretende como menciona el encabezado pasar los datos de listbox a una tabla usando sentencias SQL lo intente de esta manera: ABRIR_RS 'Crea el objeto recordset Sql = "Select*from [productos$]" Rs.Open Sql, Cnn, 1, 1 With Lista 'listbox For i = 0 To .ListCount - 1 Rs.AddNew Rs!ID = .List(i, 0) Rs!CODIGO = .List(i, 1) Rs!ARTICULO = .List(i, 2) Rs!PVP = .List(i, 3) Rs!IVA = .List(i, 4) Rs!MEDIDA = ComboBox1.List(ComboBox1.ListIndex, 0) Rs!CATEGORIA = ComboBox2.List(ComboBox2.ListIndex, 0) Rs!STOCK_MINIMO = .List(i, 7) Rs!ESTATUS = .List(i, 8) Rs.Update Next i …

Hola a todos. Estoy creando una tabla que me permita filtrar su contenido utilizando una lista desplegable para seleccionar la columna a filtrar y una caja de texto para el criterio. Hh logrado que funcione para todo menos para fechas y números. Lo de las fechas entiendo que puede deberse a la forma que excel las almacena, pero lo de los números me tiene confundido. He intentado definir la variable para el criterio (crit) como variant o sencillamente no definirla, pero el problema persiste. Este es el código que tengo para filtrar (Corre cuando se le da a enter en la caja de texto) Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Inte…

Hola. Tengo el siguiente inconveniente, necesito abrir una nueva ventana con un libro distinto y requiero que lo haga en una hoja en especifico. Como podría hacer. Yo tengo la macro para abrir la ventana nueva con el libro que deseo pero me falta solo la linea de codigo que me haga que el libro se abra en la hoja deseada. Esto es lo que tengo: Sub llevar () Workbooks.Open ("C:\Mis documentos\CARPETA\Ficha.xlsm") Application.WindowState = xlmaximized End Sub Gracias a los que me puedan ayudar.

Hola muchachos, quería solicitarles una ayuda con lo siguiente: Tengo que filtrar 50 tablas dinámicas desde un listado, estas tablas se filtran por "Zona" (Lo primero que hice fue copiar 50 veces el código y cambiar el valor manualmente, pero ya siendo esta la 3era vez que debo cambiar valores, consideré que un array es mucho mejor). Sub arreglo() Dim miArra(0 To , 0 To 3) As String miArra(0, 0) = "Las condes" miArra(0, 1) = "San Bernardo" miArra(0, 2) = "Talagante" For Cont = 0 To 3 ' División de Tablas Dinamicas Sheets("Hoja1").Select Range("Tabla1[#All]").Select 'Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, Source…

Buenas noches mi pregunta es la siguiente, para quien desee ayudarme con este codigo...Muchas gracias de antemano... Tengo un formulario y dentro de el un listboxt, el cual carga al inicializarce las 13 columnas de la hoja excel, pero cuando hago una busqueda por nombre solo me carga 10 columnas, yo se que solo llega hasta 10, pero me gustaria saber como con rowsource puedo cargar con la busqueda las mismas 13 columnas...Muchas gracias. Private Sub nombre_Change() 'Primero exige que sea texto If IsNumeric(nombre) And _ nombre.Text <> "" Then Beep MsgBox "DEBES INTRODUCIR SOLO TEXTO" nombre.Text = "" nombre.SetFocus End If 'solo …

En Hoja ENTRADAS Y SALIDAS al seleccionar Botón NUEVA ENTRADA se posesiona en fila inicial 8. En celda C8 con BUSCARV Busca el Código B8 en Hoja INVENTARIO Rango $A8$E1000 pero al agregar un NUEVO ARTÍCULO en Hoja INVENTARIO y volver a Hoja ENTRADAS Y SALIDAS en Celda C8 se ha cambiado la fórmula de BUSCARV y aparece Rango $A9$E1001 (es decir me cambia el Rango de BUSCARV). Muy cordialmente solicito, favor colaborarme GESTION DE INVENTARIO.xlsm

Buenos días, A ver si alguien me puede ayudar con esta macro : Lo que necesito es poner la ruta que hay + todas las subcarpetas que hay después de \2019 Pedidos\..... y no se como hacerlo, Gracias de antemano Sub Proceso_hipervínculo_al_pedido() Ruta = "\\192.169.11.18\RecursosCompartidos\ADMINISTRACION-VENTAS\Interdepartamental\2019 Pedidos\" parte = ActiveCell.Value Set fso = CreateObject("scripting.filesystemobject") Set carpeta = fso.getFolder(Ruta) For Each archivo In carpeta.Files If archivo.Name Like "*" & parte & "*" And Right(archivo, 3) = "pdf" Then Shell "C:\Program Files (x86)\Adobe\Acrobat D…

He traído una nueva inquietud, reciban saludos. ¿Cómo separar completamente nombres y apellidos a través de una macro? Es decir, poner primer nombre en B2, segundo nombre en C2, primer apellido en D2, segundo apellido en E2, y así respectivamente con cada uno de los ejemplos. ¿Es posible? Libro1.rar

¿Libro bueno para principiantes Macros y VBA con muchos ejemplos?

Hola a todos. tengo un problemilla, es que tengo para insertar una imagen cuando cambio una celda pero resulta que pongo para que antes elimine la anterior y no lo hace, la imagen la insera una encima de otra sin borrar nada. tambien me gustaria saber como poder poner la imagen con la orden de que se inserte por debajo, ya que son de unas graficas y tapan las lineas que uso para las graficas. este el codigo que tengo: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Select Case Target.Column Case 1 ActiveSheet.Shapes(Target.Address).Delete 'con esto se deberia borrar la imagen de antes pero no lo hace For x = 1 To 7 'Rang…

buen dia tengan, de nuevo por estos lados con la interrogante de como puedo usar toda lo hoja de un libro ya que me da error el formulario cuando tengo demasiados datos (arriba de los 1000). La manera y forma en que esta hecho el formulario me gusta pero no logro encontrar el error de ¿porque no puedo usar toda la hoja?, principalmente cuando le doy buscar un dato, me podrian ayudar a poder utilizar bien este formulario para poder meterle la cantidad de datos que contiene la hoja (xfd por 1048576). espero sus amables aportaciones y de antemano gracias. todalahojaconlistbox.rar

Buenos días amigos, un gusto saludarlos de nuevo, Espero alguien me puede dar una idea de como puedo realizar este pequeño proyecto! Tengo un libro donde lee un archivo xml. Dentro del archivo xml trae complemento, como a continuación se muestra: Esta información ya lee el código, sin embargo, solo he logrado dejar esta información en una sola celda, pero lo que necesito es dejar en diferentes celdas cada IdDocumento. Cabe mencionar que en cada .xml esta información es variable. Adjunto archivo de ejemplo y unos xml por si necesitan realizar pruebas. De antemano gracias. Libro1.xlsm data.xml data - copia.xml