Jose BN

Gran Antoni! Como siempretu cátedra se ha hecho presente...

Muchas gracias! Quedo satisfecho con el aporte; si lo desean pueden cerrar el tema....

Fíjate a ver si entendí bien: Sub carpeta() ruta = InputBox("ingresar la ruta") Range("i1").Select Do While ActiveCell.Value <> "" MkDir (ruta & "\" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop End Sub

Gersón ha queda muy bien. Sub CopiarColumnasIntercaladas_GP() '************ by Gerson Pineda ************ '************ 31/Oct/2019 ************ Application.ScreenUpdating = False ruta = ("C:\Users\jcarce\Desktop\Libro1JB.xlsx") vuf = Range("A" & Rows.Count).End(xlUp).Row Workbooks.Open ruta: ThisWorkbook.Activate Union(Range("B5:B" & vuf), Range("D5:I" & vuf)).Copy _ Workbooks("Libro1JB.xlsx").Worksheets(1).Range("A1") Workbooks("Libro1JB.xlsx").Close 1 Application.ScreenUpdating = True End Sub Me podrías explicar esta parte: a qué se debe el _ del copy? Puedo interpretar que B está de intercalada de las columnas D hasta I (estas ultimas son continuas)siendo esta la forma de unir los datos al estar intercalados. Union(Range("B5:B" & vuf), Range("D5:I" & vuf)).Copy _ Por ultimo para aprendizaje: porqué se debe contar A? hubiera muerto pensado que los datos siempre deberían haber partido de B y posiblemente no lo hubiera solucionado nunca!!!!, a pesar de haber sido adoptado por tu familia(tú y tú abuelo). Pero llegamos donde grandes personas como: tierra_pampa , Antoni , Gerson Pineda EXISTEN EN EL EXCEL AYUDA! vuf = Range("A" & Rows.Count).End(xlUp).Row Saludos

Estimado Antoni. Adjunto el fichero y lo poco francamente que he avanzado ya dirás que tan mal va mi camino. Saludos J Consulta foro.xlsm

Muchas gracias! tierra_pampa promesa que la próxima incluiré el archivo. La modificación trabaja bien, solo que esta copia únicamente los datos de la columna B, dejando por fuera:B,D,E,F,G,H,I será abusivo si me ayudas con esta parte. Saludos JB

Hola! amig@s del foro, quisiera solicitarles el apoyo con la siguiente macro que intento realizar con la intención de copiar los datos que inician en la celda 5 de las columnas("B,D,E,F,G,H,I) de mi libro activo ("Libro1") a copiarlas a un "libro2" a partir de la celda "A1" de la hoja1 de este ultimo, lo cual no he logrado tener éxito: Sub copiarDatosDeArchivo1A2() Dim x As Workbook Dim y As Workbook '## Abrimos ambos ficheros: Set x = ActiveWorkbook Set y = Workbooks.Open("C:\Users\jballadares\Desktop\CSV\JBLibro4.xlsx") 'Copiamos los datos que queramos del primer libro de excel: x.Sheets("RV").ActiveSheet.Range("B65536").End(xlUp).Copy 'Pegamos en el otro libro: y.Sheets("Hoja1").Range("A1").PasteSpecial 'Cerramos el fichero: x.Close End Sub Agradezco la ayuda que me puedan brindar. Saludos JB

Muchas gracias! Saludos JB

Gran Antoni, Gersón y tierra_pampa, muchas gracias!!! Los ejemplos son geniales, que eliminan el uso del botón parte en la que estaba sin avanzar. Pueden concluir el tema.. Que continúes disfrutando esas vacaciones amigo, aquí nos hacen falta!!! If Me.txtFiltro1.Value = "" Then Exit Sub Me.ListBox1.Clear j = 1 For i = 1 To 18 If Cells(i, j).Offset(0, 2).Value = CInt(Me.txtFiltro1.Value) Then Me.ListBox1.AddItem Cells(i, j) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3) Else End If Next i Exit Sub Errores: MsgBox "No se encuentra.", vbExclamation, "Información"

Julio según logro comprender el valor 405.64 se encuentra entre 385 y 414 de la hoja fecha por ende la fecha que debe colocar es: 19/02/2018, de ser esto correcto la formula que propone Gersón lo logra con éxito... Saludos, J Ejemplo (1).xlsx

Buenas tardes, Amigos del foro quisiera solicitarles su acostumbrada ayuda a orientarme en mi siguiente necesidad, cómo puedo lograr que el listbox que he insertado en el formulario filtre los datos en base al criterio seleccionado en el combobox, ojalá sin la necesidad de requerir aplicar el filtro mediante un botón Agradezco la ayuda. Saludos JB CONSULTA COMBOBOX.xlsm

Gran Antoni la voz de la experiencia es sabia...no es necesario complicar más la cosa, en tu recomendación se cumple que cuando no exista valor en H1 no se ejecutará el recordatorio y al contar con el criterio se activa la ejecución, solo creo que era una cuestión de sordera de mi parte a lo que me indicabas. Realmente te lo agradezco... Primo Gersón a ti también las gracias y a tu abuelo son un gran familia, estoy seguro que los continuaré viendo por estos lados.... Pueden cerrar el tema. Saludos cordiales Jose

Gersón primero gracias!!! por incluirme en tan bondosa familia.... Paso aclarar lo siguiente: Mi idea es que al abril el libro si la condición se encuentra el valor "Activar" en la celda mencionada esta dispare una macro que llamado recordar con una seria de mensajes para el usuario lo cual debe ocurrir en una hora establecida en el evento(Application.OnTime), hasta aqui el fin que busco, como le comentaba Antonio para cancelar este "disparo" quería mediante una segunda condición a la que llamé "Null" cuando este valor se cumple cancelar el evento de la macro recordar, que se dispara en la hora ya comentada, evitándole con esto que el usuario deba cancelar el evento desde editor de vb si en algún momento ya no se hace necesario este recordatorio y para que no se vuelva molesto este aviso quería cancelarlo con el evento: Sub CancelTimer2() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=False End Sub Ahora solo me quedan las corrección optimas que seguro saldrá de sus experiencias y grandes conocimientos.

Estimado Antoni es muy sabia la lógica que planteas, pero pensando en un mañana que no sea quien utilice el archivo y sin tener que la persona este oligada a ingresar al editor vb estaba considerando la opción de " cancelar" el proceso mediante una condición a la he llamAdo NULL invoque al código: Sub CancelTimer2() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=False End Sub Será que tiene buen camino lo que busco? Saludos JB

Antoni del tiempo que tengo de visitar el foro tú y el resto del equipo son seres extraordinarios de gran voluntad y bondad; solo espero que a veces no se pierda la buena acción de ayudar a una persona verdaderamente desorientado. Mis más cordiales saludos; JB