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...

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...

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...

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...

Si no deseas hacerlo con macro, entonces hazlo así: =$W2="X" Esto con formato condicional, seleccionando la opción "que contenga" No olvides seleccionar o indicar el rango donde deseas que de cumpla esta condición.

Tengo esa hoja de cálculo y he diseñado este formulario, en la hoja de calculo, tengo casi 1.000 registros y lo que deseo es, que cuando se inicie el formulario, en el combobox Departamento, se carguen lo valores únicos de la columna "G"...

Tengo en un formulario dos botones y cada uno tiene su respectivo código, así: Private Sub BtnAnterior_Click() Rem Carga los datos del Participante y sus Evaluadores, si tiene Autoevaluación o Evaluación Pendiente. ActiveCell.Offset(-1, 0).Select...

Hola Expertos. Buenas tardes, tengo la anterior tabla, es una tabla dinámica y necesito hacer esta validación en la columna B, con la siguiente función:...

Para activar la celda que contiene los datos seleccionados en el listbox: 'Activar la celda del registro elegido Private Sub ListBox1_Click() ActiveSheet.Unprotect Password:="Seguridad" Cuenta = Me.ListBox1.ListCount Set Rango =...