Macro que especifique el destino donde se ha de pegar el valor de una celda
hola
quisiera que me ayuden necesito crear una macro que realice lo siguiente
que en la celda A1 y B2 especifique fila y columna donde se a de pegar el valor de C3; es decir
A1 3 especifique la fila
B2 F especifique la columna
C3 juan
entonces juan debería pegarse en la celda F3 pero si la celda F3 ya tiene un valor me salga un mensaje que diga datos ya ingresados y para poder modificarlos me pida una contraseña
1 Respuesta
Respuesta de Dante Amor
1
Esta es la macro.
Instrucciones para ejecutar macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Sub destino()
'obtiene el destino y pega
'Por.Dam
fila = Range("A1")
col = Range("B2")
If fila = "" Or Not IsNumeric(fila) Then
MsgBox "El número de fila en A1 no es correcto", vbCritical, "Error"
Range("A1").Select
Exit Sub
End If
If col = "" Or IsNumeric(col) Then
MsgBox "El número de columna en B2 no es correcto", vbCritical, "Error"
Range("A1").Select
Exit Sub
End If
If Cells(fila, col) <> "" Then
cont = MsgBox("Datos ya ingresados, quieres modificarlos?", vbYesNo + vbCritical, "Error")
If cont = vbYes Then
contras = InputBox(Prompt:="Ingresa la contraseña", Title:="CONTRASEÑA")
If contras = "123" Then
Cells(fila, col) = Range("C3")
End If
End If
End If
End Sub Saludos.Dam
Si es lo que necesitas.
