Dante Amor

Puedes poner aquí tu código para revisarlo.

Prueba lo siguiente: =SI(B11=INDIRECTO("'[" & B11 & ".xlsx]Hoja1'!$C$5");INDIRECTO("'[" & B11 & ".xlsx]Hoja1'!$C$55"))

Esto es bien importante que lo menciones: ¿En la columna "Incorrecto" la fecha está como texto? Desafortunadamente tus ejemplos no muestran cuál es el mes y cuál es el día. Si pusieras algo como esto: Incorrecto Correcto 02/24/2021 24/02/2021 Podría...

Si quieres los archivo en diferentes columnas: En la columna A los xml y en la B los pdf Sub ListarArchivos_1() Dim a As Variant Dim Carpeta As String Dim sh As Worksheet Dim ListadoArchivos As Object, archivo As Object Dim n As Long, i As Long, j As...

¿Lo quieres aumentar en una macro o en un nombre de rango? ¿Cuál es el rango inicial? ¿Qué valores tienes en la otra columna? ¿Y cuál sería el rango final? Puedes explicarlo con imágenes.

Aquí otra fórmula a considerar: =IZQUIERDA(A2;LARGO(A2)-SI(ESERR(DERECHA(A2)+1);0;3)) --- Aplicando la fórmula en la macro: Sub QuitarNumeros() With Range("B2:B" & Range("A" & Rows.Count).End(3).Row) .Formula =...

Esta es una opción sin macros. 1. Selecciona todas las celdas de la hoja. 2. Ve al menú Inicio, Formato, Formato de celdas, Pestaña Proteger. Y marca la casilla Bloqueada Presiona Aceptar 3. Selecciona las celdas D10, G10, D12, G12, D14, G14 y D16 y...

Prueba la siguiente: Sub test() Dim escritorio As String Dim carpeta As String Dim archivo As String ' escritorio = CreateObject("WScript.Shell").SpecialFolders("Desktop") carpeta = escritorio & "\" & "planillas de pedido" archivo = carpeta & "\" &...

Aquí otro código a considerar: Sub Copia_Datos_2() Dim sh1 As Worksheet Set sh1 = Sheets("Hoja1") With Sheets("Hoja2") .DrawingObjects("Rounded Rectangle 47").Text = sh1.Range("A1") .DrawingObjects("Oval 48").Text = sh1.Range("B1")...

Para los bordes: h.Range("A5").Resize((Txtfin_y / Txtini_y) + 2, (Txtfin_x / Txtini_x) + 1).Borders.LineStyle = xlContinuous Para los númeroa puedes utilizar Series en lugar de ciclos: Private Sub CommandButton1_Click() Dim h As Worksheet ' Set h =...