Con el permiso de todos lo integrantes de esta comunidad de expertos solicito sus valiosas ayudas por favor, se trata de una macro como menciona en el titulo tengo una carpeta llamado JULIO dentro de ella contiene un libro llama Distribuir transaciones.xlsm este libro al abrir contiene varias hojas inicio, cadenas, muestra y fechas cada una de ellas cumplen su rol importante explico en la hoja inicio está la fecha o el mes donde tengo que poner el último mes que es trabajado, además e eso hay dos celdas con la dirección de rutas donde están ubicado las carpetas y los libros, a la vez hay un botón donde esta enlazado con la macro, en la hoja cadenas contiene los nombres de…

estoy tratando de hacer una macro que haga una tabla dinamica con rangos Dinamicos esta es la formula, Pero al Ejecutar la macro Me aparece un error que dice arugmento o llamada a procedimiento no valida, que estoy haciendo mal? de su ayuda Por Favor........ Dejo el archivo adjunto, y por favor indicarme cual es mi error. Gracias. Libro1.rar

Buenas noches Foristas, mi nombre es Juan Carlos Jones y deseo que por favor me ayuden con esta plantilla. Lo que deseo hacer es que cuando le coloqu el mes de la aplicacion o uso de un producto este se el mes en el que se le coloque valor economico en el mes o los meses que correspondan. En la cedal C26 coloco la repeticion o cada cuanto se usa o plica el producto y deseo que el valor se coloque solo en el mes de su aplicacion. Ejemplo: Control de malezas se aplica cada 2 meses, esto quiere decir que cada dos meses debe aparecer el valor de esa aplicacion, mes 2, 4, 6 y 8 No he podido resolverlo. Muchas gracias por su ayuda. Anexo…

Hola: El otro día me hicieron una pregunta que no supe contestar: En una empresa tienen una macro que lee archivos de texto gigantes (unos 2 GB) para extraer una determinada información de ellos. La macro tarda en ejecutarse nada más y nada menos que unos 4 días enteros y la pregunta que me hicieron fue que si existía alguna posibilidad de dividir la ejecución de la macro en otros equipos conectados para que, a través de sus otros procesadores, tardara menos tiempo. Ahí queda eso. A quien sepa responder a eso, le doy un 10! Saludos

Hola a todos los foreros, otra vez por aqui para ver si me pueden colaborar con un atranque que tengo con el codigo de abajo, les explico, utilizo un combobox para elejir la hoja donde quiero guardar los datos, y a la hora de verlos en un listbox le pongo este codigo, pero me devuelve error, ya he probado varias cosas pero no doy con la tela, le agradeceria su ayuda Gracias por adelantado, saludos Rows(1).Copy Sheets(ComboBox1.Value).Rows(1) ListBox1.RowSource = "ComboBox1.Value!A2:M" & Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = True Editado por Moderación: Colocar en etiquetas el código

Buenas noches, Me estreno en este foro preguntado a cerca que al crear una serie de botones, con su código en VB y que funcionan a la perfección, otros códigos que antes funcionaban bien ahora me producen 2 tipos de errores. No le veo la lógica y escribo por si alguien me dá alguna idea. Los errores són: Se ha producido el error '438' en tiempo de ejecución: El objeto no admite esta propiedad o médodo. Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto '_Worksheet' Pero repito que estos errores aparecen en macros que antes funcionaban bien, y en cambio las nuevas macros funcionan bien y sin errores. Gracias! He intentado s…

Hola a todos, He escrito un macro con un bucle (Do/Loop Until) para que realice iterativamente el cálculo de una probabilidad hasta que esta sea mayor que el valor umbral fijado. Cuando se supera este valor, la macro debe de escribir en unas celdas determinadas el resultado del calculo inmediatamente anterior al que superó el umbral. Lo he probado y al ejecutarlo el cursor no para de girar y me dice que Excel No Responde. Supongo que entra en un bucle infinito. No se que he hecho mal. Os subo el archivo por si me podeis ayudar. Gracias de antemano. Saludos. Cálculo tamaño familias_m2.xlsm

Buenas tardes a todos. En esta macro: Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8 Public Const MOUSEEVENTF_RIGHTUP As Long = &H10 Sub ABRIR_IE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.paginaweb.html" While IE.Busy DoEvents Wend IE.Visible = True DoEvents …

Buenos días, tengo un problema, tengo una macro que me permite generar en una tabla automática la suma total de días según color y nombre, ahora necesito sumar pero no el total de días, sino algunos día, dentro de la macro esta seleccionado como range la selección de la suma de los valores y no he encontrado como o que operador lógico colocar para seleccionar algunas columnas o días. Gracias. Libro1.xls

Hola . Un favor , tengo un formulario para llenar las ventas del día, el cual va cargando los datos a la hoja2 buscando la ultima fila y llenándolo con los datos que grabe, mis encabezados son los siguientes NOMBRE/FECHA/LA/COD/BOLETANº/PASAJERO/BOLIVIANOS/DOLARES Y lo que quiero que me ayuden es que solo me visualice en el listbox los encabezados y el ultimo dato ingresado, Gracias Jesús

hola chicos! Alguno sabe como (o si es que se puede) hacer que el comobobox se desplace al mover la rueda del mouse y no sea necesario presionar las flechitas de la barra de desplazamiento? gracias

Buenas tardes; estimada comunidad, agradezco me ayuden con este caso. Tengo una serie de textbox que cargan un listbox; los tengo condicionados para que, al dar clic en el boton de carga, me muestre un error si hay algo vacío; el problema es que la informacion se cargue al listbos solo cuando los 5 datos esten completos, pero lo que escribi sigue derecho y graba sin importar si todos estan completos. Private Sub CommandButton14_Click() 'cargar informacion ref bancaria a listbox 'validar que los campos esten completos If TextBox34 = Empty Then MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical TextBox34.SetFocus El…

Hola a todos: Se trata de un problema teórico surgido a raíz de una consulta en otro foro. Como determinar si el extremo superior izquierdo de una celda se encuentra dentro de un cuadrilátero delimitado por 4 celdas. ¡Ale! a estrujarse las neuronas. Gracias de antemano. ?? Problema.xlsm

UserForm.Comobobox pasar datos a columnas según el titulo se coloquen datos uno debajo. Estimados. He venido a buscar vuestra ayuda con algo que me está rompiendo la cabeza. Tengo un UserForm donde ingreso unos datos a una hoja con varias columnas pero no siempre se llenan todas por lo cual necesitaría que se llene por fila uno bajo otro como base de dato dependiendo lo que se ingrese, el tema que cuando se graba a partir de la 3 fila se terminan grabando en la fila anterior sobre los datos que ya estaban ingresados. Adjunto archivo para que se pueda entender visualmente. Desde ya muchas gracias por su tiempo. Muy bueno el foro me ha enseñado mucho. ---------------…

buenos días compañeros, espero que se encuentren bien, Tengo el siguiente caso, en la columna W se pone el mes anterior al que estoy, es decir, estamos en Marzo 2020, en W1 se deberá poner Febrero 2020. las columnas L a V seguirá disminuyendo de a mes , cómo así? Sí en W1 está Febrero 2020 las columnas deberán quedar así v1: Enero 2020 - u1:Diciembre 2019 - T1: Noviembre 2019 - S1: Octubre 2019 - R1: Septiembre 2019 .... L1:Marzo 2019 El proximo mes, cuando estemos en abril, la casilla W1 deberá ser Marzo 2020 y el resto de columnas v1:Febrero 2020 - u1:Enero 2020 - T1: Diciembre 2019 - S1: Noviembre 2019 - R1: octubre 2019 .... L1:Abril 2019 …

Hola a tod@s, Sigo creciendo en dudas respecto a la creación de macros. En parte por la "culpa" de [uSER=46507]@Macro Antonio[/uSER] que me resuelve todo como si fuera fácil. El objetivo es copiar una hoja "AA_plantilla" un número de veces determinado (hecho) para en un segundo paso poder copiar los nombres de la hoja (AA_nombres) en las casillas A2 de las hojas que se acaban de crear y renombrar estas nuevas hojas con este nombre. Esta macro hace perfectamente el paso número 1: copiar la plantilla "Sub CopiaHoja() On Error Resume Next nombreHoja = InputBox("¿Qué hoja quieres copiar?") For x = 1 To Sheets.Count If ActiveWorkbook.Sheets(x)…

Hola a todos y todas. Lo primero, gracias de nuevo a todos y todas. Me estáis ayudando un montón. Os cuento. Tengo una hoja prácticamente lista para introducir datos. Todo está preparado (o casi todo ), pero cuando comienzo a trabajar con ella me dí cuenta de una dificultad. Los datos son numéricos (por tanto utilizaré el teclado numérico de la "derecha"), y cuando quiero pasar a la celda siguiente, cuando pulso intro, lo que hace Excel es desplazarme a la celda de abajo en vez de a la de la derecha +1 (la adyacente estará bloqueada para que no se cambien las fórmulas). Probé hacerlo en opciones de excel/avanzadas/desplazamiento de la tecla ENTER y funciona, pero s…

Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(Co…

Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre e…

buenas noches mi pregunta es la siguiente he estado buscando en internet pero no encuentro nada, lo que busco es una macro que me pueda dejar usar la imagen (del cuadro de herramientas) como boton de comando?

Buenas tardes tengan todos ustedes, sin encontrar una solución a mi problema hoy acudo a su apoyo. Tengo el siguiente código que me ayuda a seleccionar varios elementos de una lista desplegable: Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer Dim xRgVal As Range Dim xStrNew As String Dim xStrOld As String Dim xFlag As Boolean Dim xArr Select Case Target.Column Case 7 On Error Resume Next Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation) If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub If Intersect(Target, xRgVal) Is Nothing Then Exit Sub Application.EnableEvents = False xFla…

Buenas tardes Estoy intentando adaptar a mis necesidades un aporte de Macro Antonio (combobox dependientes o independientes), lo único que conseguí es que no funcione nada, por favor si alguien puede ayudarme se lo agradecería Es realidad lo que quiero conseguir es que en lugar de cuatro columnas, tenga siete, todo lo demás me sirve tal como esta el aporte Envío archivo con lo que hice mal Gracias Un saludo J. Carlos Combos dependientes y no dependientes (5).zip

Estimados, Tengo el siguiente códgio para crear citas desde una macro. Private Sub CommandButton1_Click() Dim Respuesta As VbMsgBoxResult Dim ol As New Outlook.Application Dim ns As Outlook.Namespace Dim itmApoint As Outlook.AppointmentItem Set ns = ol.GetNamespace("MAPI") Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) With itmApoint .Start = "2014-05-22 13:00:00" .End = "2014-05-22 13:00:00" .Subject = "Prueba" .Body = "Prueba" .Importance = olImportanceNormal .Save End With MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje" End Sub Este código me funciona muy bien en algunas máquinas,…

macro que borre contenido de celdas especificas? Muy buenas Tardes Me han pedido en mi trabajo que realize una base de datos que pueda borrar ciertas por asi decirlo encuestas y es una base de datos de mas de 50000 filas, cada encuesta tiene su numero unico y quisiera que me ayudaran a hacer una macro que hago lo siguiente ya que programar si no es lo mio y me urge: Al yo ingreser un numero de encuesta o una lista de numeros como les sea mas facil la macro encuentre la fila donde esta ese numero unico y borre las celdas de la misma fila en la columna X al archivo que adjunto tiene las notas para entender un poco mas macro.xls

Hola compañeros, Queria hacer una consulta sobre una función que necesito, pero no he podido encontrar como generarla. ¿Cómo puedo hacer que una función retorne especificamente la dirección de la celda donde esta fefinida esa misma función? Resumiendo solo a lo que necesito, pense que era solamente Function direccion_celda() As String direccion_celda = ActiveCell.Address End Function Pero me di cuenta que como voy a estar ejectutando y moviendome entre celdas, la función no me retorna necesariamente la celda de la función. Quedo atento a su valiosa colaboración. Saludos.