Luis Carlos

Option Explicit Public Sub ConsolidarRapido() Dim ws As Worksheet, wsOut As Worksheet Dim rng As Range, data As Variant Dim dict As Object, k As Variant, itm As Variant Dim i As Long, nCols As Long, nOut As Long Dim outArr() As Variant '=== CONFIGURA...

1. Usar CDbl (Convertir a Double) Dim numero As Double numero = CDbl(TextBox1.Text) CDbl convierte una cadena en número con decimales. Respeta el formato regional de Windows (ej: 3,14 en configuración española; 3.14 en configuración inglesa).2. Usar...

=SUMAPRODUCTO( (A2:A100=P3) * (B2:M100) * (B1:M1>=P1) * (B1:M1<=P2) )=SUMAR.SI.CONJUNTO(C:C; B:B; F3; A:A; ">="&F1; A:A; "<="&F2)

Sub Botón155_Haga_clic_en() Application.ScreenUpdating = False Dim origen1 As Range Dim origen2 As Range Dim destino1 As Range Dim destino2 As Range Dim fecha As Date Dim celda As Range Dim hojaHistorico As Worksheet Dim protegida As Boolean '...

Acudo a ustedes en busca de Ayuda. Necesito que esta macro funcione en 90 rangos discontinuos. La idea es que al dar clic en las celdas de los rangos, si está vacío se escriba "R", per si tiene "R" esa celda, entonces se quede vacío (""). Me ha...

Acudo a ustedes con el fin de obtener una colaboración en el siguiente error: Pretendo hacer un calendario perpetuo, que se actualice automáticamente con base en la función =hoy(), que no sea necesario columnas auxiliares, ni escribir manualmente o...

Recurro a tu ayuda en el siguiente aspecto: Tengo una hoja llamada "Servicios, con datos en las columnas "A:H". En la columna "H", están las fechas. Requiero una macro que copie todos los registro que tengan en la columna "H", la fecha del día de hoy...

Validar con las funciones INDICE y COINCIDIR (=ID, =Fecha, ="Sí"), si se cumple, escribir "R", de lo contrario "X". Hola Dante, te invito a ayudarme en esta consulta.

Validar si se cumplen 3 condiciones (=ID, Fecha y valor "Si"), al buscar con la función INDICE y COINCIDIR, si el resultado es verdadero, que muestre "R", de lo contrario muestre "£", con el tipo de fuente Wingdings 2...

Tengo esta macro en un Módulo: Option Explicit Sub Combinar() Dim shtLista As Worksheet Dim strGrado As String Dim strNombres As String Dim strCedula As String Dim strCiudad As String Dim strFecha As String Dim filaInicial As Long Dim objPPT As...