Hola a tod@s. Como siempre agradecido por su tiempo y aporte para este nuevo tema. Tengo la siguiente macro Sub CopyPaste() Dim xRng As Range On Error Resume Next Set xRng = Application.InputBox("Selecciones el rango:", "MS Excel", , , , , , 8).Select ' If xRng Is Nothing Then Exit Sub Selection.SpecialCells(xlCellTypeBlanks).Select Range("A1").End(xlDown).Offset(1, 0) = "=R[-1]C" Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Copy ' Range("A1").End(xlDown).Copy ActiveSheet.Paste End Sub El cual funciona bien cuando se ingresa el rango en el InputBox. El detalle esta cuando decido "Cance…

Estimados amigos del foro, esperando en este momento sigamos cuidándonos del problema mundial. Entre tanto, he estado tratando de poder resolver un problema en la que me quede estancado. Se trata de determinar el número de horas de investigación por mes pero para ello hay que separar a días laborables y nuevamente de estos tomar en cuenta el dia que ha sido asignado esta labor y las horas estipuladas. Aquí es necesario distinguir un año normal del bisiesto. Todo esto surge sobre todo por que cada mes muestra semanas incompletas al inicio o al final. Por esta razón he creído que es mejor tomar en cuenta no por semana sino por los días del mes (Ver imagen). Aquí n…

Hola compañeros Deseo hacer un contador de dinero. Billetes y monedas. Pero para guardar los conteos Guardo los datos agregados en otra. Pero no consigo crear varios reportes. La idea es crear el primer reporte y guardar, Luego crear otro reporte y guadar.... y asi sucesivamente. Intente pero no conseguí hacerlo... Por favor me pueden ayudar Sub ReporteC() ' ' Reportes del día ' If Sheets("Conteo").Select = vbYes Then Sheets("Conteo").Select ActiveWindow.SelectedSheets.Delete Else ActiveWorkbook.Save Worksheets.Add.Name = "Conteo" ActiveCell.FormulaR1C1 = "Reporte del Dia 1 de la …

Saludos a todos en el foro, con la siguiente cuestión. Tengo una userform con un listbox el cual contiene dos columnas, el problema es que en el rango renombrado hay muchísimas celdas en blanco. Lo que necesito es que en el userform solo se vean las celdas con valores es decir que no aparezcan las celdas en blanco ya que son muchas. Nota no puedo eliminar las celdas en blanco de donde obtengo la información para el listbox. Solo valoresen listbox.xls

Macro para mantener Formato de Celda destino Hola buen dia... recurro a ustedes porque soy muy novata en eso de los macros y he leido varias de sus experiencias. Necesito una macro en la cual al pegar en la columna A cualquier tipo de dato (numero, texto, fecha, etc), no modifique el formato destino, en este caso TEXTO. Ademas de que agradeceria me expliquen como ejecutarla, ya que esta diseñada para un usuariO final que solo sabe capturar, copiar, pegar, guardar. Se que al crearla hay un metodo abreviado perono se como usarlo. Gracias

Hola estimados amigos de ayuda excel Recurro a ustedes despues de estar batallando con un trabajo y estoy bloqueado, les explico, tengo una funcion buscar, y los resultados los envia a un listbox, de hay click en el item que quiero imprimir y me lo envia a la hoja, hasta hay todo bien, el problema lo tengo cuando selecciono varios item, por que solo me pasa uno, espero y agradezco su ayuda Muchas gracias por anticipado Funcion buscar.rar

Hola intento buscar un tema que ya estaba en el antiguo foro pero que no veo el ejemplo a ver si alguien me puede ayudar. Es de Never y es leer un archivo pdf leer determinados campos y coger esos campos y pasarlos a excel. Gracias por la ayuda

Hola , Buenas Tardes , agradeceria cualquier ayuda para automatizar este problema Con la planilla lo que obtengo es el directorio de trabajo que se llama originales para efecto de este ejemplo Datos Tengo una cantidad no definida menor que 40 de archivos pdf en carpetas FA,FB, para este ejemplo,pudiendo ser más FC,FD etc. Necesito introducir numeros correlativos en cada pdf partiendo de 01FA hasta 40 FA (05FA en este ejemplo) , pero no tomando el 00FA , el resultado de esto seria mover 00FA a la Carpeta FAN y ahi poner todos los archivos de 01FA hasta 50FA o menor con el numero coorrelativo dentro de cada archivo y que…

Buenas Tardes. Tengo este codigo: Private Sub ListBox1_Change() With Sheets("Hoja1") Set codi = .Columns("A").Find(What:=Me.ListBox1, LookIn:=xlValues) If codi Is Nothing Then MsgBox "Codigo no existe!": Me.ListBox1.SetFocus: Exit Sub For i = 2 To 12 Me.Controls("Textbox" & i) = .Cells(codi.Row, i) Next End With Set codi = Nothing Dim nsp As String Dim hoja As Worksheet nsp = ListBox1.Value For Each hoja In Worksheets ' Busca si existe una hoja con el nombre del codigo de cliente If nsp = hoja.Name Then Dim rw As String rw = ListBox1.Value & "!A:A" ComboBox1.RowSou…

Buenos días, Adjunto hoja con macro en la cual me crea hojas con cada registro de la base de datos. Una vez creadas esas hojas y a la hora de imprimir en pdf, me gustaría poder quitar el salto de página que tienen y que sólo me imprimiera el rango (a1:x64) en el archivo pdf, que corresponde con el formato recibo. Copia de Recibos ok.rar

He estado buscando pero no he visto nada tipo lo mio, si hay algo, por favor disculpadme, me indicais y que se cierre el tema. Voy a explicaros un poco, lo que estoy haciendo y donde me e quedado atascada. He creado una tarifa, a la que quiero ponerle fecha de caducidad, para ello le he puesto una portada en la que obliga a habilitar las macros para que pueda funcionar, y dentro la fecha de caducidad, con la idea de que cuando haya pasado la fecha, el documento se autoelimine o se eliminen filas del mismo. Para obligar a que cada vez que se use el fichero se tengan que habilitar las macros, he deshabilitado las opciones de guardar con los comandos workbook.beforesave y…

Hola! He estado leyendo todas las consultas sobre este tema pero las soluciones no me ayudan. Me sigue marcando error. Les explico: Tengo dos libros, El libro "Menú" tiene una macro con un userform que se graba en el libro "Concentrado". La macro abre perfectamente el libro "Concentrados", pasa la información a dicho libro, pero cuando quiere ejecutar la función para guardar y cerrar el libro "concentrados" me marca error de ejecuón. Alguna sugerencia? Gracias! Concentrado.xlsb.rar EJEMPLO Menu.xlsb.rar

If Mid(ComboBox1.Value, 1, 1) = "B" Or Mid(ComboBox1.Value, 9, 1) = "B" ThenTipo = 2ElseTipo = 1End IfAncho = Mid(ListBox1.Value, 1, 3)If Mid(ListBox1, 18, 1) = "u" ThenEspesor = Mid(ListBox1.Value, 16, 2)ElseEspesor = Mid(ListBox1.Value, 16, 3)End IfDim importacion As Variant, Proveedorproducto As Variantimportacion = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:J102"), 3, False)Proveedorproducto = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:F102"), 6, False)If IsError(importacion) = False ThenCells(n, 7).SelectActiveCell.FormulaR1C1 = TextBox7.Value & importacion & Proveedorprod…

Buenos días esta pregunta esta relacionada con el hilo anterior el cual me dieron una solución perfectamente valida, copio en enlace para que sepáis de que hablo. Pero claro ahora me surge la duda, cuantas o que formas hay de "sacar" valores de un modulo, cual es la que normalmente utilizáis o recomendáis. Vuelvo a pedir perdón si soy muy pesado pero creo que mientras mas conocimiento se comparte mas se aprende.

Hola a todos. Me gustaría que alguien me ayude con una macro que ejecute lo siguiente: Tengo un rango de datos con varias columnas y filas y necesito que cuando cambie el valor de la primera celda del rango siguiente, la última fila del rango anterior se resalte con un color determinado (puede ser el amarillo, por ejemplo) En mi rango de datos, ese cambio debe producirse en la columna E (NIT), es decir, que cuando el valor del NIT cambie, la fila inmediatamente anterior a la celda que cambia de valor se resalte. Para ejemplo, subo un libro compuesto de dos hojas (Datos y Así) En Datos, está el rango de de datos, y en Así, cómo debe quedar dicho rango una vez se …

Estimados Expertos Muy cordiales saludos. Me encuentro entrampado en algo muy simple, pero que no había tocado, búsqueda de fecha usando application.Worksheetfunction.Vlookup Me propuse un cuadro simple, para buscar fechas, para tratar de ser más simple posible, pero aún así no doy con el error. Esta es la macro: Sub prueba() Dim FeCha As Date FeCha = cDate("02/10/2022") Range("C2").Value = Application.WorksheetFunction.VLookup(FeChita, Range("A2:B20"), 2, 0) End Sub Donde el Rango A2:B20 contiene fechas en la columna A y datos en la B, pero siempre me sale error. Es frustrante. Gracias adelantadas por su apoyo en la res…

Buenas tardes para todos. Aprovechandomene de sus conocimientos necesitaria una macro para actualizar de manera automatica 5 tablas dinamicas que adjunto en el archivo. Admito que mis conocimientos en VBA son limitados y solo logre crear una macro para actualizar una TD y al repetir la orden me da error. Agradezco de antemano las ayudas y a Vtra disposicion cuando gusten.- Libro2.xls

Que tal, soy nuevo en excel y en esta pagina, ojala puedan ayudarme. mi problema es esl siguiente: Necesito que en una celda C1 aparezca el texto "N/A" si en otras dos celdas (A1, B1) esta escrito el texto "SI". Si esto no se cumple que no aparezca nada en la celda C1 pero que me permita introducir texto... De antemano muchas gracias por su ayuda

Estimados necesito me ayuden con la siguiente inquietud: Necesito realizar una seleccion entre tres mapas (formas): 1- al momento de selccionar desde cuadro combinado (control de formulario) una de las tres opciones en este caso provincia, canton o distrito, se muestre el mapa respectivo. para ello necesito que me ayuden con una bva. acontinuacion adjunto libro excel. https://drive.google.com/open?id=0B8bjmjZrzJe1VEdFa3YzVExEY0U no pude subir el archivo, no permite. pero adjunte el link.

Hola buenas, he estado intentando simplificar un numero racional y devolver el numero entero si el denominador es 1. Si alguien me pudiera ayudar se lo agradeceria mucho. Gracias

Buenos días a todos es mi primer consulta, estoy intentando depurar una base de datos que tengo en excel 2003 de correos electronicos, necesito eliminar un lista de correos que son erroneos en dicho archivo. Si alguien me puede hechar una mano os lo agradeceria, se me ocurre utilizar una macro pero soy muy nueva en esto y nada me funciona. Gracias.

Hola! Como están! Me encontré con un pequeño problema el cual las soluciones que me leía en los foros no me corregía el problema. Pero probablemente soy yo el que esta haciendo las cosas mal. básicamente en un textbox pongo numero con decimales, (con comas). pero en la celda de la hoja de destino me los deja escrito como palabras. no como texto. UN caso similar me paso con las fechas pero ya lo he resuelto. Si necesito sumar las celdas, el resultado esta errado ya que las celdas que contienen números con comas al ser tomadas como texto, no las cuenta. envío el archivo para ver si me dan un poquito de luz. Muchas Gracias! decimales.xls

Hola a todos, mi nombre es Maurizio y mi problema es este: De ahora en adelante afirmo que este proyecto no debería de ninguna manera; Implicar el uso de la hoja de Excel Pero solo con su forma de usuario Habiendo dicho eso: comenzaría diciendo que dentro de mi formulario de usuario ingresé: 1) imagen 1) Botón de comando 1) cuadro combinado y finalmente una etiqueta Ahora, el propósito de este proyecto sería hacer que uno de los dos enlaces que pertenecen a tantas imágenes tomadas de una página web lleguen al interior (Label3) Pero por conveniencia he insertado los dos enlaces dentro de uno (cuadro combinado) Por otra parte, desde el progra…

Buenas tardes comunidad, Actualmente tengo este problema que he estado desarrollado en un formulario desde varios aporte que he visto, pero que no he podido solucionar este caso, necesito filtrar la informacion de dos datos especificos que se encuentran en otro Libro excel y traer uno, Ejemplo. Código de despacho - Descripción - Lote 001 Zanahorias 9121 001 Manzana 9121 002 Peras 9121 003 Cebollas 8090 003 …

Existe la manera de que al momento rellenar los campos de búsqueda, busque al presionar algún botón llamado búsqueda y no que lo haga automático, ya que al momento de ser automático y tener muchos datos se pega o se demora mucho . Solo si puedes ayudarme @Antoni ya que tu conoces el tema. PRUEBA - copia.xlsm