Luis Mondelo

Te mando mi solución. Ejecuta esta macro y todo listo: Sub ejemplo22() 'por luismondelo dato = InputBox("que dato buscamos") If dato = "" Then Exit Sub dato = UCase(dato) Range("a65000").End(xlUp).Offset(1, 0).Value = "final" Range("a2").Select Do...

En el rango B10 de la hoja Menu escribe esta fórmula: =aleatorio.entre(1;18)

Te mando mi solución: Sub ejemplo() 'por luismondelo Range("xxx").Select y = Selection.Cells.Count MsgBox "El rango tiene " & y & " celdas" End Sub recuerda finalizar

Te mando mi solución con un ejemplo: En A1 ponemos la fecha de nacimiento por ejemplo: 12/07/1973 En B1 escribe esta fórmula y te dará el año en el que cumplió 21; ="cumplió 21 años en el: " &AÑO(A1)+21 recuerda finalizar la consulta

Necesito una aclaración: ¿El dato 11112222xxx111 está dentro de una misma celda?

Para hacer autofiltros con los datos de un listbox, lo primera es ponerle la propiedad multiselect al listbox para que puedes seleccionar varios valores al mismo tiempo y después programarlo en vba. Yo he hecho el siguiente ejemplo: -Tengo una tabla...

Te mando mi solución. Ejecuta esta macro y listo: Sub ejemplo22() Range("a2").Select Do While ActiveCell.Value <> "" If ucase(ActiveCell.Value) = "DECLINADO" Then Range(ActiveCell, ActiveCell.Offset(0, 12)).Interior.ColorIndex = 3 End If If...

Eso se soluciona implementando un rango dinámico. Escribe esa fórmula en otra celda (ej: K3), y luego introduce los datos en el rango M3:... =PRODUCTO(DESREF(M3;0;0;CONTARA(M:M))) A medida que ingresas datos en la columna M desde M3 hacia abajo se...

Te mando mi solución: Suponemos que tenemos esos datos apilados en una misma columna uno de bajo de otro. Imaginemos que los tenemos en la columna A desde A1 hacia abajo. Sitúate en la celda B1 y escribe esta fórmula y luego arrastrala hacia abajo....

Te mando mi solución: Ejecuta esta macro y listo: Sub prueba() 'por luismondelo Range("n4").Select Do While ActiveCell.Column < 223 suma = suma + ActiveCell.Value ActiveCell.Offset(0, 3).Select Loop Range("h4").Value = suma End Sub recuerda finalizar...