Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro. 1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E" 2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos. adjunto mi archivo esperando me haya dejado entender gracias. adjunto el archivo pero me dice que es pesado, adjunto un link gracias. https://we.tl/t-EqX8pdb74a

Hola chic@s. Tengo unos datos de origen en una hoja a los que hay que hacerles unas operaciones y quiero colocar el resultado donde elija el usuario. Esto lo solicito mediante un inputbox: Set celdaDestino = Application.InputBox(prompt:="Selecciona donde quieres situar el resumen", Title:="Posición de destino de los datos", Type:=8) El problema lo tengo cuando se elilge como destino una hoja distinta. Necesitaría guardar en una variable esa hoja de destino. Por ahí he encontrado una solución que selecciona esa hoja y la celda elegida y....entiendo que como así la hoja se convierte en activa ya puedo guardar su nombre en la variable hojaDestino. …

Buenos días: Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba. El archivo contiene varias hojas que se muestran según la contraseña que se ingrese, y a su vez, cada hoja tiene diferentes funcionalidades según su propósito. Consulté un tema similar abierto anteriormente donde se menciona un ofuscador para todo el código contenido en un archivo ( ), sin embargo, al aplicarlo me genera un error 1004 en tiempo de ejecución y al abrir el editor me indica error en la siguiente línea: Set Proyecto = ActiveWorkbook.VBProject. Finalmente el resultado es que no puedo aplicar el ofuscador. Me pueden orientar por favor qué es lo que suc…

Hola!! Soy nuevo aquí con ustedes esperemos y alguien pueda ayudarme!! Tengo una macro que me manda información de Excel a Word y a partir de esta información estoy generando un reporte. El reporte fue generado a través de una plantilla de word *.dotx. y esta es abierta con la macro para que se añada la información. Debido a que tengo un procedimiento muy largo lo dividí en varios procedimientos, esto funcionó perfectamente el problema es que cuando comienza el siguiente procedimiento no me toma el documento activo para que siga generando el reporte. En seguida colocó un ejemplo del código: Private Sub Inicio_Click() Dim datos(0 To 1, 0 To n) As String patharch…

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

buenas noches, dispongo de una macro que me entrega para cada celda un valor distinto de 0 (dentro de un rango de celdas), al utilizar ciclo for, no obtengo todos los resultados inmediatamente (algunas celdas siguen con valor 0, por la naturaleza de los datos de entrada), por lo que debo ejecutar la macro varias veces hasta que se rellenen todos los datos del rango con un valor distinto de 0 como puedo ejecutar la macro de forma automática varias veces, hasta que todos los valores de mi rango, sean distintos de 0? muchas gracias

Buenos días; A ver si me podéis ayudar. Tengo una consulta SQL en Excel que me cuenta las fechas por número de semana, todo funcionaba bien hasta este año. Buscando por internet he encontrado la solución ( [vbMonday],[vbFirstFourDays] ) pero no me funciona, no sé qué pongo mal. Esta era la consulta que funcionaba hasta este año ( ahora en la semana 8 me cuenta lo de la 7 ). Query = "Select count (Columna1) from [Hoja1] where Columna1 In" & Datos & "And DatePart('ww',Columna2)=" & SemanaActual & "And DatePart('yyyy', Columna2)=" & AñoActual & "And (Not tipo_Columna3='No' or Columna3 is null)" Esta es con la solución qu…

Quisiera hacerles una pregunta que lleva un par de días rondándome la cabeza. La otra vez preparé un archivo que llevaba un montón de comentarios que contenían imagen. Se incluir y delimitar el tamaño de esos comentarios, mi pregunta es: existe la posibilidad de hacer que se añadan las imágenes por medio de pegado (o arrastrando la imagen) sin necesidad de tener dicha imagen en el ordenador. Me refiero a la opción "copio imagen" "pego imagen". Lo que vendría a ser añadir un comentario para dummies, o para vagos... depende de como se mire. El problema me surge al pensar en un archivo que va a ser utilizado por una persona para la que sé que descargar imagen, inserta…

Buenos dias, requiero de su ayuda en la solución del siguiente problema: - Tengo una base de datos (Consolidado) donde se carga la información general. Parte de esta información debo pasarla a otra hoja (Información Detallada), conservando por supuesto los datos en la hoja de consolidado. - He tratado pero resulta un poco engorroso realizarlo a traves de formulas ya que hacen que el archivo se vuelva muy pesado al ir ingresando datos. (Estamos hablando de información anual y de registro permanente en el tiempo) - En la hoja de información detallada quisiera agregar un boton de comando que me permita cambiar de año y en función del mismo se visualice la información. - …

Hola buen día, Estimados tengan una excelente mañana, favor su ayuda si se puede extraer el formato de celda personalizado (solo la moneda) a otra celda. En la columna A y B tengo los siguientes datos y necesito extraer la moneda a la columna C y que mede el resultado en la columna D, he realizado un código muy largo me gustaría saber si se puede optimizar o alguna mejor forma de hacerlo. mil gracias HELP.xlsm

Hola a todos, a ver si me podéis dar una ayuda con un tema que no consigo resolver, no domino excel como para resolver estas cosas por mi mismo y por más que leo posible opciones... Estoy intentando armar un editor de roadbook en excel, dicho editor no tiene un número fijo de filas (las añado con una macro según se necesiten), en la hoja "ROADBOOK", en la columna "D" (desde la celda "D41") quisiera añadir una imagen de entre las 360 que dispongo en otra hoja del libro (brújula), como indica el nombre son imágenes de brújulas con rumbo, y son estas las que quisiera pegar en las casillas de la columna "D" según el valor que contenga la celda "T42" (grados de rumbo, ejm, "…

Hola gente, los molesto con la siguiente traba que tengo: quiero que el renglon del listbox cambie de color o quede la fuente en negrita si el valor de la columna P (Validacion) es "T". Es posible realizar esto o solo se da formato al listbox completo? Adjunto archivo que en su momento me paso Macro Antonio. Muchas gracias por la ayuda que me puedan brindar. Plantilla.rar

Hola amigos, como hace tiempo, continúo con mi proyecto de Excel para Distribución y Control de Almacén....en esta ocasión tengo unas dudas a la hora de realizar operaciones con unos textbox dentro de un userform (Devoluciones) que he creado en la hoja Albaranes. En resumen, os expongo lo que hace y lo que necesito: 1.- Dicho Userform (Devoluciones) me permite introducir artículos para devolución, los cuales se anotan en la hoja Devoluciones, para el Importe Total debe multiplicar la cantidad por el precio del producto y añadirle el IVA% que elija (hasta ahí lo hace perfecto), pero he añadido otro textbox con un R.E%, y no consigo que me haga la misma operación que con e…

Buenos dias, necesito ayuda para saber como puedo evitar que mis formularios de VBA al ejecutarlos ni cierren los demás Libros que ya tenia abiertos.

Buenas tardes, tengo este formulario, lo que quiero hacer es que dando click en un option button el criterio sea solo el señalado es decir, si doy click en codigo que me filtre los datos del listview por el codigo escrito en el textbox respectivo, si doy click en nombre que lo filtre solo por el nombre escrito en el textbox y asi tambien con el combobox. en el listview se muestra la totalidad de datos que estan en una hoja de calculo. Por favor si alguien puede ayudarme con un ejemplo seria fenomenal. muchas gracias

Hola buenas, Me gustaría mover automáticamente archivos con un nombre X a una carpeta con nombre X. Adjunto en un zip (ejemplo.zip) el siguiente ejemplo: Tengo las siguientes carpetas: 501 502 Tengo los siguientes archivos: 501.pdf 502.pdf Me gustaría que el archivo 501.pdf fuera movido automáticamente a la carpeta 501. Lo mismo para el resto de los archivos. Un saludo, Jacexcel ejemplo.zip

Hola Quisiera me ayudaran en lo siguiente como hago una macro para buscar una grafica por su nombre y copiarla y pegarla en otra hoja si y solo si esta grafica existe. Necesito hacerlo para varias graficas, que las busque por su nombre(cada grafica tienen un nombre diferente) y si las graficas existen que las copie y pegue de forma ordenada en otra hoja del mismo libro. Alguna idea? Muchas gracias - - - - - Mensaje combinado - - - - - ayudaaaaa por fa

Hola amigos tengo una aplicación VBA Excel que en local funciona una maravilla, pero ahora se me ha ocurrido ponerla en red y que la utilicen al mismo tiempo dos usuarios. He pensado en la opción de la interfaz "Compartir Libro" y sorpresa, que ahí han venido un montón de problemas al actualizar datos de un libro u otro, Pregunta por Excel si deseo un cambio o el de mi compañero con un mensaje ambigüo y rarísimo , error 1004 al guardar al mismo tiempo los dos y la verdad es que es un verdadero desastre. Me han aconsejado que pase a ADO pero no sé la sintaxis. Aquí en este proyecto hay bucles en formularios sobre hojas y modificación inmediata de registro en Hojas oculta…

Hola amigos Quisiera que me ayuden para crear un macros en donde se pueda ingresar datos y generar un reporte con los últimos datos que se ingresaron, con la hora y fecha. estoy adjuntando un ejemplo de como seria. Muchas Gracias PRUEBA.rar

Buen día solicito su apoyocon un macro o un formato condicional en el cual pueda colorear en automatico un rango determinado de celdas de acuerdo a una fecha inicial y final, dejo el ejemplo en el excel adjunto.Cronograma de salidas.xlsx gracias de antemano por la ayuda

Hola, Me estoy peleando con una macro que no termino de conseguir, a ver si alguien me puede echar una mano. Tengo en un mismo directorio varios libros excel, cada uno con varias hojas, pero en cada uno hay una hoja que se llama 'resumen'. Luego tengo un libro final que tiene tantas hojas como libros con resumen. En el ejemplo que he colgado tengo 3 libros, cada uno con su hoja 'resumen' y el libro final con las hojas 'resumen1', 'resumen2' y 'resumen3'. Necesito una macro que copie el contenido de cada hoja resumen de cada libro en la hoja correspondiente del libro final. Estas hojas resumen tienen todas la misma estructura (A partir de la fila 2, rango B-W). Esta …

Hola, Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico. Ejemplo: A2=TS1243X Control Entradas y Salidas Macros.rar

Buenos días: La macro que adjunto puede copiar y almacenar en orden todas las hojas de un libro. Por ejemplo tengo 3 hojas (a,b y C) con encabezados comunes (de B5 a J5) y filas variables. Crea una hoja llamada "Resumen" y copia en ella con encabezados incluidos, todas las filas y de forma ordenada sin dejar espacios. Sub ejemplo() 'por luismondelo Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = "RESUMEN" For Each hoja In ActiveWorkbook.Sheets If hoja.Name <> "RESUMEN" Then hoja.Range("b5:j" & hoja.Range("b65000").End(xlUp).Row).Copy Sheets("RESUMEN").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlVa…

Hola a todos,esta macro me da problemas de compilacion,alguien me podria indicar la solucion? La intencion es que solo me borre las filas que sean diferentes a la condicion Gracias a todos Sub Macro1() ' ' Macro1 Macro ' Macro grabada el 21/11/2012 por Paco ' ' Dim Rango As Range, Fila As Long, ÚltimaFila As Long Application.ScreenUpdating = False ÚltimaFila = 1 For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila If (Range("I" & Fila).Value <> TRANSPORTES Y LOGISTICA SORIA, S.L.) Then en esta linea me da el error If Rango Is…

Hola Gente, bueno la pregunta es la siguiente: como hacer que en una lista de 5 columnas y 100 filas, seleccione una fila al azar y copie esta fila a otra hoja, se puede hacer un macro, pero no se como. esto es para sacar una muestra aleatoria de materiales, osea tiene Codigo, Descricion, Ubicacion, stock, y lo que necesito hacer es sacar una muestra de 40 articulos, ojala puedan ayudarme.