calvuch

Desempolve un script que hice hace rato para una aplicación en visual basic, es harto código pero tiene la ventaja de que no utilizas controles, puro API En fin vamos al tema: Abre el editor de Visual basic ALT + F11 Inserta un "Modulo"... no un...

Agrega esta linea en tu macro ( la que no deseas que se ejecute) If Len(Trim([A1])) = 0 Or Len(Trim([A2])) = 0 Or Len(Trim([A3])) = 0 Then Exit Sub Debe ser la primera linea del macro De esta forma si a1 o a2 o a3 están vacías no se ejecuta el resto...

En hoja 2 columna DE pones esto: =si(si.error(coincidir(a1;hoja1!$a$1:$a$4;0);0)=si.error(coincidir(b1;hoja1!$b$1:$b$4;0);0);buscarv(a1;hoja1!$a$1:$d$4;4;falso);"")

¿Cómo estas tomando lo datos? Acá un ejemplo sencillo Private Sub UserForm_Initialize() Dim i As Integer ListBox1.Clear For i = 1 To 100 ListBox1.AddItem ActiveSheet.Range("A" & i) Next End Sub Carga al list los datos del rango A1:A100 de la hoja...

¿De dónde tomaras los datos a copiar? ¿De las celdas A1 A2 A3 o de la lista desplegable? Si es desde la lista desplegable, estas hablando de una lista ( control activex o de la que te pone automáticamente excel mediante la funcionalidad "validación...

Seguramente se actualizan las demás por que se esta incluyendo una función como =ahora(), esto cambiara cada vez que abras el libro por ejemplo. Si se desea que no se modifiquen los valores ya editados ( horas) deberían pasarse como cadenas de...

utiliza la funcion =contar.si.conjunto() ejemplo: =CONTAR.SI.CONJUNTO(A1:A8;">=20";A1:A8;"<=30") Acá cuentas en el rango A1 hasta A8 todos los valores mayores o iguales a 20 y menores o iguales que 30 Para el resto de segmento solo modificas esos valores

Para pasarle el "contenido" de un combo (como argumento) a una función pasalo así: tu_funcion(ComboBox1) Nada más.

Aplica formato al label : Ejemplo: Label1.Caption = Format(Range("A1"), "HH:MM:SS") Acá tomo el valor desde celda A1, tu cambialo por la celda en donde deseas tomar el valor Bye

Usa el evento change de la hoja así: Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Column Case Is = 1 Cells(Target.Row, 6) = "=NOW()" Case Is = 11 Cells(Target.Row, 12) = "=NOW()" End Select End Sub En este ejemplo consideras...