snaki Fco

Debería ser de la siguiente forma: inicio = inicio.value ' nombre de tu campo inicio final = fin.value ' nombre de tu campo final sheets("registro").select range("A2").select ' acá marca el inicio de tu macro do while (not isemprty(activecell)) if...

La propiedad BackColor, es encargada de poner el fondo de un color especifico, pero no esta disponible para que de un color c/u de sus valores. (Al menos yo también lo necesite y no pude arreglarlo).

Esto: Sub ImprimeGastos() On Error GoTo Problema Application.Dialogs(xlDialogPrinterSetup).Show ActiveSheet.PageSetup.PrintArea = "$que$1:$Q$103" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Problema: If Err.Number = 1004 Then MsgBox " No a...

Daniel muy buenos días Mira en el formulario al momento de ejecutarse Podrías agregas las siguientes lineas ScrollBars = fmScrollBarsBoth ' activas tu barras horizontal y vertical ScrollWidth = 1000 ' tamaño de barra horizontal ScrollHeight = 1000 '...

Debería ser así sub almacena() sheets("Hoja1").select valor_a = range("A5").value valor_b = range("A8").value valor_c = range("A12").value valor_d = range("A16").value sheets("Hoja3").select ' EN CASO DE TENER EXCEL 2003...

El modo de ocultar objetos en con macros es mediante: Application. Displayxxxx Para lo que necesitas tu, deberías utitlizar: Application.DisplayFullScreen = False Suerte y no olvides finalizar y puntear.

Tendría que revisar tu código para ver si tienes algo mal realizado, por que lo que me explicas es correcto, poniendo el "SetFocus", al obtejo este quedara seleccionado, como consejo este SetFocus, ponlo al terminar el proceso.

No entendí muy bien lo que necesitas, podrías ser más especifico para poder ayudarte sin problemas.

Lo puedes hacer así, Sub guarda_nuevo_libro() Dim nuevo_nombre, nombre_actual nombre_actual = ActiveWorkbook.Name nuevo_nombre = InputBox("Ingrese nuevo nombre del libro", "Guarda Libro", nombre_actual) If (nuevo_nombre <> Empty And nuevo_nombre <>...

Deberias agregar entonces un = si. antes del buscarv ej: = si(Buscarv(A131,'C:\[libro1.xls]Hoja4'!$A$1:$G$168,3,Verdadero) =0;"Tu formula aca"; "SI NO ES CERO... TU OTRA FORMULA");