canhotouy

asaroma respondió: Prueba este código, use un nombre plopaso :) Dim celdadesfocada As Variant celdadesfocada= Range("G9").Value bytez :)

Elsa Matilde respondió: Disculpa la demora y lo poco que quizás te esté enviando. Desde Excel la opción es menú Datos, Obtener datos externos. La primera vez te creará una consulta (no confundir con las consultas de Access) y en siguientes ocasiones podrás optar por...

Elsa Matilde respondió: En la rutina que te adjunto de ejemplo, dejo que Excel evalúe si el rango resultante es correcto. Por no emite un msgbox. Hay comentarios para que te guíes Sub controladire() ?tus instrucciones On Error GoTo errando dire1 = InputBox("ingrese primer...

Elsa Matilde respondió: Aquí van unos ejemplos de la primer vacía (solo réstale 1 para tu caso): Sub ActualizaHoja() Sheets(2).Select 'selecciona la Hoja 2 Range("A2").Select 'el control se hará sobre la columna A, a partir de la fila While ActiveCell.Value <> ""...

Elsa Matilde respondió: Seguramente tendrás una instrucción parecida a esta If miboton.ID = 3 Then miboton.Enabled = False 'inhabilita Lo que te falta es la misma pero con valor True antes de salir, para dejar todo de manera normal, Private Sub Workbook_BeforeClose(Cancel...

pergo respondió: Esta macro la puedes adaptar al código que ya tengas o dejarla tal cual. No es lo que pides, lo siento... Pero espero que te pueda servir. Sub imprimir() Dim Copias As Integer Solicitar_Copias: Copias = Val(InputBox("Indica el número de copias a...