leoflixe

Luis_P respondió: '4c7569735f50 Veamos, supongamos que la lista esta en la columna a de la hoja 1 Entonces, validamos asi: if application.WorksheetFunction.CountIf(sheets(1).range("A:A"),textbox1)=0 then textbox="" Asi lo que hacemos es contar cuantas veces aparece el...

Luis_P respondió: '427569735f50 if len(trim(text1))=1 and trim(text1)>=1 and trim(text1)<=4 then text2.setfocus Para la sgte condicion copias la misma linea ( bajo esta) y cambias el valor de los intervalos

Luis_P respondió: 4c7569735f50 En el evento keypress del text1 pones esto: if len(trim(text1))=5 then text2.setfocus Asi cuando el text1 llega a 4 caracteres te pasara el foco al text2 De esta forma implementalo en cada text

Nelson Felipe Serrano respondió: Te dejo el código que puede ayudarte en tu caso, debes pegarlo en la hoja de código de la hoja actual. Quedo pendiente de tu éxito. Saludos Private Sub Worksheet_Change(ByVal Target As Range) ''Creada por FSerrano en 120222 ''Para leoflixe en...

Enrique Bernal respondió: Lo que necesitas, lo puedes hacer con un controlador de cambios, es decir, cada vez que realices un cambio una macro puede actvar la celda en la que se hizo el cambio y en tu caso colorearla(ya que es lo que necesitas) Este código debes pegarlo en el...

Luis_P respondió: Explica un poco más no comprendí bien Si pones 0 o 2 ya sea en col 4 u 8 te esta pasando 4 columnas a la derecha del target. Según tu script los valores posibles en esas columnas son solo 0 y 2, ¿entonces a donde te deseas mover...? ¿De dónde tomara...