............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Modificar un campo en funcion de otro

Ver el tema anterior Ver el tema siguiente Ir abajo

Modificar un campo en funcion de otro

Mensaje por Roberto2010 el Miér Nov 30, 2011 8:59 am

Hola a todos, les pido si pueden ayudarme.
Si no es molestia, crear un código que sea lo mas rápido posible dado que trabajo con una tabla de dos columnas y 10000 filas aprox. (aclaro: el código debería ejecutarse desde un userform sin que este desaparezca)
En el adjunto explico la situación. Muchas gracias.
Archivos
Modificar un campo en función de otro.xls No tienes los permisos para descargar los archivos.(20 KB) Descargado 13 veces
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Modificar un campo en funcion de otro

Mensaje por Toldeman el Miér Nov 30, 2011 1:13 pm

Hola.

Prueba este codigo:

Sub ponerx()
Dim ulti As Long
Dim rango As Range
ulti = Cells(Rows.Count, 2).End(xlUp).Row
Set rango = Range("B10:B" & ulti)
For Each celda In rango
If celda = Cells(10, 5) Then celda.Offset(0, -1) = "x"
Next
End Sub

Si te sirve seria cuestion de adaptarlo a tu formulario.

Un saludo.

Toldeman
Moderador
Moderador

Masculino Cantidad de envíos : 60
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 05/04/2009

Volver arriba Ir abajo

Re: Modificar un campo en funcion de otro

Mensaje por Cacho R el Miér Nov 30, 2011 5:09 pm

Hola! Roberto2010 (y Toldeman)

Tratando de encontrar alternativas "lo más rápidas posibles", muestro una variante a considerar:

Código:
Sub Reemplazos()
With Range([a10], [a9].End(xlDown))
  .Value = Evaluate("IF(" & .Offset(, 1).Address & " = e10, d10, " & .Address & ")")
End With
End Sub
Saludos, Cacho R.
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Modificar un campo en funcion de otro

Mensaje por Roberto2010 el Miér Nov 30, 2011 11:29 pm

Toldeman y Cacho R
GRACIAS. GRACIAS. GRACIAS !!
Les cuento, los dos códigos hacen lo que pretendía, cuando los ejecuto sin el userform los dos demoran a penas 1 segundo !! y parecería que el codigo de Cacho R es apenas un instante más rápido.
Cuando los ejecuto desde el userform el código de Cacho R es más rápido en un segundo menos.
A los dos gracias !! Masters !
Si miro hacia atrás no puedo creer todo lo que voy desarrollando en la aplicación que estoy creando y todo gracias a ustedes y por supuesto a los demás maestros del foro: Gali, Tatayayan, SaylePaty, Moises, Abraham que si voy a Perú a ver a mi hermana ojalá le pueda saludar, y bueno a todos. Cuando digo a todos me refiero a los que también han aportado algo en su momento, lo digo porque trato de estudiar de apoquito todos los post y voy tomando notas, he aprendido mucho gracias a otras consultas de otros foristas.
A todos otra vez muchas gracias.
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 41
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Modificar un campo en funcion de otro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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