Jump to content

Juan Pelfort

Members
  • Content Count

    32
  • Joined

  • Last visited

About Juan Pelfort

  • Rank
    Member

Converted

  • Campos Array

Recent Profile Visitors

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

  1. Hola Antoni, esto está perfecto, eres muy generoso, es más de lo que esperaba. Muchas gracias
  2. Hola Antoni, he estado de vacaciones y no he podido verlo hasta hoy, muchas gracias, ahora me pondré en ello, tenía una cuestión pendiente sobre el juego, te informaré. Gracias de nuevo
  3. Hola Antoni, maravilloso, esto es mejor de lo que yo esperaba, muy agradecido. Un abrazo
  4. Estaba escrito así en el ejemplo que copié de Internet
  5. Hola, intento simular el juego de "pasa palabra" llevado a un tema personalizado me gustaría que una macro cambiara el color del circulo A, otra macro el del circulo B y así (según valor de otra celda) o sea que cuando finalice el tema de la letra A, empiece el de la letra B y así todas Te adjunto el archivo (en construcción) gracias Pasa palabra 1.xlsm
  6. Hola, este vbTextCompare ya está en mi código (que he enviado) o debo modificar esta linea y como ? gracias
  7. Hola, tengo un código (sacado de foros de Internet) para comparar dos celdas, el caso es que funciona en principio. pero hay dos fallos, donde pone: Range("S3") = resultado1 + 1 debería (de ser igual) un 1 y me pone 2 otro fallo: de entrada ya me ejecuta la macro y me da ese resultado pero yo al entrar el valor o nombre de la segunda celda a comparar ya no hace nada me imagino que es porque ya está ejecutada, debo poner algo para que espere que entre datos de segunda celda a comparar ? Mando el código que tengo y muchas gracias. Sub macro2() Range("J8").Value = "Anselmo" Range("J14").Value = "Nombre de la primera persona" '<<<Celda J16 pendiente de entrar valor>>> Application.ScreenUpdating = False Application.EnableEvents = False Dim Str1 As String Dim Str2 As String Dim resultado1 As Long Str1 = Range("J8") Str2 = Range("J16") resultado1 = StrComp(Str1, Str2, vbTextCompare) Range("S3") = resultado1 + 1 Sheets("Hoja1").Select Application.ScreenUpdating = True Range("A1").Select Application.EnableEvents = True End Sub
  8. Hola, gracias por tu ayuda esto funciona perfectamente pero, yo querría que cada una pudiera tener un color según el valor de unas celdas correspondientes (tipo "pasapalabra") puede ser ? Gracias de nuevo
  9. Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.Value >= 100 And Target.Value < 200 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow Else ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen End If End If End Sub
  10. Hola, si alguien me pudiera ayudar, necesito saber como cambiar el color de no una sino de varias formas o dibujos, lo he probado con varios códigos que se exponen en internet, pero no me funciona, le dibujo una forma le doy el nombre y copio los códigos tal cual, y no hace nada, alguien puede ayudarme ? gracias
  11. Gracias Antoni por las molestias pero... ya me he perdido. He instalado dropbox pero alli no veo nada, o no se, veo tu archivo con los cubiletes y los dados pero no hace nada, o no lo se. Además esperaba una pagina excel para poder ver como esta hecho pero... no veo excel o ya no entiendo nada. disculpa mi torpeza, toal, dropbos no tiene nada, este fichero tuyo o no es excel o yo que se. perdona pero estoy hacho un lio. Gracias
  12. Gracias Antoni, es para un juego de poker con dados, en fin te mando el fichero. Poker - copia.xlsm
  13. Hola a todos, tengo un programita de Excel con VBA que insero varias fotos (con margen de tiempo 1 segundo) en la misma celda, pero, al ir borrando e insertando imágenes me hace un destello de luz, la celda en cuestión, se puede solucionar esto con VBA ? Gracias
  14. Hola a todos, tengo un Mac que ya tiene algunos año pero me lo han regalado pero tengo la siguiente pregunta: le cambio los iconos de los programas que tengo en el escritorio (excel) y va bien, pero solo me guarda los iconos que yo he cambiado, si el programa de excel solo es de consulta, si el excel que hay cambio o actualizo los datos al guardar y salir, me cambia los iconos por el icono de Excel, me gustaría tener los iconos que yo quisiera, es esto posible ? Como siempre, muchas gracias a vosotros, compañeros. un abrazo.
  15. Muchas gracias, es justo lo que necesitaba, funciona perfectamente. Un abrazo
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5