Gracias_Hector [Ayuda Modulo] +

27/07/2004 - 17:28 por LISANDRO | Informe spam
Hector agradecido de la ayuda prestada hasta este momento..
Sabes coloque el modulo y funciono
perfectamentePosterior trate de modificar el mismo en
el sentido que te detallo a continuacion:
A1: Nombre:
A2: Apellido
A3:Otros hasta A11 Estas celdas son fijas]
Las celdas que lleno son desde B1 hasta B11 y alli las
trazlada a la Hoja 2 pero en forma Fila desde A2 Hasta K2
pero realmente no me funciona como quiero los datos los
traslada a la Hoja 2 pero me los coloca en forma Columna
desde a1 hasta a11 y no es lo que quiero...Me puedes dar
nuevamente una manoHasta aqui he modificado que me
falta...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$2" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
With Range("a2:i2")
.Copy Worksheets("Hoja2").Range("a65536").End
(xlUp).Offset(1)
.ClearContents
End With
SendKeys "^{Left}"
End Sub
 

Leer las respuestas

#1 Héctor Miguel
28/07/2004 - 06:53 | Informe spam
hola, lisandro !

... modificar ... en el sentido que te detallo a continuacion:
A1: Nombre [...]
Otros hasta A11 Estas celdas son fijas
Las celdas que lleno son desde B1 hasta B11 y ... a la Hoja 2 pero ... desde A2 Hasta K2
... no me funciona como quiero los datos ... me los coloca ... desde a1 hasta a11 [...]



en este caso, es necesario efectuar un 'copiar/pegar' =>con 'transponer'<= ;)
prueba con el siguiente codigo.

saludos,
hector.
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$11" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
Me.Range("b1:b11").Copy
Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Me.Range("b1:b11").ClearContents
SendKeys "^{Up}"
End Sub

Preguntas similares