bacter582

Como estas amigo jorge Disculpa el tiempo en responder, he estado bastante ocupado, y no había podido revisar tu pregunta. De verdad que te esforzaste en escribir un código bastante largo. Si el único problema es que te dice procedimiento demasiado...

Amigo te recomiendo esta excelente función. http://www.freevbcode.com/ShowCode.asp?ID=4322 Solo la llamas con el argumento en milisegundos. MsgWaitObj(1000)

Como estas camila, imagino que tienes todo esto en excel. Si es así utiliza este código a ver si te ayuda Private Sub CommandButton1_Click() Dim encontrado As Boolean Dim i As Integer i = 1 encontrado = False While (encontrado = False) If...

Amigo con este código agregas items de otra hoja sin tener que cambiar la hoja ni la celda activa Espero que lo puedas personalizar, en este caso agrega 4 elementos de la columna A en la hoja 2 For i = 1 To 4 ComboBox2.AddItem...

Como estas amigo, probaste habilitar la propiedad del texbox multiline=true

Como estas amigo Imagino que cuando dices A8:D8 es que estas celdas están combinadas En el ejemplo que das no pones las letras de las columnas pero imagino que en la columna B están los nombres y apellidos. Con esta rutina puedes pasar los datos a...

Como estas amigo, incluyendo esta rutina en tu hoja puedes colorear todo lo que no tenga fórmula, debes cambiar el rango A1:B30, por el rango donde tienes las celdas que quieres evaluar. Saludos Espero te sea de ayuda. Bacter Private Sub...

Como estas amigo Para esto puedes usar este procedimiento o uno similar, este procedimiento limita a solo entrar números o el carácter "-", se podría ampliar si lo necesitas para que valide si efectivamente las fechas son validas. Saludos Espero te...

Como estas amigo, si lo que necesitas es la dirección del rango, lo puedes hacer de la sigueente manera. Saludos Bacter Dim mirango As Range Hoja5.Select Range("b1").CurrentRegion.Select 'Como hay filas y columnas vacías en mi rango, hago que recorra...

Como estas amigo, puedes hacerlo con la función Y Te dejo un ejemplo =SI(Y(B5<5;B4>4);"se cumplen las dos";"no se cumplen las dos")