Agregar datos en un registro Existente por una Macro
Solicito de su ayuda para poder integrar una macro con la cual agregue información a un registro desde una celda específica.
Cada registro tiene un valor único que hace que al momento de ponerlo en el seguimiento, lanza los datos existentes, solo que quiero agregar información extra.
Este es el archivo que tengo:
En la celda que dice numero de registro en el número único que se le da
Y quiero agregar la información que está en color naranja.
Espero me puedan ayudar, ya busqué por todoexpertos y no encontré ninguna pregunta similar.
1 Respuesta
Hola Dante, gracias por la respuesta
la celda C4 es el registro único que activa la búsqueda de las celdas con títulos azules, que viene de otra hoja.
Lo que necesito es que de la hoja de registro que se llama Datos de seguimiento se agreguen las celdas con títulos de color Naranja a la hoja de la imagen que se llama Formato Prospección clientes según el numero de registro
Prueba lo siguiente:
Sub Agregar_Datos()
'Por Dante Amor
'
Dim sh1 As Worksheet, sh2 As Worksheet
Dim f As Range
Dim numero As Variant
Dim i As Long, j As Long
'
Set sh1 = Sheets("Datos de seguimiento")
Set sh2 = Sheets("Formato Prospección")
'
numero = sh1.Range("C4").Value
If numero = "" Then
MsgBox "Captura el número", vbCritical, "ERROR"
sh1.Select
Range("C4").Select
Exit Sub
End If
'
j = Columns("K").Column
Set f = sh2.Range("A:A").Find(numero, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
For i = 1 To sh1.Cells(15, Columns.Count).End(1).Column Step 2
sh2.Cells(f.Row, j).Value = sh1.Cells(16, i).Value
j = j + 1
Next
MsgBox "Datos agregados", vbInformation, "ÉXITO"
Else
MsgBox "No existe el número", vbExclamation, "AVISO"
End If
End Sub
