Luis Mondelo

Prueba con esta macro y me cuentas: Sub filas() For x = 1 To 25000 If Application.WorksheetFunction.CountA(Rows(x)) = 0 Then Rows(x).EntireRow.Hidden = True Next End Sub un saludo y recuerda la finalización de la consulta.

Te mando mi solución, sigue mis pasos: Vamos a imaginarnos que nuestros datos están en la hoja 1 y en el rango: A1:? Ahora nos vamos al administrador de nombres, creamos uno nuevo con el nombre, por ejemplo, "tabla" y en la línea de abajo donde dice...

Este sería el código necesario para analizar ese textbox al pulsar un botón: (Solo queda que lo adaptes a tus necesidades) Private Sub CommandButton1_Click() If CDate(TextBox2.Value) > TimeValue("18:00:00") Then diferencia = CDate(TextBox2.Value) -...

No se ve la imagen en la web. Si quieres me puedes mandar el archivo para verlo mejor y me pones explicaciones en el archivo con un ejemplo. [email protected]

prueba mejor con el evento exit. En mi ejemplo tienes que sustituir textbox1 por el nombre de tu textbox. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1) Then MsgBox "no es fecha" TextBox1 = Empty Cancel =...

Esta es la solución a tu pregunta: Esta macro te mostrará la dirección en la que se encuentra el valor máximo del rango D2:D40 de la hoja1 Sub buscamaximo() Set rango = Sheets("hoja1").Range("d2:d40") Set busca =...

Esta es tu solución: Sub buscando() dato = InputBox( que dato buscamos??? ) If dato = "" Then Exit Sub Set busca = ActiveSheet.Range("b10:b100").Find(dato, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then MsgBox "DATO ENCONTRADO"...

Te propongo que hagas lo siguiente: Partimos de un primer archivo que tiene macros y que es imprescindible que esté grabado previamente en nuestro disco. Con esta macro lo consigues y se quedan los dos archivos abiertos y el segundo archivo se queda...

Te he preparado un desarrollo a modo de ejemplo. Sería conveniente que te lo mandara por mail para que lo vieras y lo puedas adaptar a tus necesidades.