Jump to content

zelarra821

Members
  • Content Count

    67
  • Joined

  • Last visited

About zelarra821

  • Rank
    Advanced Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Por cierto, he actualizado tu código a esto: Sub EncontrarMarcador() Dim FoundEntry As Range If Not ActiveCell.Column = 1 Then Range("A1").Select Application.FindFormat.Font.FontStyle = "Bold" Set FoundEntry = Range("A:A").Find(What:="", After:=ActiveCell, SearchDirection:=xlPrevious, SearchFormat:=True) If Not FoundEntry Is Nothing Then Application.Goto Cells(FoundEntry.Row - 3, 1), True FoundEntry.Select End If End Sub
  2. Y una última pregunta, Antoni. ¿Cómo podría saber cuántas celdas con negrita hay? Te digo para qué es. Tengo un índice bastante largo, y quiero seleccionar por dónde voy, pero lo mismo se me pira la pinza y dejo dos "seleccionados" en negrita. Entonces tener como un mensaje de aviso de que hay más de uno, y quitar la negrita a todos los que estén, para no tener que buscarlos a mano (como un reseteo, vamos). No sé si me explico. ¡Gracias!
  3. Buenas tardes. He buscado en internet la manera de poder buscar qué celda de un rango está en negrita y posicionarse allí mediante Application.GoTo y después Range.Select. He probado con esto: Sub FindPrevious() On Error Resume Next Dim RngToSearch As Range Dim FoundEntry As Range Set RngToSearch = Range("A:A") Application.FindFormat.Font.FontStyle = "Bold" FoundEntry = RngToSearch.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=Tr
  4. Hola. Estoy buscando la manera de mandar Whatsapps con imágenes. Todo lo que he encontrado en Internet siguen el mismo patrón: insertan la imagen en Excel, la copian en el portapapeles, y luego la pegan en Whatsapp. Pero, por lo que he podido probar, este sistema ya no funciona, porque Whatsapp no deja pegar imágenes (por lo menos a mí no, tanto en versión web como desktop). He encontrado un ejemplo que consigue adjuntar la imagen (no pegarla), pero no llega a enviarla (le falta darle al botón de enviar). Investigando su código, no sé cómo lo hace, porque referencia a un procedimiento que
  5. Me funciona con esto así: Sub CopiarPregunta() Dim Pregunta As New DataObject Pregunta.SetText vbCrLf & vbCrLf & vbCrLf & Range("A13").Value Pregunta.PutInClipboard End Sub
  6. Buenas tardes. Necesito copiar una cadena de texto, de tal manera que al valor de la celda en cuestión le añada antes dos marcas de párrafo. Es decir, algo a esto: Sub CopiarPregunta() Dim Pregunta As String Pregunta = vbCrLf & vbCrLf & Range("A13").Value Pregunta.Copy End Sub Probando, me he dado cuenta de que con esos saltos de línea me añade unas comillas al pegar en un txt. Y también necesito que no añada una línea en blanco debajo de lo pegado. ¡Gracias!
  7. Hola, Gerson. Muchas gracias. Estoy viendo el adjunto, y no separa las series, como sí hace el apilado. Lo que pasa es que cuando aplico ese tipo de gráfico es que los valores del eje vertical no cuadran. He buscado ejemplos en Google, y he visto que sí que le respeta el eje vertical correctamente (https://www.excel-avanzado.com/22898/grafico-de-linea-apilada.html), pero no sucede en mi caso, y no sé porqué.
  8. Hola, Gerson. Buena idea utilizar esos tipos de gráficos. Nunca los había probado porque no sabía para qué podían usarse, y ahora que veo un posible uso, los veo útiles. Ahora bien, tengo dos problemas. El eje vertical no refleja los valores bien; y los valores #N/A, que no quiero que aparezcan en el gráfico. Te lo adjunto, para que veas cómo tengo dispuestos los datos, a ver si así me puedes ayudar mejor. Muchas gracias. Excel.xlsm
  9. Lo que se me ocurre es a ver si se pudiera poner el nombre de la serie pero en el último valor de la serie, y que si hay dos con el mismo valor, pues que lo junte en uno, para saber que están las dos series en el mismo punto.
  10. Hola, Gerson. A ver si me consigo explicar: La construcción que hace Excel del gráfico es correcta. Pero no percibo visualmente cómo están las cinco series. Al sobreponerse unas con otras, no sé cuál es el valor de la que no se muestra, porque no la veo. No sé si me entiendes. Estos son los datos de la tabla de origen (cada día hay una puntación para cada serie, con dos decimales): Serie1 1,00 0,67 0,33 1,33 1,00 1,00 1,00 2,00 1,67 2,67 3,67
  11. Buenos días. He creado un gráfico en Excel para llevar un seguimiento de la evolución de cinco parámetros que recojo diariamente, sin embargo, las líneas se solapan unas con otras, y no hay manera de saber en qué posición se encuentra cada una. Os adjunto una captura para que veáis lo que digo: por poner un ejemplo, la serie1 se solapa con la serie 3 a partir del 24 de diciembre. He probado con transparencias, pero no se aprecia bien. ¿Hay alguna manera de hacer visible la evoluciín de cada uno de los parámetros? ¡Muchas gracias!
  12. Aquí dejo la solución: Sub IrADiaDeHoy() Dim Lunes As Variant Dim CeldaLunes As Variant Dim CeldaHoy As String Application.ScreenUpdating = False Lunes = IIf(Weekday(Date) = 2, Date, IIf(Weekday(Date) = 1, Date - 6, Date - (Weekday(Date) - 2))) Set CeldaLunes = Range("1:1").Find(Lunes, LookIn:=xlFormulas) Application.Goto CeldaLunes, True CeldaHoy = Range("1:1").Find(Date, LookIn:=xlFormulas).Address Range(CeldaHoy).Offset(1, 0).Select Application.ScreenUpdating = True ActiveSheet.Protect End Sub
  13. Buenas tardes. Estoy intentando, mediante VBA, conseguir que me sitúe la pantalla al principio de semana en una lista de fechas y el cursor en la fecha actual. Es decir, tengo lo que podéis ver en la Imagen1, y cuando la fecha actual sea, por ejemplo, el martes, 8 de diciembre, que se coloque como en la Imagen2, y así sucesivamente (es decir, que en el resto de la semana aparezca en pantalla primero el lunes, y el cursor en la fecha que sea). Pongo esa fecha del 8 de diciembre para tener una columna bastante lejos de las primeras columnas. Estas son las pruebas que he realizado pero no do
×
×
  • Create New...

Important Information

Privacy Policy