for Each.. .next

Hice una grabacion para eliminar un renglon si una celda tiene cierto nombre, el ejercicio lo hice con FOR EACH ...NEXT, per no orra todos los renglones que tienen ese nombre, y a la mitad del caro me sale un mensaje "Code execution has been ...

Mensaje publicado en el 08/10/2008 - 23:55

problemas con FOR EACH.. error Nesting error

Hola grupo! Tengo el siguiente codigo con el cual recorro cada uno de los objetos contenidos en pageframe(4 paginas), para asignarles en el value, el contenido de la propiedad ValorInicial, siempre y cuando el objeto tenga la propiedad ...

Mensaje publicado en el 15/09/2003 - 17:36

Problema con For Each

Hola... sucede que tengo un comportamiento bastante extraño (estoy super desorientado @-) ) ... uso un For Each para recoger las variables que llegan desde un formulario. algo asi como: Dim equipos(), I I = 0 For Each Valor In ...

Mensaje publicado en el 22/08/2007 - 07:18

For Each

Necesito saber si existe alguna manera de recorrec un vector con for each y dado un elemento obtener su numero de posición dentro del vector For Each BUS As ListaPasosxWkf In DPasosxWkf aca necesitaria saber ´que posicion ocupa BUS ...

Mensaje publicado en el 20/09/2006 - 17:04

for each

Hola grupo, gracias antes que nada. Ahora la pregunta ¿Existe la forma de ordenar los controles para que me los muestre en el for each? Ejemplo: for each ctl in mipanel.controls ctl.tag = "algo" next ¿Como puedo decirle al ...

Mensaje publicado en el 13/07/2006 - 16:33

For... Next

Que tal. Me gustaria aprender mas sobre como crear bucles con For.. Next. Si saben de algun buen articulo eso me serviria muchisimo. Hice un ejercisio pero no funciona, en la linea de "ActiveCell.Formula" me sale un error '1004' ...

Mensaje publicado en el 07/10/2008 - 22:14

Problemas con For Each

Estoy desarrollando un proyecto y e tenido problemas con esta parte de la estructura. For Each TextBox In Me.Controls If TypeOf TextBox Is TextBox Then TextBox.Text = "" Next TextBoxCodigo.Focus() Haber si me la corrigen gracias.

Mensaje publicado en el 27/03/2006 - 00:52

Dataview, for each y excepcion

Hola a todos! tengo el siguiente bucle: For Each fila As DataRow In Dataview1.Table.Rows If fila.RowState = DataRowState.Added Then fila.RejectChanges() Else fila.BeginEdit() fila.EndEdit() End If Next Al ejecutarse fila.RejectChanges() me lanza ...

Mensaje publicado en el 24/08/2005 - 10:31

movimiento y ejecucion simultanea. Programacion emergente

Tengo programado ya la ejecucion del movimiento de distintos objetos en una hoja de excel xp, pero lo hago a traves de un for each... next. El movimiento es muy rapido para 10 objetos, pero para 100 empieza a ir a saltos. ¿como se les puede ...

Mensaje publicado en el 10/09/2005 - 06:00

¿Como navegar un rango?

Tengo un modulo en VBA que permite la usuario seleccionar 2 rangos del mismo tamaño (para mantener sencillo el asunto) Ya que tengo almacenados los rangos en variables RAN1, RAN2, necesito compara RAN2 con RAN1 para ver si cada celda en RAN2 ...

Mensaje publicado en el 25/07/2003 - 21:16

creo que la ultima pregunta

Ahora tengo otro error cuando pongo pongo esta formula me dice error Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target,

Mensaje publicado en el 19/04/2005 - 00:35

error '9' en tiempo de ejecucion, subindice fuera de intervalo

estimados amigos cuando trabajo con estos codigos en un complemento que se llama dataform2.xla. trabajan muy bien, pero al copiar los modulos y userfom a un archivo que se llama centrales.xls (lo que hago es exportar y luego importar) me arroja el ...

Mensaje publicado en el 12/07/2006 - 17:49

Script para cambiar los dns

Hola tengo este script qu me permite cambiar los dns primario y secundario remotamente, pero es una por una con esta variable strComputer = "." Como puedo modificar el script para que lo cambie a un grupo de computadoras y no solo a una? ...

Mensaje publicado en el 19/07/2007 - 00:44

¿DONDE ESTA EL ERROR EN ESTA MACRO? ME CIERRA EL EXCEL!!!

Private Sub CommandButton12_Click() Dim wksH As Worksheet Dim mtr(), n For Each wksH In Worksheets If Left(wksH.Name, 6) = "Acción" Then n = n + 1 ReDim Preserve mtr(1 To n) mtr(n) = wksH.Name End If Next ...

Mensaje publicado en el 07/11/2006 - 09:50

each next