Dante Amor

Prueba lo siguiente. Agregué unos comentarios en el código para que lo ajustes a tu necesidad. Sub SelCarpeta() Dim num As String, arch As Variant Dim carpetaInicial As String, carpetafinal As String carpetaInicial = "C:\trabajo\" num = "2568"...

Todo el código debe ir en los eventos de la hoja. Ya no es necesario el código que tienes en el módulo. Option Explicit Private Sub CheckBox1_Click() Call Filtrar End Sub Private Sub CheckBox2_Click() Call Filtrar End Sub Private Sub...

[Ho la y bienvenido a todoexpertos. En el tema de excel, podrías hacer las preguntas de manera NO anónima. Puedes utilizar cualquier nombre en tu nombre de usuario. Con un nombre de usuario es más fácil dar el seguimiento a tu problema.

La siguiente macro funciona de acuerdo a las posiciones de los datos mostrados en tus imágenes, es decir: Los datos en la Hoja1 empiezan en la celda A2. Los datos en la Hoja2 empiezan en la celda A2. Y el resultado en la Hoja3 iniciando en la celda...

Te propongo que adaptes lo siguiente a tu código. De la siguiente manera estoy separando: - La carpeta inicial - La carpeta que se forma con las celdas - El nombre del archivo Sub GB() Dim base1 As String, base2, ruta As String Dim num As Variant Dim...

Prueba lo siguiente: Sub Filtrar() Dim h As Worksheet Dim b As Range Dim fecha As Date ' Set h = Sheets("Hoja1") If h.AutoFilterMode Then h.AutoFilterMode = False fecha = CDate(h.[F1]) With h.Range("A:D") Set b = .Find(fecha, , xlValues, xlWhole) If...

Excel tiene una funcionalidad de hacer las cosas de arriba hacia abajo o de izquierda a derecha. De alguna manera no es posible indicarle, con fórmulas, que sume de "desde la última línea de cada Id hacia arriba". Entonces la lógica sería sumar,...

¿Y cuál es la lógica? Estoy tratando de entender cómo quieres ordenar los datos, pero no entiendo. Según tu imagen para el resultado . Primero ordenar por el campo "Orden", pero después no hay una lógica o no la entiendo. Puse con colores, para la...

No entiendo qué necesitas exactamente. Si seleccionas las celdas B2 a H2 y ejecutas tu macro Selection.AutoFill Destination:=Range("B2:H7") Obtienes el resultado de la segunda imagen. Podrías explicar qué tienes y qué necesitas de resultado.

Puede explicar qué tienes y qué quieres de resultado. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben nada acerca de tus datos, nada sobre cómo están en el libro de...