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