UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

iago78


Buenas noches, me llamo Iago y tengo dos dudas grandes en el tema de macros con el excel, agregaré un par de imagenes para que lo podais ver mejor.

Necesito que cada vez que pulse la Macro “Salidas” se registre en la tabla y salte a la siguiente fila de modo que pueda registrar otra entrada.


Sub SALIDAS()
  Range("A2").Select
  ClaveSalida = ActiveCell.FormulaR1C1 + 4
  CeldaSalida = "E" & ClaveSalida
  Range(CeldaSalida) = Range(CeldaSalida) + Range("E2")
  Range("E2").Select
    Range("A2,B2,E2").Copy
    Range("I11").PasteSpecial xlPasteValues
     
End Sub
 
Una vez tenga el listado de productos en la tabla cuando le doy a la Macro “Registrar” que se copie y reinicie el listado y esta información se guarde en la hoja “información”. Pero tengo un problema que no se transponer los valores como fila.


Sub Registrar()
Sheets("ALMACÉN").Range("J4:J8").Copy Destination:=Sheets("INFORMACIÓN").Range("A2")
Sheets("ALMACÉN").Range("J11:K24").Copy Destination:=Sheets("INFORMACIÓN").Range("F2")
 

End Sub

Gracias por todo. Un saludo.
Archivos
INVENTARIO PAÑOL PRUEBA 1.xlsm
Inventario de Salida mas registro.
No tienes los permisos para descargar los archivos.
(33 KB)

Igtelo


Hola iago78.

Lo que pides no es complicado para hacer, pero tu explicación para mi está muy "enredada", ve éste aporte y considero que podrás hacer lo que solicitas.

http://www.universoexcelforo.com/t836-pasar-datos-de-facturas-recibos-y-cualquier-documento-a-una-hoja-base-de-datos-aporte


Para lo de transponer aquí te va, está explicado línea por línea.

Sub Transponer()
Dim w As Long    'Define tipo de variable

With Sheets("INFORMACIÓN")                    'Con hoja INFORMACIÓN
w = .Range("A90000").End(xlUp).Row + 1   'Encuentra número de fila vacía en columna A de hoja INFORMACIÓN

Sheets("ALMACÉN").Range("J4:J8").Copy                   'Copia el rango J4:J8 de hoja ALMACÉN
.Range("A" & w).PasteSpecial xlAll, Transpose:=True   'Lo pega y transpone en celda vacía de hoja INFORMACIÓN
End With     'Cierre del With

Application.CutCopyMode = False              'Limpia el portapapeles

End Sub



Sube tu avance y comentarios para que pueda quedar resuelto.

Saludos
Ignacio Téllez

iago78


se transpone correctamente con tu explicación, gracias! sin embargo el problema que sigo teniendo es que cuando introduzco nuevos datos en la columna de productos y unidades no se pasa a la pagina de información. No sabría como hacerlo. No se si me explico bien.

Mi intención es en la Hoja "ALMACÉN" los datos en

[A2,D2,E3] una vez pulsado la macro SALIDAS pase a [I11,J11,K11] y luego se borre automáticamente, introducir nuevos datos en [A2,D2,E3] y pasarlos a [I12,J12,K12] así sucesivamente. El problema es que no consigo hacer el paso 2.

Luego al pulsar el botón Registrar que pase a la hoja "información" de forma que quede ordenado el registro con la persona que ha solicitado esos productos y unidades. No soy capaz, lo intento pero se desconfigura Sad
Archivos
INVENTARIADO PRUEBA2.xlsm
Prueba2.
No tienes los permisos para descargar los archivos.
(34 KB)

Igtelo


Hola Iago.

¿Por qué no lees, analizas y tratas de hacer algo como está en el enlace de aporte que te dije? Allí encuentras lo que necesitas.

Por mi parte ya no les estaré haciendo lo que necesitan sino veo que hayan hecho esfuerzo por obtener lo que requieren.

Quieren macros, pues deben estudiar y aprender.

Lo siento, pero ya no...

Ignacio Téllez

iago78


Buenas tardes, Ignacio. Perdona si te ha molestado mi respuesta. He de decir que si he estado intentando meter codigo y probando varias veces lo que comentas, es la primera vez que uso VB y estoy bastante perdido. Sigo practicando y creo que insistiendo acabaré consiguiendolo tarde o temprano. De verdad no fué mi intención molestarte y abusar de tus conocimientos.


Gracias por todo. Cuando lo consiga colgaré el proceso. 

Un saludo!.

iago78


Despues de unos cuantos intentos consegui pasarlo pero me aparece REF y no me copia el texto, como puedo hacer para que si se visualice los valores y no me borre la formula?
Archivos
INVENTARIADO PRUEBA3.xlsm
No tienes los permisos para descargar los archivos.
(38 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.