Copiar la segunda celda activa y pegar
En mi hoja menu tengo un listado, lo que necesito es que al ubicarme en la fila de cualquier dato de la columna C, mediante macro, copiar el dato de la columna B de la celda activa de la columna C (donde estoy ubicado) copie y pegue el valor de dicha celda a la celda F1.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("F1") = Cells(Target.Row, "C")
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
Disculpa y como hago para ejecutar? o sea quisiera un boton para hacer eso lo que me ayudaste con el código.
saludos
Jesús
Lo que te envié es para que funcione de manera automática, solamente tienes que seleccionar una celda de la columna B y en automático copia la celda de la columna C.
Pero si quieres el botón, pon lo siguiente en un módulo:
Sub CopiarCelda()
'Por.Dante Amor
Range("F1") = Cells(activecell.Row, "C")
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
