Luis_P

text1= application.WorksheetFunction.Sum(range("A:A")) Asi le pasas la suma de la columna A al text1

Ok entonces Seria: Private Sub CommandButton1_Click() ' buscar dato Dim dato As Variant Dim filas As Long If Application.WorksheetFunction.CountA(Sheets("usuarios").Range("A:A")) = 0 Then Exit Sub filas =...

Bueno el evento change se dispara con cada nuevo "cambio" en el control, por lo que te sugiero implementar un if then en funcion del largo de la cadena Es decir if len(text1)=8 then pasar al listbox Asi si el contenido del text es inferior a 8...

Indicame en que columnas están estos rótulos Razón Social - Código Producto - Laboratorio

en vez de On Error GoTo error utiliza On local Error GoTo error

No me acorde de nada en v 2007 como para eso, asi que te escribi una funcion personalizada. Abre un libro ( en donde vayas a utilizar la funcion), presiona alt+f11 se te abrira el editor de vbasic Inserta un modulo ( no de clase) y alli pegas esto:...

'4c7569735f50 ok. si en a1 tienes 07-03-2012 2:59:02 en a2 pones esto =+A1+(0,00034722), luego solo copialo hacia abajo Asi le asignas in intervalo de 00:00:30 a cada hora anterior ** La columna debe tener el formato correcto para que se visualize ok...

Prueba asi: Sub Genera() Dim numConsec As Long Dim strConsec As String Dim i As Integer Range("I2").Select Selection.NumberFormat = "@" For i = 2 To Application.WorksheetFunction.CountA(Range("A:A")) If IsEmpty(ActiveCell) Then Range("I2").Value =...

Ok, vamos He considerado el mismo modelo que has puesto en el ejemplo, por ende las fechas comienzan en la columna E Necesitaremos 2 hojas, la hoja 1 donde estan tus datos y la hoja 2 en donde solo deben estar los titulos Apellido Paterno Apellido...

'4c7569735f50 Prueba asi: =si(si((b1-c1)<0;(b1-c1)*-1;(b1-c1))<=5;1;2)