Rafael Vera

Puedes utilizar la siguiente fórmula: =BUSCARV(A2, TablaProductos!A:B, 2, FALSO)

Google Sheets no permite de manera nativa deshabilitar completamente las opciones del menú "Archivo", como "Crear una copia", "Descargar", "Compartir" o "Enviar". Esto se debe a que los usuarios con acceso de edición siempre tienen ciertas libertades...

Puedes utilizar una fórmula personalizada para determinar si la condición se cumple. - Selecciona las celdas donde deseas aplicar el formato condicional: Selecciona las celdas en los rangos E5:E200, F5:F200 y S5:S200. - Aplicar formato condicional:...

Puede que VBA no sea la mejor herramienta. De todos modos, solo por diversión, escribí un código muy contundente Option Explicit Public Sub Download() ' Declaraciones. Dim xmlhttp As New MSXML2.XMLHTTP60 Dim StrURL As String Dim StrResult As String...

Puedes usar este código: Sub RellenarDepartamentos() Dim i As Long Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 5 To LastRow If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value End If Next i End Su...

Para ejecutar automáticamente una de las tres macros, la selección en un combobox y la actualización de la celda B. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("B1")) Is Nothing Then Select Case...

Para asegurarte de que solo las filas con un ID no vacío se carguen en el ListBox Modifique tu código ajustado: Option Explicit Sub cargarlista() Dim i As Long i = 3 With ListContratosHH.ListBox1 .Clear Do While Hoja1.Cells(i, 1).Value <> "" Or...

=CONTAR.SI($A$1:$C$1,IZQUIERDA(A1,2))=3 Resaltar coincidencias en las celdas 1. Dos primeras posiciones coinciden =CONTAR.SI($A$1:$C$1,IZQUIERDA(A1,2))=3 2. Dos posiciones del centro coinciden =CONTAR.SI($A$1:$C$1,EXTRAE(A1,2,2))=3 3. Dos últimas...

Crea un archivo .vbs que contenga el código para abrir, guardar y cerrar el archivo de Excel. Aquí tienes un ejemplo de cómo hacerlo: Dim ExcelApp, Workbook Set ExcelApp = CreateObject("Excel.Application") Set Workbook =...

Puedes utilizar el método .PasteSpecial con el argumento xlPasteValues Sub CopiarImprimir() Application.ScreenUpdating = False Sheets("Imprimir").Range("A4:C50").Clear Sheets("Imprimir").Range("E4:J49").Clear Sheets("Planillas").Range("G4").Copy...

Para redondear los decimales de un número a la cantidad más cercana de .00 o .50, puedes utilizar la función REDONDEAR() en combinación con algunas operaciones matemáticas. Aquí tienes un ejemplo de cómo podrías hacerlo: =REDONDEAR(A1*2, 0)/2 Esta...

Compartelo su codigo

=DIATRABAJO(B1, 12) Esta fórmula sumará 12 días laborables a la fecha de la celda B1 y devolverá el resultado en la columna F. Asegúrate de que el formato de fecha en la columna F esté configurado correctamente para que se muestre como dd/mm/aaaa.

Aquí tienes un ejemplo Sub CopiarCeldasEnCiclo() Dim i As Long Dim origen As Range Dim destino As Range ' Establece la celda de origen y destino iniciales Set origen = ThisWorkbook.Sheets("NombreDeTuHoja").Range("G41") Set destino =...

Tiene algún ejemplo tu código.

La variable FeChita no está definida, y en su lugar, estás usando FeCha para buscar en el rango