Buenas tardes estimados colegas, Podrá sonar algo sencillo, pero realmente esta complicado el tema. Mi situación es la siguiente. Tengo una macro la cual esta montada en un OneDrive y Sincroniza en Microsoft Teams, esto con el fin de que se puede visualizar la data del archivo en linea. Ahora, mi Excel es un archivo de registro de solicitudes. Analice las siguientes particularidades: 1. Cuando utilizaba el procedimiento sencillo de ActiveWorkbook.Close SaveChanges:=True el archivo se guardaba en "Mis Documentos" aún cuando el archivo se abre directamente del sitio del onedrive sincronizado en el pc directamente en el explorar de archivos. 2. …

hola expertos buen dia , estaba analizando si existira algun codigo que me grabe o guarde los movimientos que realice en un tablero de ajedrez les agradezco las ideas que me ofrezcan

Hola a todos! Escribo en el foro porque tengo la duda sobre cómo filtrar lo siguiente. Tengo esta data que me muestra la venta en dólares de un cliente (tengo todo el año 2019 por mes y 2020 hasta la fecha, es decir fines de Febrero) Lo que yo quiero es que pueda filtrar automáticamente 2019 de Enero a Febrero y 2020 de Enero a Febrero para hacer una comparativa de cómo están creciendo o decreciendo mis ventas de manera automática Por favor, agradecería mucho su apoyo. Muchas gracias!

Registra los datos, pero aparece Error: 2147467259(800004005) en tiempo de ejecución Escogí una sola imagen: 2.Localización y Replanteo. Las imágenes las inserta bien, pero al dar Clic en Registrar genera ese Error El Botón Ejecutar está en Hoja 2 Averigüé que se corrige con los siguientes pasos: Paso 1Abre tu proyecto de Visual Basic e introduce la siguiente línea en la parte superior de la función que llama "SetFocus": On Error GoTo FocusErr. Paso 2 Crea una etiqueta en la parte inferior de la función, escribiendo lo siguiente: FocusDone: Exit Function Paso 3 Crea otra etiqueta debajo d…

Buen dia, Favor su ayuda con una macro que pueda buscar un texto (por ejemplo "Hola") que este repetido en varias celdas ("A1:D40"). Si en este rango de celdas se encuentra al menos 20 veces el dato "Hola", que los seleccione todos y luego los elimine. Saludos!

Hola a todos de nuevo, no mando el archivo por lo que "pesa" pero vosotros me entenderéis perfectamente. Tengo un simple programa que me genera números aleatorios, por el sistema siguiente; en una columna pongo "Aleatorio()" y me genera una lista de números entre 0 y 1. en la columna siguiente pongo "Jerarquía(L10;L10:L30) por ejemplo, y me transforma los números a enteros. y todo funciona perfectamente, cada vez que pulso F9 o botón me genera números aleatorios. LA PREGUNTA: como hago que la macro solo funcione una sola vez ? (para que vuelva a funcionar tendría que salir del programa y volver a entrar, eso es lo que deseo) Muchas gracias por a…

Listes inscrits.pdf Buen dia Necesito su ayuda, estoy usando una macro para convertir un rango de celdas una hoja en PDF y luego mandar el mismo por mail; pero el PDF que crea tiene un mal formato, demasiado pequeno, yo necesito que los datos ocupen toda la pagina, esta es la macro y en en adjunto como obtengo el PDF: Sub SendMailbyOutlookRangoenPdf() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Dim OA, OM As Object Dim NA As Variant Dim Path, TD, fn, mydoc As String TD = Format(Date, "ddmmyyyy") Path = ThisWorkbook.Path & "\" fn = ActiveSheet.Name mydoc = Path & fn & ".pdf" Dest…

Hola a tod@s, nuevamente solicitando su tiempo y aporte para ese nuevo tema. El siguiente codigo lo encontre en la Web. #If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal d…

Estimados/as buenos días, Ejemplo.xlsx Necesito su ayuda para concatenar celdas de una columna. Estos datos se agrupan de 1 hasta 5 celdas. El problema que tengo, es que en el principio y fin de esta celda hay un dato que no me sirve. También tengo el problema de que hay un espacio en medio de cada grupo. Adjunto el archivo como ejemplo para que se entienda mejor, dentro hay instrucciones. Saludos!

Buenas noches comunidad, Mi consulta va por el metodo workbook, quiero saber si se puede emplear ese metodo para hacer que el libro al guardarse manualmente o autoguardado, envíe los datos guardados a otro libro actualizando fila por fila, columna por columna , empleando la ruta u otros metodos. Agradezco su respuesta. Saludos, Dayo Cascav

buena tarde alguien puede ayudar con una macros para transponer un texto que estas fila pasarlas a columnas mil gracias a este equipo de este foro saludos isidro ejemplo.xlsx

Buenas Tardes a todosNecesito de su valioso ayudaEstoy desarrollando una rutina pero , me he atorado y no encuentro la forma de resolverlo , tengo el archivo llamado Nom 6 Ejemplo de la cual ocupo las siguientes hojas:-Hoja1-CATquisiera ejecutar este macro iniciando desde Hoja1 Celda BC3 para que se ejecute mientras la celda activa ("BC3") tenga datos y la columna al lado se encuentre vacío ("BB3"),busque el dato Hoja1 de la columna BC ,relice la búsqueda en la hoja CAT columna "D" y si lo encuentra me devuelva el código de la columna "B" de la hoja CAT en este caso se cumple las condiciones a partir de la fila BC14y si no lo encuentra se siga con la siguiente fila Bc15, …

Hola a todos, me acabo de unir a este foro y que mejor manera para estrenarse que con un problema... Os pongo en antecedentes. Trabajo en una empresa en la que hay ordenadores personales y ordenadores comunes. Y hay una red a la que te conectas para acceder a diferentes unidades de red para revisar pdfs, excels, words, lo que sea... Hay un conjunto de ficheros excel los cuales estan en carpetas separadas dentro de la misma carpeta. Por ejemplo: 10 carpetas (tipos de coche) con 10 carpetas dentro (diferentes zonas dentro de cada coche), y dentro de cada una de esas carpetas, 2 archivos, uno para cableado y otro para materiales. Como estan separados, cuando se qu…

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…

Buenos días amigos, Tengo esta macro que me oculta las columnas en vacias. Ahora quiero ir un poco más alla, quiero que me oculte las columnas en vacias y las columnas que estén con datos pero que NO TENGAN el color de fondo Interior.Color = RGB(255, 0, 0), pero no se como ponerlo. Si alguien me puede ayudar, le estaré muy agradecido

Hola que tal Ando buscando ayuda con el siguiente archivo; en la hoja principal (Simple Order) tengo la columna AF y necesito delimitar por cada numero de parte (esta parte de la macro ya la hice en el archivo) pero no se como copiar el titulo (AF1) hasta la ultima columna que me haya dado la macro, todos los dias la cantidad de los numeros de parte cambian y que considere la ultima columna y al final agregue dos titulos mas: Notes y Status. Adjunto el ejemplo de como queda manualmente, cualquier ayuda es bienvenida y gracias de antemano. example.xlsm

Hola como están. Por favor su colaboración. La macro en el botón insertar fila copia la fila 5 que está escondida y la pega en la primera celda disponible en A y adicional inserta una línea debajo de la fila pegada (de esta manera baja la información que hay en el archivo real. El problema es que la fila que se inserta trae el formato de la celdas de columna I y K, es decir, está conservando el color gris. Lo que quiero es que no tenga color gris en esas columnas (I y K) de la fila insertada. ELIMINAR FORMATO FILA.xlsm

Buenas, Quisiera poder arreglar una función en vba que me permite concatenar en comas las celdas seleccionadas. El problema es que al concatenar, aparece un espacio antes de cada coma. Necesito que no aparezca la coma, en el adjunto muestro el resultado deseado. Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) CONCATENARCELDAS = resultado End Function CONCATENAR.xlsm Saludos.!

Hola a todos, mi nombre es A.Maurizio Mi problema es este: En una hoja de Excel que comienza desde la celda (A5) a la celda (E5), ingresé algunos elementos para obtener de un sitio web llamado "Immobiliare.it" la posibilidad de conectarse a este sitio y obtener resultados basados en mis deseos de investigación; Y hasta ahora todo bien. Ahora el problema es este: Cuando comienzo mi procedimiento y se abre el sitio correspondiente El código que puse me lleva solo las tres primeras celdas y las coloca en la página web; pero no las dos últimas formas de investigación. Podrías ayudarme a resolver este problema. Gracias Saludos desde A.Maurizio Trasl…

hola expertos quisiera desarrollar esta idea como puedo enviar la informacion de la columna b de la hoja estadistica y el cuadro de estadisticas descriptivas a la hoja archivo cada vez que se termina de ejecutar un proceso la diferencia son 6 columnas despues de cada proceso estadistica-descriptiva.xls

Estimados..... necesito copiar un rango que va fluctuando dependiendo del valor de una variable al intentar hacer Sheets("Hoja" & dia).Range("B&filadia:O&filadia").Copy me marca error filadia comienza con valor 8 y esta definida byte agradezco desde ya la orientación

Buenas tardes a todos Les consulto mi problema en espera de que puedan ayudarme ya que he intentado por mi misma de hacer una macro para esto pero no encuentro la solucion/ Debo hacer una tabla con filtros y necesito que en otras celdas me re copie los valores filtrados; como una sintesis de todo lo filtrado: O sea que si en la columna A filtro xx y en la culumna B filtro yy en otra celda me diga; Columna A : xx Columna B: yy desde ya muchisimas gracias, llevo una semana con esto !! Eliana

Hola Estimados, tengo el siguiente archivo dándole vueltas, Lo que hace es seleccionar varios registros del listview por medio de check, y los imprimo en PDF. El de forma individual ya lo tengo, me imprime un pdf por cada registro que tenga seleccionado. El tema es que quiero imprimir en forma masiva, decir un solo PDF pero por todos los que tenga seleccionado, me refiero a que el PDF que va a llevar por nombre "reporte pdf" sea uno solo y que me de una hoja por cada pagina seleccionada, en este caso una hoja por region, nose si me explico. Se que el código esta casi pero el bucle mes esta comiendo, hay algo que me falta para que funcione. Busqué …

Hola a Todos estoy tratando de enviar un mensaje de WhatsApp desde el Excel y todo funciona bien menos el ENTER... no lo acepta la intrucción ActiveWindow.Application.SendKeys "{ENTER}" no la ejecuta.. Alguna sugerencia? Gracias y Saludos !!

Buenos días estimados colegas, Requiero su valiosa ayuda con el siguiente código. Private Sub ComboBox11_Change() CommandButton1.Enabled = False ComboBox10.Clear Set ES_circuito = BD.Columns("Z").Find(ComboBox11, , , xlWhole) If Not ES_circuito Is Nothing Then x_Busco = ES_circuito.Row Do Until BD.Range("Z" & x_Busco) <> ES_circuito If ComboBox11.Value = "" Then Exit Do ComboBox10.AddItem BD.Range("A" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 1) = BD.Range("D" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 2) = BD.Range("C" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 3) = BD.Range…