Esteban RG

Supongamos que tienes que poner precios en las celdas F1 a F10, si alguna de esas cedas queda vacía no te dejará guardar. Pon este código en ThisworkBook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) For f = 1 To 10 If...

Puedes usar este código: Advertencia: Para que funcione correctamente tienen que cumplirse estas condiciones: -- El rango a copiar en cada hoja debe tener datos en todas las celdas de la columna "A" -- En el rango a copiar no pueden haber columnas...

Podría ser así: Sub Mensaje() N = Sheets("DATOS").Cells(2, "I") If N = 0 Or N > 21 Then Exit Sub Fi = 4: Ff = 47 If N > 1 Then Fi = (N - 1) * 48: Ff = Fi + 47 Sheets("DATOS").Rows("4:1004").Hidden = True Sheets("DATOS").Range(Rows(Fi),...

Trata de poner un pantallazo del archivo

Tienes mucho código innecesario, te lo simplifico: No hace falta que vayas poniendo celda a celda si es un rango continuo vale con poner la primera y la ultima separadas con ":" 'Selecciona rango a copiar: Sheets("Formulario"). Range("C5:C15"). Copy...

LO siento no me permite abrir el enlace

Puedes sumar varias condiciones, combinando -SI- con - Y - Por ejemplo: =SI(Y(C1>A1;C1<A2);Valor1; Valor2)

Es muy fácil, inserta un botón y asociale este código Range("B1, B2, A3, C3...,").ClearContents . puedes poner las celdas que quieras separándolas con 'comas' o bien un rango poniendo la primera y la última separadas por ' dospuntos'. Range("A1,...

Si quieres ejecutar un procedimiento de otro formulario tienes que indicar donde está. Creo que tu formulario se llama "Notificacion", entonces debes poner Notificacion. NewNotificacion Del mismo modo puedes coger valores de cualquier objeto de otro...

No aportas datos de como seleccionas la celdas de origen ni las destino, por lo que el primer paso seria hacer una rutina que indique lo que ha de copiar y en dónde, luego solo tienes que incluir esta instrucción: if celdaDestino ="" then...