Rafael Vera

Aquí tienes la macro ajustada para que copie los datos de la hoja "CLIENTES" a la hoja "TEMP_BLOQUE" solo cuando el valor en la columna M sea "NORMAL": Sub CopiarClientesParaBloque() Application.ScreenUpdating = False Dim origen As Worksheet Dim...

Para extraer los primeros 10 caracteres del CURP y mostrarlos automáticamente en el segundo cuadro de texto, puedes utilizar el evento Change del primer cuadro de texto. Aquí tienes un ejemplo de cómo hacerlo en VBA para Excel: Private Sub...

Aquí tienes un ejemplo de cómo hacerlo: Sub ArrancarMacroEnOtroDispositivo() Dim WshShell As Object Dim rutaArchivo As String ' Ruta del archivo de Excel en el otro dispositivo rutaArchivo = "\\nombre_del_equipo\ruta_del_archivo.xlsb" ' Crear un...

Quí tienes un ejemplo de cómo puedes hacerlo: =BUSCARV(valor_buscado; rango_tabla; número_columna; FALSO) En esta fórmula, "valor_buscado" es el valor que estás buscando, "rango_tabla" es el rango de datos en el cual quieres buscar, "número_columna"...

Cuando se vinculan Google Sheets y Excel, puede haber discrepancias en el orden de los datos debido a varias razones. Una posible causa podría ser que las columnas en Google Sheets estén ordenadas de manera diferente, ya sea por fecha o...

Puedes cambiar el tipo de datos de las variables "Valor" y "Valor1" a "Long" en lugar de "Integer". El tipo "Long" puede manejar números más grandes que el tipo "Integer". Aquí tienes el código modificado: Private Sub CommandButton1_Click() Dim i As...

Sub BuscarReferenciasPDF() Dim AcroApp As Acrobat.AcroApp Dim AcroAVDoc As Acrobat.AcroAVDoc Dim AcroPDDoc As Acrobat.AcroPDDoc Dim AcroTextSelect As Acrobat.AcroPDTextSelect Dim HojaDestino As Worksheet Dim RangoDestino As Range Dim ArchivoPDF As...

El error en la línea que mencionas se debe a que la función InStr espera como primer argumento una cadena de texto en la que se buscará un carácter o una subcadena, pero en tu código estás pasando un array de cadenas. Para solucionar este error,...

Entiendo que estás buscando una forma de simplificar la navegación entre las hojas de tu libro de Excel en OneDrive, ya que no es posible utilizar macros ni código en esta plataforma. Si entendí correctamente, una posible solución es utilizar una...

Private Sub Workbook_Open() ' Cargar los datos guardados en los TextBox Hoja1.TextBox1.Value = ThisWorkbook.Sheets("Hoja1").Range("A1").Value Hoja1.TextBox2.Value = ThisWorkbook.Sheets("Hoja1").Range("A2").Value Hoja1.TextBox3.Value =...