Para cambiar el contenido de una celda en mi Microsoft Excel me hace borrar el de otras

S.O.S.
¿Creía qué sabia algo ahor alo dudo?
Escribo el siguiente código en la hoja llamada novedades.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        Range("C6").Value = ""
    End If
End Sub
No me funciona.
Alguien me pdoria ayudar.
Cada vez que yo cambie el valor de la celda C5, tengo que borrar el contenido del las Celdas C6:C10, cvomo se hace.

1 respuesta

Respuesta
1
El código funciona, solo hace falta decirle que tiene que "borrar" todo el rango (C6:C10), y se debe alojar en la hoja del código de la hoja sobre la cual se realizan las operaciones, a parte de eso no se que pueda estar fallando, lo probé en Office2010 y corre sin novedad. Me avisas si anda
PD: Dejo el código con la modificación mencionada. Saludos
*********************************************
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        Range("C6:C10").Value = ""
    End If
End Sub
*********************************************
Amigo
Gracias por la prontitud en tu respuesta.
Probé el siguiente código en un computador que tiene Excel 2000. Y me funcione perfectamente.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("B2").FormulaR1C1 = "=R[-1]C[-1]*2"
        Range("A2").Value = ""
        Range("A3").Value = ""
        Range("A4").Value = ""
        Range("A5").Value = ""
    End If
    If Target.Address = "$A$2" Then
        Range("B2").FormulaR1C1 = "=R[0]C[-1]*3"
        Range("A3").Value = ""
        Range("A4").Value = ""
        Range("A5").Value = ""
    End If
    If Target.Address = "$A$3" Then
        Range("B2").FormulaR1C1 = "=R[1]C[-1]*4"
        Range("A4").Value = ""
        Range("A5").Value = ""
    End If
    If Target.Address = "$A$4" Then
        Range("B2").FormulaR1C1 = "=R[2]C[-1]*5"
        Range("A5").Value = ""
    End If
End Sub
Pero en mi portátil no me funciona. Tengo version 2007.
Debo aclarar que tengo validación de celdas en cada celda con funciones que utilizan condicional en cada caso.
Tendrá eso algo que ver.
En espera de tu respuesta para cerrar esta y agradeciéndote nuevamente.
Estuve revisando tu código y le he hecho algunas modificaciones, pero en definitiva hace lo mismo, lo probé en versión 2010 y anda normalito, lo único que tengo que mencionar es que la macro se esta ejecutando CADA VEZ que se cambia la celda seleccionada, y no cada vez que se modifican los valores que contienen (lo que me parece más prudente). Quedo atento de como te va o si consideras que necesito mayor información (enviarme el libro, por ejemplo) para poder ayudarte. Saludos
***************************************************************
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Address = "$A$1" Then
            Range("B2").Formula = "=" & Range("A1").Address & "*2"
            Range("A2:A5").Value = ""
        End If
        If Target.Address = "$A$2" Then
            Range("B2").Formula = "=" & Range("A2").Address & "*3"
            Range("A3:A5").Value = ""
        End If
        If Target.Address = "$A$3" Then
            Range("B2").Formula = "=" & Range("A3").Address & "*4"
            Range("A4:A5").Value = ""
        End If
        If Target.Address = "$A$4" Then
            Range("B2").Formula = "=" & Range("A4").Address & "*5"
            Range("A5").Value = ""
        End If
    End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

Como habilitar la Pestaña Automatización en Excel de Office 2021

Quisiera saber cual es el procedimiento para habilitar la pestaña Automatización en Excel 2021 o donde poder bajar ese complemento.
1 respuesta

Ver distintas hojas de un mismo libro en distintas pantallas

¿Pues no sé si esto se podrá hacer? Una determinada hoja de un libro se puede ver en la pantalla 2 mientras el resto de hojas, del mismo libro, las veo en la pantalla 1...¿Se puede? Si es así, ¿Cómo?
3 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

Encontrar datos no coincidentes excel

Sucede que tengo que comparar dos bases de datos y encontrar los elementos no coincidentes para analizar. Se puede hacer por fórmula pero necesito algo más optimizado. El otro problema es que los datos son más de 1.48.576 capacidad de líneas de...
2 respuestas

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
2 respuestas

´No sé que fórmulas usar para resolverme el problema

La imagen no me la sube y tampoco veo como se sube un fichero, os intentaré explicar lo mejor que pueda mi problema. En una hoja Excel tengo hallados los pagos por formas de pago: SUMAR.SI(D1:D16;"Efectivo";B1:B16), y...
3 respuestas