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 estás conectado. Conéctate o registrate

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

1RESUELTO Intercambiar datos entre celdas el 22/03/17, 07:50 pm

edwinjo


Muy Buenas Tardes a todo el foro,
Solictoles ayuda con lo siguiente, resulta que deseo pasar la información de una columna a otra al mismo tiempo, osea intercambiar la información, con el siguiente código, pero no logro capturar los rango con imputbox, me ayudan por favor indicarme que cambio para poder tomar el rango de i y de x con imputbox
Sub Intercambiar()
  i = ("b2:b14")
  x = ("c2:c14")
Columna1 = Range(i).Value
Columna2 = Range(x).Value
Range(i).Value = Columna2
Range(x).Value = Columna1
End Sub
Archivos
Intercambiar datos entre celdas.zip
No tienes los permisos para descargar los archivos.
(9 KB)

2RESUELTO Estara bien asi el 23/03/17, 02:08 pm

edwinjo


Buenos días foro,
Hice unos cambio me funciona, pero no se si estará bien de esta forma, podrían indicarme por favor, no sea que me de problemas en el futuro
Sub intercambiar()
 Dim rango As Range, rango2 As Range
Set rango = Application.InputBox("Dame el rango1", Type:=Cool
Set rango2 = Application.InputBox("Dame el rango2", Type:=Cool
  i = ("rango")
  x = ("rango2")
valor1 = rango.Value
valor2 = rango2.Value
rango.Value = valor2
rango2.Value = valor1
End Sub

3RESUELTO Cierro Consulta el 31/03/17, 10:59 am

edwinjo


Buenos Días foro,
He probado y no me ha dado error, por lo que considero esta bien, no obstante por favor hacerme llegar cualquier observación
Gracias

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.