Jump to content
jose_luisc

función similar a la de citar una celda con "="

Recommended Posts

Buenas tardes gente del foro, les traigo una inquietud, necesito que al modificar los valores de una columna cambie el mismo valor en la columna siguiente, pero que cuando modifique los valores de esta última columna "no" se modifiquen en la primera 

Por ejemplo, tengo 2 columnas con datos en todas las celdas, los números que coloque en la columna 1 se deben colocar también en la misma fila de la columna 2 automáticamente, hasta ahí de podría hacer citando con (=) en la columna 2, pero necesito introducir valores en esa columna y que "no" tengan incidencia en la columna 1,  osea que cuando introduzca un valor en la columna 2 no cambie nada en la columna 1 

Es esto posible? Dejó un adjunto con las 2 columnas por si lo quieren explicar con el ejemplo

Desde ya muchas gracias y buena vida

ejemplo.xlsx

Share this post


Link to post
Share on other sites

Adjunto archivo de Excel con macros, conseguido en la web, al cambiar valores de la primera columna se copia igual a la segunda, al cambiar valores de la segunda no pasa nada.

La primera columna es un rango nombrado "Datos_1"

Private Sub Worksheet_Change(ByVal Target As Range)

    Const c_strNameOfMonitored As String = "Datos_1"

    Dim rngIntersect As Excel.Range, rngMonitored As Excel.Range
        
    Set rngMonitored = Me.Range(c_strNameOfMonitored)
    
    On Error Resume Next
    Set rngIntersect = Application.Intersect(Target, rngMonitored)
    
    If Not rngIntersect Is Nothing Then
            
        fila = rngIntersect.Row
        Columna = rngIntersect.Column
        
        If Cells(fila, Columna) = "" Then
        Cells(fila, Columna + 1).ClearContents
        Exit Sub
            Else
        Cells(fila, Columna + 1) = Cells(fila, Columna)
        End If
    End If
    
End Sub

 

Evento cambia celda.xlsm

Share this post


Link to post
Share on other sites

Gracias por responder Gabriel, en unas horas, cuando esté con esa pc, lo voy a aplicar, que código! no era algo tan simple (para principiante me refiero)

Muchísimas gracias otra vez y en breve comento. Adiós 

Share this post


Link to post
Share on other sites

Debo estar haciendo algo mal porque siguen todos los valores igual, estoy en el trabajo y no tuve suficiente tiempo de verificarlo, esta noche o mañana con mas tiempo pruebo bien los códigos y comento

Gracias y saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png