Dante Amor

Prueba lo siguiente: Debes utilizar "set" cada vez que le vas a asignar un rango. Sub pruebas() Dim Fecha As Date Dim Rango As Range, RangoF As Range, RangoC As Range Dim FechaFinal As Range, FechaInicio As Range Dim TurnoX As Variant Dim...

Te falta un espacio después de "explorer.exe " Call Shell("explorer.exe " & ruta3, vbNormalFocus)

Prueba este código Sub Crear_xls_1() Dim wb2 As Workbook Dim sh2 As Worksheet ' Application.ScreenUpdating = False Application.DisplayAlerts = False Application.CopyObjectsWithCells = False ' Sheets.Copy Set wb2 = ActiveWorkbook For Each sh2 In...

Ejecuta la siguiente macro: Sub Concatenar_Info() Dim a As Variant, b As Variant Dim dic As Object Dim i As Long ' a = Range("A1", Range("B" & Rows.Count).End(3)).Value ReDim b(1 To UBound(a, 1), 1 To 2) Set dic = CreateObject("Scripting.Dictionary")...

Prueba lo siguiente. Recorre la columna A desde la fila 2 hasta la última fila con datos de la misma columna A. Por cada fila te genera un archivo. Sub Macro1() Dim RutaArchivo As String Dim sh As Worksheet Dim l2 As Workbook Dim i As Long '...

2. Si la hoja1 y hoja2 tienen estos datos. Cuál sería el resultado en la hoja Destino: Según tus condiciones, en la hoja Destino solamente pondría datos de la hoja1, ya que los valores de la hoja1 no son menores a 100, entonces no se debe traer nada...

Pero entonces necesitas 6 celdas para poner los diferentes rangos, algo como esto: Public Function clasif(A As Double) As Byte clasif = 0 If A >= Range("A1") And A <= Range("B1") Then clasif = 1 If A > Range("A2") And A <= Range("B2") Then clasif = 2...

En este caso la respuesta sería 11-10-2021 =HOY()-DIASEM(HOY())-5 La semana siguiente 18-10-2021 =HOY()-DIASEM(HOY())+2

Filtre todo lo que sea 1, lo copie ¿Copiar desde cuál columna y hasta cuál columna? ¿En cuál fila tienes encabezados? ¿En cuál fila empiezan los datos? Lo pegue en la hoja llamada "Macro" Lo peguen cuál celda, en cuál fila, en cuál columna. Antes de...

Debes explicar cómo se llama tu carpeta. En cuál columna tienes los nombres de archivo y cuál columna quieres el resultado. Prueba lo siguiente. Supone que la carpeta se llama "c:\trabajo\pdfs\" También supone que los nombres están en la columna A y...