Paco Machuca

Julián González Cabarcos respondió: Francisco, quiero dejar claro que el maestro de esto es Dante, pero por si te puede dar una idea. 1º No puedes usar la conjunción AND, ya que jamás se puede dar el caso de que sea a la vez menor que 4 y mayor que 12. 2º Si lo pones en el evento Al...

Dante Amor respondió: No entiendo cómo tienes los datos en las celdas J3 a J18. Tienes celdas con valor, ¿celdas con blanco y celdas con el texto "Empty"? ¿Las celdas en blanco pueden estar en cualquier parte? Puedes poner una imagen con una muestra real de lo que tienes...

Dante Amor respondió: Te paso la macro. Sub OrdenarDatos() Dim j As Long, lr As Long Dim sh As Worksheet ' Set sh = Sheets("Grupos") lr = sh.Range("A" & Rows.Count).End(3).Row ' With sh.Sort .SortFields.Clear For j = Columns("I").Column To Columns("V").Column ....

Elsa Matilde respondió: Muy correcta la solución enviada por Adriel Ortiz Mangia. Otra opción, si no te importa ocultar ceros en el resto de la hoja, es quitando el tilde a la opción desde menú Archivo u Opciones de Excel, tal como se observa en la imagen.

Dante Amor respondió: Prueba la siguiente macro: Sub subtotales() Dim i As Long, ini As Long, fin As Long Dim ant As String, subti As String Dim una As Boolean Dim subt1 As Double, subt2 As Double, subt3 As Double, subt4 As Double ' Application.ScreenUpdating = False '...

Dante Amor respondió: Continuando con mi analogía: Imagina que tienes una biblioteca. En la biblioteca tienes los siguientes temas y número de libros Física 4 libros Química 5 libros Biología 3 libros Matemáticas 8 libros Y te piden buscar la palabra "roca" en todos los...

Dante Amor respondió: Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...

Dante Amor respondió: Te paso la macro actualizada: Sub Enviar_Correos() 'Act.Por Dante Amor Dim i As Long, c As Long Dim Email As Object Dim archivo As String For i = 7 To Range("A" & Rows.Count).End(3).Row Set Email = CreateObject("Outlook.Application").CreateItem(0) '...

Dante Amor respondió: Prueba la siguiente macro: Sub BuscarDato() Dim f As Range Set f = Range("A5:A1000").Find(Range("B2").Value, , xlValues, xlWhole, , , False) If f Is Nothing Then MsgBox "Dato no existe" Else f.Select End If End Sub

Dante Amor respondió: Prueba lo siguiente: For Each i In h.Range("I1", h.Range("I" & Rows.Count).End(3)) Next

Dante Amor respondió: ¿Qué dice el error? ¿La columna 5 del listbox, la tienes con formato? ¿En qué número va el contador 'x' cuando se detiene la macro? ¿Qué tienes en el registro .List(x, 5)?