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.]

pmalaver


Buenos dias, tome unos datos de otro topic y preciso adaptarlos a un trabajo que estoy haciendo.
en una solapa obtengo de forma ordenada datos. Dichos datos debo pegarlos en otra solapa en la fecha del dia actual.
cada dia que se use el sistema el usuario presionara el boton y los datos se copiaran debajo del titulo con la fecha del dia
adjunto imagen, la tabla es simple, pero la macro no lo es para mi, asi que agradezco cualquier ayuda que puedan darme.
sin mas, me despido atte
pablo



estoy usando esta macro de otro topic, pero me los copia reemplazando el texto "hoy", y preciso que lo coloque debajo, nose como bajar una fila.
esta macro copia los datos desde donde estoy parado con el mouse, se podria hacer que ya le defino cual es el lugar desde donde copio los datos?
gracias

Sub cargues()
'
' cargues Macro
'
' Debes ubicarte en cualquier parte de la columna que tiene los datos, en tu ejemplo en las columnas a o b
' luego ejecutas este procedimiento cargues()
' Limites: en la columna 1 se debe encontra el texto sugerido y tambien los datos de cada columna.
b = Selection.Column ' te identifica la columna activa
For i = 1 To 255 ' Busco la columna siguiente al texto sugerido "aa
    If Cells(1, i) = "Hoy" Then
        i = i + 0 ' columna siguiente despues del texto
        Exit For
    End If
Next i
Range(Selection.End(xlUp), Selection.End(xlDown)).Copy ' selecciono y copio los datos
Cells(1, i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False ' pego los datos como valores en la columna siguiente al texto sugerido
Application.CutCopyMode = False ' desactivo el metodo de pegado
'
End Sub

Igtelo


Hola pmalaver.

Si subes archivo no hay necesidad de estar insertando imágenes, hasta te es más fácil.
Lee "Recomendaciones para hacer preguntas", está en avisos y también que tipos de archivo puedes subir.

Sobre tu pregunta, cambia esto:

Cells(1, i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Por esto:

Cells(2, i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

Para que no tengas problemas, siempre posiciona el cursor desde el 2o. dato en adelante, pero NO el 1o. Esto se hace necesario por la forma en que muestras tus datos...

Otra opción sería el siguiente código, debes posicionarte en el 1er. dato.
Está hecha para Excel 2007 en adelante.

Sub cargues2()

If Selection = "" Then Exit Sub   'Si donde está el cursor es blanco, sale de la macro

w = [A1:XFD1].Find("Hoy").Column              'Número de columna donde está Hoy
Range(Selection, Selection.End(xlDown)).Copy  'Selecciona rango a copiar
Cells(2, w).PasteSpecial xlValues                    'Pega datos debajo de hoy
Application.CutCopyMode = False    

End Sub

Claro que puedes definir los datos a copiar, solo que no le encuentro sentido, es más fácil y práctico posicionar el cursor; "no te compliques la vida".

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.