¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Macro para pasar da...
 
Compartir:
Avisos
Vaciar todo

[Resuelto] Macro para pasar datos de una fila a otra hoja dependiendo del contenido de la celda  

Página 2 / 2
  RSS
RET
 RET
(@ret)
Miembro Admin

@javierpuche,

 

Intenta tener claro que quieres hacer. Quieres meter otros datos antes que este, no? Puedes, por ejemplo, meter este el último. También puedes comprobar si hay datos en todas las celdas que quieres tener rellenadas antes de ejecutarlo... Depende de lo que quieras. Eso es lo primero que tienes que tener claro.

 

Con respecto a la segunda pregunta, te insisto en que leas el artículo sobre buenas prácticas. Si te está insertando la linea en una hoja y quieres que sea en otra, identifica completamente donde quieres que dicha linea sea insertada.

 

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 28/11/2020 4:00 pm
JavierPuche
(@javierpuche)
Miembro activo Registered

@ret,

Yo tengo un formulario de entrada de paquetes, cada vez que me entra uno nuevo, tengo que rellenar todos los campos de la fila 7 obligatoriamente.

Una vez los relleno, al presionar “ENTER” en el ultimo campo, el de Observaciones, automáticamente se me pasan los datos a mi base de datos:

Lo que quiero conseguir es, que cuando introduzca los datos de una entrada, si la celda "H7" “Conformidad” pone “Hangar”, (dejándome rellenar los 2 campos que me faltan) al realizar la entrada presionando “ENTER” aparte de pasármelo en esta base de datos principal, me pase los datos en otra hoja, simultáneamente.

Espero haberme explicado mejor.

 

Saludos,

ResponderCitar
Respondido : 28/11/2020 4:57 pm
JavierPuche
(@javierpuche)
Miembro activo Registered

@ret

Ya lo he solucionado! 🙂

Era mucho mas sencillo de lo que parecía, lo que he hecho es grabar una macro independiente que me copia la fila en la otra hoja. Seguido de mi macro de entradas principal, le aplico lo marcado en negrita:

Sub Entradas_Palau()

Application.ScreenUpdating = False
'
' Macro4 Macro
'

'
Rows("10:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B7:J7").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B7").Select

If Range("H7").Value = "Hangar" Then

Call Macro3

Limpiar_Entradas_Palau

End If

End Sub

Estaba obsesionado en aplicarlo en la hoja pero tenia que hacerlo en el modulo.

Muchas gracias por tu ayuda! te lo agradezco muchisimo! 🙂

 

Un saludo,

ResponderCitar
Respondido : 28/11/2020 6:47 pm
RET
 RET
(@ret)
Miembro Admin

@javierpuche,

 

Me alegro de que lo hayas resuelto por fin. Como ves, no era tan complicado. De todas formas siguen sin aplicar lo que te he recomendado: definir bien de que rango hablas. Si lo haces así, no necesitas definirlo en un módulo general.

 

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 29/11/2020 11:45 am
Página 2 / 2

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado