Abraham Valencia

[Hola ¿Cuántos megas tiene tu archivo? Mientras tanto, ve leyendo esto: https://abrahamexcel.blogspot.com/2018/01/el-gran-problema-de-los-archivos-lentos.html Comentas Abraham Valencia

[Hola La instrucción que mencionas lo que te da es el número de serie de la BIOS; para tener ese mismo número en una celda prueba así: Sub SerialBIOS() Dim List As Object Dim Mibios$ Dim Objeto As Object Set List =...

[Hola Si tu intención es seleccionar la celda A, pues esto: Range("A1").Select.Value Déjalo solo como: Range("A1").Select Comentas Abraham Valencia

[Hola Ese cuadro de dialogo no depende del VBA, es predeterminado por Excel. Hay una forma con Hook(ing) y funciones de la API de Windows pero, tendrías que entenderlo, adaptarlo a lo que tienes y probarlo. En un módulo estándar copia y pega esto: '...

[Hola Entonces ¿no te es útil la herramienta "Reemplazar" del propio Excel? Abraham Valencia

Prueba así: Sub FCTR_GARANTIA() With Sheets("Factor") .Unprotect "xxxxx" .Range("k25").GoalSeek Goal:=.Range("I25").Value, ChangingCell:=.Range("G26") .Protect "xxxxx" End With End Sub Y en la hoja "Calculación" esto: Private Sub...

[Hola El método "ExportAsFixedFormat" no tiene una propiedad que permita agregar algún tipo de clave al archivo pdf generado. Un forma de interactuar correctamente sería trabajar con el objeto "Acrobat" y quizás así podría realizarse lo solicitado...

[Hola ¿Te refieres a una "Forma" (antes "autoformas") del tipo "Línea"? Segundo, dices que estás posicionado en cualquier celda de entre las columnas A y F pero luego dices que tu celda activa es D10 y la línea va de A10 a F10... no se entiende la...

[Hola Prueba con el evento "Calculate" de tu hoja: Private Sub Worksheet_Calculate() Dim Celda As Range For Each Celda In Range("M15:M30") If Len(Celda) = 18 Then Celda.Font.Size = 14 Else Celda.Font.Size = 25 End If Next Celda End Sub Comentas...

[Hola ¿Qué versión de Visual Basic usas? ¿Los números son enteros o decimales y/o ambos? Abraham Valencia