kazama2010

Dante Amor respondió: Te anexo la macro. Funciona de acuerdo a tu ejemplo. Antes de ejecutar la macro debes considerar lo siguiente: - Funciona para celdas que tienen 2 letras ejemplo: "VL" o una letra ejemplo: "V". No funciona para celdas que tengan más de 2 letras. -...

Dante Amor respondió: H o l a: Puedes poner la macro completa para revisarla. El tiempo de impresión no se puede reducir, eso es de windows y el tiempo en que la impresora tarda en responder.

Dante Amor respondió: Tal vez no te hace la multiplicación, porque probablemente tengas letras en lugar de números. Tu fórmula es correcta, pero solamente para multiplicar. Ahora entrando en materia de matemáticas, para calcular el área en metros cuadrados de una pared,...

Dante Amor respondió: Celda_1 es una variable, ya no es necesario pasar ese dato a otra variable. No podrías seleccionar la celda "$C$9", ya que se encuentra en otro libro y en otra hoja. Solamente como ejemplo, para seleccionar la celda tendrías que hacer esto:...

Dante Amor respondió: Te anexo el código completo Private Sub ComboBox1_Change() 'Por.Dante Amor hoja = Workbooks(ComboBox1.Value).Sheets(1).Name RefEdit1 = "='[" & ComboBox1 & "]" & hoja & "'!A1" End Sub ' Private Sub ComboBox2_Change() 'Por.Dante Amor hoja =...

Dante Amor respondió: Este es el código para el formulario Private Sub ComboBox1_Change() 'Por.Dante Amor hoja = Workbooks(ComboBox1.Value).Sheets(1).Name RefEdit1 = "=[" & ComboBox1 & "]" & hoja & "!A1" End Sub ' Private Sub ComboBox2_Change() 'Por.Dante Amor hoja =...

Dante Amor respondió: Te anexo una propuesta: Sub comparar2libros() 'Act.Por.Dante Amor On Error Resume Next With Application Set libro1 = .InputBox("SELECCIONE CELDA DONDE QUIERE EMPEZAR A TRABAJAR ", "LIBRO1", _ Default:=Selection.Address, Type:=8) If libro1 Is Nothing...

Anónimo respondió: La verdad que no veo nada recursivo así que no hay mucho para optimizar. Lo único que se me ocurre es que estés en modo de cálculo automático, por lo que podrías ganar un poco de tiempo si te acostumbrás a trabajar en modo manual por lo demás no...

Dante Amor respondió: Declara la variable como constante: Public Const var1 = "hola" ' Sub ejemplo1() MsgBox "el valor de la constante es: " & var1 End Sub ' Sub ejemplo2() MsgBox "el valor de la constante es: " & var1 End Sub Saludos.Dante Amor Si es lo que necesitas.