Hola amigos del foro, utilizo actualmente el siguiente código para extraer un rango datos de todas las hojas de un libro y colocarlo en otra hoja. Este libro se hizo con el tiempo cada vez más pesado y tuve que hacer un libro para cada hoja, pues aquí radica mi problema: tengo que ajustar mi código para buscar en todos los archivos de la carpeta. On Error Resume Next Dim wrbLibro As Workbook Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet Dim CurFilename As String CurFilename = Sheets("RANGOS").Range("A1") Set wrbLibro = Workbooks(CurFilename) Set wrsHojaActiva = ThisWorkbook.Sheets("RESUMEN") For Each wsHoja In wrbLibro.Worksheets If wsHoja.Name = "VIAJ…

Hola, saludos a todos os comento lo que quiero conseguir usando una macro. Tengo un excel con varias hojas pero he sacado las dos con las que tengo que trabajar, en la hoja "Rutado Cables" se va añadiendo información y en la hoja "Formato Llenado" se saca un resumen. En la hoja "Rutado Cables" en la fila 18 se van añadiendo las bandejas y en la columna C se van añadiendo los cables. Cuando un cable va en una bandeja en la celda donde se encuentra fila y columna se coloca un "1" , como se ve en el ejemplo. Como he dicho antes la información se coloca manualmente. En la hoja "Formato llenado" en la columna "B" se copia manualmente el nombre de la bandeja, lo qu…

Buenas tardes; Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Va…

Un gran saludo.. Tengo una macro que filtra de 120 preguntas, las que mayor puntaje hayan obtenido, estaba funcionando perfectamente con la hoja protegida. Pero de un momento a otro comenzó a mostrar error y no funciona. Adjunto la macro, agradezco de antemano la ayuda para solucionar este impase... Sub FILTRO () Dim RNG As Range Set RNG = Active Sheet.Range("Xxx") RNG.AdvancedFilter Action:=xlFilter Copy, CriterialRange:=_ Active Sheet.ListObjects("Tabla1").Range, _ copytorange:=("B180"), Unique:=False Sheets ("Xxx").Select End sub

Necesito actualizar a diario varias tablas desde web segura https. Necesito algun experto que me ayude a realizar este cometido. El trabajo consiste en acceder logeandome a una web segura y bajar de determinado sitio de la web tablas en excel que actualice los datos de la tabla que ya tengo realizada. Estaría dispuesto a pagar determinada cantidad por esta macro. Un saludo.

Que tal buenas tardes, Hace un momento estube revisando el post del buscador con 3 criterios y encontre lo que e estado buscando ya hace mucho, ha sido de mucha utilidad para mi proyecto solo tengo un pequeño problema al buscar me envia los dastos al listbox todos en una sola linea quisiera que al buscar busque cada una de las compras del cliente (lo cual ya lo hace) pero que los presente en el listbox de esta manera 101 Pitahaya Bar EIRL 19/09/2013 (estos son lo datos del cliente hasta aqui todo bien) 1 Limpiavidrios x 1gl 10.00 3 Desinfectante pino x 5gl 55.0…

Desaveniencias entre Macros y archivos compartidos Estimados Gurus del Excel: Mi nombre es Nicolás Sosa, y de un tiempo a esta parte, por razones de poder mejorar el trabajo que realizamos en la institución en la que trabajo, se me ocurrió utilizar excel para realizar un control de gestión a un proceso en el que intervienen varios colegas. Después de mucho esfuerzo, ya que mis conocimientos de excel son bastante precarios, realice una planilla que se ajustaba a lo que necesitaba. Posteriormente le agregue un par de macros (bajadas de la web) para bloquear las celdas cuando se ingresan datos, y otra para activar los filtros que se bloquean al activarse la protección de…

Por favor si me puede ayudar con la creacion de una macro para poder controlar mis transacciones de almacen (ingresos y salidas) por medio de USEFORMS,.

El gran Gerson Pineda me apoyo con la instrucción para eliminar del listbox y hoja en modo multiselect la cual integre a un userform que tengo, donde al eliminar del listbox sin usar el filtro o filtrando me arroja un error en la esta instrucción donde devuelvo a la hoja inventario la cantidad del producto eliminado del listbox: Dim NombreHoja As String NombreHoja = "Inventario" 'Buscamos la última fila 'EN EL SIGUIENTE ME ESTOY REFIRIENDO A LA HOJA SEGUN EL SECTOR fila = 2 Do While ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) <> "" fila = fila + 1 Loop Final = fila 'CON ESTE CODIGO ESTARE RESTANDO "1" AL FOLIO EN CASO SE REGRESE …

Buenas, Estoy investigando si es posible crear en excel con vba los niveles de jerarquía en un conjunto de datos. Algo así como simular la fórmula PATH que hay en Power BI. Cuando busco solo encuentro temas relacionados al path de la ruta del archivo etc. No a nivel datos, como pongo en el ejemplo en la columna en amarillo. ¿Hay algún modo de hacer esto con VBA? Gracias por la ayuda! ej_path.7z

buenas tardes me gustaría saber si existe alguna macro que me cree en una celda especifica la fecha en el siguiente formado : si es 01/05/2014 que la macro la convierta en " Caracas al 01 de Mayo del 2014" o si es 20/05/2014 la exprese en " Caracas a los 20 días del mes de Mayo del 2014"

Hola amigos de Ayuda Excel Quería preguntarle si hay alguna instrucción en VBA que evite la copia de determinadas columnas. Aún estando una hoja protegida me dí cuenta que se puede copiar columnas (estando ocultas) en otra hoja, claro las que tienen formulas pega solo valor. Pero es posible hacerlo??? Gracias

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

Buscar entre las columnas "B" hasta la columna "H" la fecha mas reciente de modificacion de cada fila y poner la fecha mas reciente en la columna "I" con campo FUM.... ESTO POR CADA FILA y que en automatico cada que pego todas las filas con las fechas ...se peguen en la columna "I"... las mas recientes.... no se si sea con una formula solemente o como... por favor ayuda. LES DEJO EL ARCHIVO DONDE ESPECIFIQUE OJALA PUEDAN AYUDARME

Hola colegas, buenos días a todos. Estuve varios meses alejado y desgraciadamente lo seguiré estando. El problema es que yo no tengo ordenador y trabajo con el de un amigo que por desgracia se rompió y acá cualquier pieza cuesta más que un trasbordador de la NASA y ahora orto amigo me dio la posibilidad (por esta vez) de hacer esta consulta, pero quiero que sepan que los extraño a todos y les deseo buenos tiempos. Voy al problema; Tengo un Proyecto que comencé hace varios meses (Registro de Cheques) pero no le he concluido y ahora lo necesito. Creé un nuevo Formulario (FemConsultaAvanzada) para hacer diferentes consultas. Creé una Hoja (Filtro) y con la Grabadora de …

Buenos dias amigos recurro a ustedes aver si me ayudan con esto tengo un reporte en mi hoja 1 el cual esta lleno de clientes peor mi problema es que no se de que personal de ventas es cada cliente hecho un excel para que vean si me pueden brindar su ayuda el en el cual pongo en la hoja 1 todos los clientes en la hoja dos los clientes de un vendedor en la hoja 3 los clientes de otro vendedor lo que quiero hacer es que en la hoja 4 aparesca solo los clientes de alan ( vendedor ) y en la hoja 5 los clientes de gian otro vendedor basados en que cada uno tien diferntes clientes si que se mesclen uno con otro en sus hojas de resumen espero su ayuda muchas gracias y bendiciones …

Saludos mis estimados amigos. Como podría bloquear un rango dependiendo el contenido de una celda. Me explico Si en la celda a1 esta X que bloquee el rango desde la B5:B10, C5:C10; D5:D10 pero si esta vacía que desbloquee. O mejor aún si ese renago esta de color rojo (puesto con formato condicional) que se bloquee caso contario que se desbloquee. (Esta es mi primer pedido). Gracias mil por vuestra ayuda

muy buen dia tengan todos, mi pregunta es simple. ¿como puedo hacer para que me despliegue ya sea mediante msgbox las filas en donde fueron insertados los datos previos, es decir, despues darle click en el boton "insertar datos" me aparesca el informe o mensaje de lo que fue insertado? ojala me puedan ayudar al respecto de antemano gracias Form ejemplo.xls

Buenas tardes. Solicito su apoyo, es algo sencillo pero no he encontrado la manera, elaboré una base de datos usando un userform, ya está todo listo, el problema es que al cargar la ventana al iniciar excel, se abre el formulario pero mostrando la parte baja de la ventana, como puedo hacer para que se visualice la parte superior del fomrulario???? Gracias, saludos.

Hola a Tod@s, Espero me puedan ayudar,... al intentar insertar una imagen a un formulario en tiempo de creación por medio de VBA, me dice que el objeto no esta disponible. Sub CreaForm() Dim MiNewForm As Object Set MiNewForm = Application.VBE.ActiveVBProject.VBComponents.Add(3) With MiNewForm .Properties("Height") = 300 .Properties("Width") = 300 .Name = "Prueba" .Properties("Caption") = "Prueba_LBV" .Properties("BackColor") = RGB(0, 255, 0) .Properties("Picture") = ActiveWorkbook.Path & "\Imagen1.jpg" ' .... AQUI ME SALTA EL ERROR? .Properties("PictureSizeMode") = 1 End With End Sub …

Hola buenas noches a tod@s Estoy realizando un excel con macros para la entrada de paquetes de mi empresa. El funcionamiento es el siguiente: En la hoja "Entradas_Palau" , fila 7, introduzco los datos de entrada del paquete nuevo, en la celda "J7" una vez he introducido todos los datos, se ejecuta la macro y me copia los datos en la fila 10 automáticamente. Lo que quiero conseguir es que si por ejemplo escribo (Hangar) en la celda "H7", al finalizar al entrada del producto, aparte de copiarme la entrada en la fila 10, me la copie en la hoja "Arrastre_Hangar" y me inserte una fila nueva para que no se solapen nuevas entradas con la palabra "Hangar". …

Hola foreros! Les cuento que es lo que deseo hacer: Tengo un archivos con 2 hojas... En la primera consta el padrón de personas de mi ciudad (nombre, DNI, domicilio, etc) con 35000 registros. En la segunda tengo el listado de socios de mi empresa (nombre, DNI, domicilio, etc) con 10000 registros. La idea es separar todos aquellas personas que no forman parte del listado de la empresa para luego ofrecerles los servicios. Dada la falta de información (por ejemplo, muchos DNI faltantes) tendría que hacer la comparación con los nombres. Como entiendo algo de Excel he intentado utilizar la funcion BUSCARV con el atributto "verdadero" (dado que los nombres no son exactam…

Hola, estoy queriendo exportar una hoja del archivo como pdf pero al querer guardarlo en un disco compartido (server) me da error. Aclaro que al querer hacerlo en mi disco local C si me lo permite y tambien puedo exportar la hoja como xlsx en el disco compartido pero al querer hacerlo como pdf me lo impide. La linea que utilizo es Hoja2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=RutaEnDiscoCompartido & "\" & NombreArchivo & ".pdf", Cuando remplazo la RutaEnDiscoCompartido por una en el disco local si me permite exportarla Muchas gracias

Buenos días, Necesito vuestra ayuda. En el fichero excel tengo una hoja llamada base de Datos. Cada registro las quiero pasar a una hoja nueva dependiendo del ID. Ejemplo si tengo un registro con ID 1, crear una hoja nueva con la cabecera y los registros que tengan el mismo ID. La hoja se llamaría igual que el ID; 1. Lo mismo con los demás registros con los diferentes ID´s. Creo que es una cosa sencilla pero que no sé. Adjunto fichero como ejemplo. GRacias!!!! Un Saludo Vic Ejemplo2103.xls

Muy buenas tardes comunidad. El día de hoy se me presento un problema con una base de datos que se encuentra en una carpeta compartida, se elimino la función indirecto de la columna "Estado" para la columna "Situación". Realizando la esta función en otro archivo me funciona pero no puedo subir este porque ya se encuentra compartida y tiene ciertas restricciones que no me permiten el cambio del archivo. Quería comentarles que esta base tiene un macro donde al cambiar el dato de la columna "estado" la información de esta fila se remite directamente a la hoja de "inhabilitados". MuchasGracias por su ayuda. BASE DE DATOS PARA 2013.zip