Luis Carlos

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

Necesito un favor, encontré esta macro y quiero adaptarla para que me copie una serie de columnas de una hoja a otra Sub Generar_Planilla() 'activo la hoja donde están mis datos Sheets("Datos").Activate 'inicializo la variable j j = 2 'comienzo el...

Necesito un favor, encontré esta macro y quiero adaptarla para que me copie una serie de columnas de un libro, a otro: Sub Generar_Planilla() 'activo la hoja donde están mis datos Sheets("Datos").Activate 'inicializo la variable j j = 2 'comienzo el...

Estoy empleando este procedimiento para realizar búsqueda de información en una hoja de Excel y llenar un formulario con la información relacionada: Public Sub P_Buscar_Productos() Application.ScreenUpdating = False If Txt_Codigo_Producto.Text = ""...