Dante Amor

Realiza una conexión al tipo de cambio que se obtiene de google. Solamente realizarás este proceso una vez. Después solamente se actualiza. Sigue los pasos: 1. En una hoja nueva y la llamas "tipocambio" 2. Selecciona la celda B2 3. Selecciona del...

En el archivo txt, el espacio que existe entre el número de la izquierda y el número de la derecha, ¿es una tabulación o son espacios en blanco? ¿El archivo txt va a estar en la misma carpeta donde se encuentra el archivo de excel?

Ejecuta la siguiente macro o agrega las líneas en tu código: Sub macro1() Dim ruta As String With ThisWorkbook ruta = .Path & "\" .SaveCopyAs ruta & Replace(.Name, ".xlsm", "") & " " & Format(Date, "dd-mm-yyyy") & ".xlsm" End With End Sub

Para hacerlo dinámico podrías proporcionar más información. Responde en el siguiente orden: ¿En dónde tienes encabezados? ¿En cuál fila empiezan los datos? ¿Cómo saber si en la columna tienes valores para ser sumados? ¿En dónde quieres los...

Puedes poner ejemplos de lo que tienes en la hoja. Qué vas a capturar en el textbox Y qué resultados quieres.

Prueba esta fórmula: =CONTAR.SI($A$2:$A$10;"<"&A2)+CONTAR.SI($A$2:A2;A2) Nota: Cambia el punto y coma ( ; ) por coma ( , ) si la utilizas como separador de argumentos.

Prueba esto: Sub SeleccionarCelda() Dim f As Range Set f = Sheets("Hoja2").Range("B:B").Find(ActiveCell.Value, , xlValues, xlWhole, , , False) If f Is Nothing Then MsgBox "No encontrado" Else Sheets("Hoja2").Select f.Select End If End Sub

[E stimado, tienes pendiente valorar respuestas: Problema para exportar a PDF en Excel VBA

Prueba esto: Sub Macro2() Dim i As Long, bprn As Boolean For i = 3 To Range("U" & Rows.Count).End(3).Row Step 10 If Range("U" & i).Value <> "" Then ActiveSheet.PageSetup.PrintArea = "T2:Z" & i + 7 bprn = True End If Next If bprn Then...

No entiendo bien lo que necesitas, sería mejor si lo explicas con un ejemplo. Este es un ejemplo: =PROMEDIO.SI(B2:B6,"<>",C2:C6) La fórmula promedia los valores de la columna C, si en la columna B tiene datos.