- private sub - ordenar por pertinencia

comparacion con fechas y horas en procedimiento

Buenas grupo, llevo unos dias liado con una aplicación que ya empieza a desquiciarme, os cuento: En una hoja, tengo 24 columnas (D:AA) que equivalen a las 24 horas del dia. En otra celda tengo un valor que va cambiando cada minuto y ese ...

Mensaje publicado en el 07/01/2006 - 11:26

Evento BeforeClose

Estimados, Tengo un libro donde una celda tiene un formato condicional donde si cumple determinadas condiciones el fondo de la celda se pinta de color rojo. Ahora bien, utilizando el evento BeforeClose (lo puse dentro de la hoja donde tiene esa ...

Mensaje publicado en el 01/12/2005 - 22:19

Alguien me Ayude

estoy usando el sgte. codigo en un textbox pero no deseo que me acepte texto que estoy haciendo mal, si me ayudan corrigiendome se los agradeceria Private Sub TextBox26_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox26 < 1 Then _ MsgBox ...

Mensaje publicado en el 24/11/2005 - 23:26

Variables vacías

Hola de nuevo, Tengo una macro con unas variables declaradas a nivel modulo. La macro muestra un formulario, el formulario asigna valores a las variables y con esos valores la macro continuaría haciendo sus cosas. Hay un misterio que no ...

Mensaje publicado en el 23/11/2005 - 13:34

Otra Sobre filtros

Hola, hace unos días pedí ayuda para hacer una macro o función para filtrar una base de datos en excel. el objetivo era que ingresando (por ejemplo) el Nº 3 en una determinada celda, excel me filtre todos los registros con ...

Mensaje publicado en el 27/10/2005 - 04:55

Menu contextual con el boton izquierdo

Estoy buscando el codigo para menu contextual, en este caso, solo con dos opciones. Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button <> 2 Then Exit Sub Codigo para ...

Mensaje publicado en el 19/09/2005 - 04:50

problema con mdiList

Hola a todos tengo el siguiente problema, estoy trabajando varios modulos dentro de mi aplicacion (administrativo, contable, financiero ... etc) El punto es que cada modulo tiene un menu diferente por lo tanto maneja diferentes formas y cuando me ...

Mensaje publicado en el 05/09/2005 - 18:17

Evento ListBox

Private Sub ListBox3_Mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button <> 2 Then Exit Sub 'Boton derecho del raton. Seleccionar el item donde se encuentra el puntero del raton. End Sub ...

Mensaje publicado en el 24/07/2005 - 08:15

Ayuda con la actualizacion y con Printer

No puedo mas, el codigo que actualizo no es mio, ha pasado por 100 manos y ando perdido es el siguiente y necesito poder hacerlo de alguna otra manera. Alguien me ayuda? Problemas con currentX currentY newpage() enddoc() etc... Private Sub ...

Mensaje publicado en el 15/07/2005 - 14:56

Cambiar color en celdas de distinta columna

Hola. Hace unos días consulte como cambiar el color de un grupo de celdas de una columna sin utilizar el formato condicional y obtuve un codigo que es el siguiente: Private Sub Worksheet_Change(ByVal Target1 As Range) If Intersect(Target1, ...

Mensaje publicado en el 30/06/2005 - 18:54

formato de textbox

Buenas tardes, tengo un formulario en una hoja de excel uno de los textbox que el usuario captura es de fecha normalmente se captura "01/05/05" en donde los primeros 2 digitos correspònden al dia. Cuando el valor de ese textbox lo ...

Mensaje publicado en el 13/06/2005 - 23:45

listiew

alguien sabe como funciona los listviews? es que soy capaz de meterle datos pero incapaz de borrar filas... se que se utiliza el remove y removeat.. pero no me funciona, no lo pondre bien... si alguien me pudiese echar un cable... os pongo el ...

Mensaje publicado en el 02/05/2005 - 19:27

LA enti penultima pregunta :P

Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range On Error Resume Next Set Rng = Intersect(Target, _ Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30,I18:I30,K18:K30,L18:L30")) On Error GoTo 0 If Rng Is Nothing Then Exit ...

Mensaje publicado en el 19/04/2005 - 19:57

Preguntita

estoy haciendo algo.. y necesito si me pueden decir 2 cosas... la primera como se hace para poner varias veces esta formula en una misma hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$O$10" Then ...

Mensaje publicado en el 16/04/2005 - 21:26