0
votos
votos
La cantidad de votos diarios que tiene cada usuario es igual a la cantidad de bolitas del mismo.
Dale votos al thread para mantenerlo arriba en la home del sitio.
Ayuda Macros en Excel (VBA)
Thread creado por yorge86 el 31/01/2010 12:39:37 pm. Lecturas: 1470. Mensajes: 4. Favoritos: 0
31/01/2010 12:39:37 pm
0
Miembro desde: 03/04/2005
Threads abiertos: 4
Mensajes: 69
Subtítulos subidos: 1
Threads Favoritos: 0
Tengo el siguiente problema, hice un formulario que te llena una tabla, este formulario contiene una lista desplegable.Los datos que quiero que aparezcan en la lista despegable estan en la hoja2 en una columna determinada de una tabla, pregunta:
1) ¿cuál es el código para ligar la lista con la informacion a desear?
2) Hay algunos datos repetidos, tambien quiero saber como hacer el filtro y que la lista solo me muestre los datos una vez y sin renglones vacios.
vale ahorita eso es lo que me está rompiendo el coco, espero que alguien me pueda ayudar!
1) ¿cuál es el código para ligar la lista con la informacion a desear?
2) Hay algunos datos repetidos, tambien quiero saber como hacer el filtro y que la lista solo me muestre los datos una vez y sin renglones vacios.
vale ahorita eso es lo que me está rompiendo el coco, espero que alguien me pueda ayudar!
31/01/2010 01:31:10 pm
1 
Miembro desde: 19/10/2007
Threads abiertos: 47
Mensajes: 328
Subtítulos subidos: 0
Threads Favoritos: 17
Esta rutina es suponiendo que el combo (lista desplegable) se llame ´´ComboBox1´´, que los datos se encuentren en la columna ´´C´´ y que empiecen en la fila 1 y terminen en la 5.
Una observacion IMPORTANTE, al pegar el codigo reemplaza las tildes ´ por comillas sencillas (caracter de comentarios en VB lo que pasa es que al publicar el mensaje se reemplazan las comillas sencillas por tildes
)
Dim i As Integer
Dim FilaInicial As Integer, FilaFinal As Integer, Columna As String
Dim strValorAgregar As String
´filas y columnas de los cuales tomar el valor
FilaInicial = 1
FilaFinal = 5
Columna = ´´C´´
´limpiar el contenido del combo
ComboBox1.Clear
´recorrer la columna de la hoja2 desde la FilaInicial hasta la FilaFinal
With Hoja2
For i = FilaInicial To FilaFinal
´leemos el valor
strValorAgregar = .Cells(i, Columna)
´comparar que no sea vacio
If strValorAgregar <> ´´´´ Then
ComboBox1.Text = strValorAgregar
´buscarlo, y si no esta, agregar el valor
If Not ComboBox1.MatchFound Then ComboBox1.AddItem strValorAgregar
End If
Next i
End With
ComboBox1.Text = ´´´´
La cuestión seria que deberias saber la fila inicial y la final pero si no las conoces, sino que como en muchos casos sucede, que se debe recorrer la columna mientras haya contenido en otra, simplemente es que coloques una condicion dentro del for antes del ´´Next i´´ que diga:
if .Cells(i,´´A´´)=´´´´ then exit for
Esto suponiendo que quieras recorrer el contenido mientras haya algun contenido en la columna ´´A´´
Una observacion IMPORTANTE, al pegar el codigo reemplaza las tildes ´ por comillas sencillas (caracter de comentarios en VB lo que pasa es que al publicar el mensaje se reemplazan las comillas sencillas por tildes
)Dim i As Integer
Dim FilaInicial As Integer, FilaFinal As Integer, Columna As String
Dim strValorAgregar As String
´filas y columnas de los cuales tomar el valor
FilaInicial = 1
FilaFinal = 5
Columna = ´´C´´
´limpiar el contenido del combo
ComboBox1.Clear
´recorrer la columna de la hoja2 desde la FilaInicial hasta la FilaFinal
With Hoja2
For i = FilaInicial To FilaFinal
´leemos el valor
strValorAgregar = .Cells(i, Columna)
´comparar que no sea vacio
If strValorAgregar <> ´´´´ Then
ComboBox1.Text = strValorAgregar
´buscarlo, y si no esta, agregar el valor
If Not ComboBox1.MatchFound Then ComboBox1.AddItem strValorAgregar
End If
Next i
End With
ComboBox1.Text = ´´´´
La cuestión seria que deberias saber la fila inicial y la final pero si no las conoces, sino que como en muchos casos sucede, que se debe recorrer la columna mientras haya contenido en otra, simplemente es que coloques una condicion dentro del for antes del ´´Next i´´ que diga:
if .Cells(i,´´A´´)=´´´´ then exit for
Esto suponiendo que quieras recorrer el contenido mientras haya algun contenido en la columna ´´A´´
31/01/2010 03:33:46 pm
0 Miembro desde: 03/04/2005
Threads abiertos: 4
Mensajes: 69
Subtítulos subidos: 1
Threads Favoritos: 0
escribió:
Esta rutina es suponiendo que el combo lista desplegable se llame ComboBox1, que los datos se encuentren en la columna C y que empiecen en la fila 1 y terminen en la 5.Una observacion IMPORTANTE, al pegar el codigo reemplaza las tildes � por comillas sencillas caracter de comentarios en VB lo que pasa es que al publicar el mensaje se reemplazan las comillas sencillas por tildes
Dim i As Integer Dim FilaInic....De lujo ahorita lo intento gracias se aprecia mucho!
31/01/2010 09:08:05 pm
0 
Miembro desde: 12/06/2008
Threads abiertos: 12
Mensajes: 300
Subtítulos subidos: 2
Threads Favoritos: 0
pasate por aqui, siempre consulto cuando tengo problemas en excel, ahorita la pagina no esta operativa, mañana te pongo el link con la respuesta completa.
Adicionalmente te acosejo que te suscribas (es gratis), es de mucha ayuda para los curiosos y autodidactas, ademas tambien podeis plantear tu incquietud....
Salu2
Adicionalmente te acosejo que te suscribas (es gratis), es de mucha ayuda para los curiosos y autodidactas, ademas tambien podeis plantear tu incquietud....
Salu2
☑ Hitler (Eliminado)☑ Saddam Hussein (Eliminado)☑ Osama Bin Laden (Eliminado)☑ Gadhafi (Eliminado)☐ Justin Bieber(PENDIENTE)
Por: side24 el 29/11/2011 08:44:52 pm
Por: side24 el 29/11/2011 08:44:52 pm
b&Para los amantes de Las Peliculas de Zombies, comparto esta lista de peliculas de este genero, si me falto alguna mencionenla /b& :cool2: b&#/b& 28 días después (2002) 28 semanas después (2007) 28 meses después (2011) b&A/b& Aguas de terror (1977) Alien Dead (1980) Amanecer de los muertos (1978) Amanecer de los muertos (2004) Amiga mortal (1986) Apocalipsis caníbal (1980/1981) Aquella casa al lado del cementerio (1981) Autumn (2009) Awakening (2005) b&B/b& Barricada (película) (2008) Beyond re-animator (2003) Bio zombie (1998) Braindead (1992) b&C/b& Carne muerta (2004) Cementerio viviente (1989) Cementerio viviente II (1992) Cemetery Man (Dellamorte Dellamore) (1994) Children shouldn’t play with dead things (2006) Colin (2009) Creepshow (1982) b&D/b& Danger ¡50.000 zombies! (2004) Day of the dead: contagium (2005) Day of the dead (2007) Dead creatures (2001) Dead men wakling (1943) Dead men walking (2005) Dead west (2008) Demons (1985) Demons II (1986) Demons III (1991) Disturbios en el cementerio (1987) Doom, La puerta al infierno (2005) Diary of the Dead (2007) b&E/b& El amanecer de los muertos (2004) El ataque de los muertos sin ojos (1973) El buque maldito (1974) El brujo (1944) El carnaval de las almas (1962) El diablo metió la mano (1999) El día de los muertos (1985) El día de los muertos (2005) El diario de los muertos (2007) El ejército de las tinieblas (1993) El espanto surge de la tumba (1972) El foso de la muerte (1989) El lago de los muertos vivientes (1981) Electric zombies (2006) El más allá (1981) El príncipe de las tinieblas (198
Por: AireL el 11/02/2012 04:32:11 am
Por: AireL el 11/02/2012 04:32:11 am
- Leido: 2033 veces - Votos: 52 - Mensajes: 21 - Último mensaje: josearr 
Esta lista la publicó ABC News.50. Eva Longoria49. Scarlett Johansson48. Carmen Electra47. Tina Fey46. Adriana Lima45. Lily Allen44. Sarah Jessica Parker43. Kelly Clarkson42. Carrie Underwood41. Amy Winehouse40. Vanessa Hudgens39. Katie Price38. Ashley Tisdale37. Hilary Duff36. Marilyn Monroe35. Heidi Montag34. Demi Moore33. Jennifer Aniston32. Hillary Clinton31. Ciara30. Kristen Stewart29. Betty White28. Pamela Anderson27. Fergie26. Jessica Alba25. Christina Aguilera24. Sandra Bullock23. Kim Kardashian22. Katy Perry21. Michelle Obama20. Lindsay Lohan19. Jessica Simpson18. Sarah Palin17. Mariah Carey16. Jennifer Lopez15. Megan Fox14. Oprah13. Angelina Jolie12. Taylor Swift11. Shakira10. Avril Lavigne9. Paris Hilton8. Miley Cyrus7. Justin Bieber6. Britney Spears5. Rihanna4. Beyonce3. Madonna2. Kesha1. Lady GaGa :laugh: [link]http://abcnews.go.com/Technology/50-popular-women-web-google-search-results/story?id=10573331#.Tw9KaHrpiSo[/link][anchor_text]Fuente[/anchor_text]
Por: andresvang el 12/01/2012 06:11:11 pm
Por: andresvang el 12/01/2012 06:11:11 pm
- Leido: 4066 veces - Votos: 40 - Mensajes: 24 - Último mensaje: dj_sebas
Las nominadas son : b&Melancholia (2011) Lars Von Trier./b&cast :Kristen dunst, charlotte rampling ...[image]http://cinemagie.info/wp-content/uploads/2011/04/Melancholia-poster.jpg[/image]b&Sleeping Beauty (2011) Julie Leigh./b&Emily Browning[image]http://moviehaku.com/img/films/big/2Sleeping-Beauty-2011.jpg[/image]b&The tree of life (2011) Terrence Malick/b&cast. Brad P
Por: saiwith el 12/05/2011 09:31:10 pm
Por: saiwith el 12/05/2011 09:31:10 pm
- Leido: 2448 veces - Votos: 40 - Mensajes: 13 - Último mensaje: saiwith
center&[image]http://img718.imageshack.us/img718/8347/portadaen.png[/image]/center&FONT fACE=tahoma size=3&El b&11 de diciembre/b& se anunciarán los premios en la b&VGA Awards/b&, y de momento la organización ya ha desvelado la lista de los títulos nominados a los premios en los distintos campos.El videojuego con más nominaciones es b&Mass Effect 2/b& que parte con diez, le sigue
Por: tito2 el 18/11/2010 05:09:42 pm
Por: tito2 el 18/11/2010 05:09:42 pm
- Leido: 3600 veces - Votos: 40 - Mensajes: 47 - Último mensaje: caca669
LISTA ACTUALIZADA:MegaUpload -& Cerrado Fileserve -& Deshabilito todas las cuentas de uploaders, eliminacion de múltiples archivos, Cerrado el programa de afiliados. Conclusion. No se puede descargar nada...FILESERVE: Ha estado borrando archivos masivamente, utiliza un script que previene que los archivos borrados sean resubidos, y está eliminando cuentas premium que tengan contenido con Copyright sin previo aviso. Además de eso cerró el programa de rewards, lo cual significa que cualquier ingreso al foro de parte de fileserve ha quedado nulo. UPLOADSTATION, WUPLOAD, FILEJUNGLE y FILESONIC: Fileserve es el dueño de todos estos sitios. En adición a lo que está haciendo Fileserve, está además, bloqueando IP´s de Estados Unidos. Podemos suponer que todas estas tampoco se podrá descargar, comprobado con... UploadStation, Filejungle y basicamente filesonic ha deshabilitado la funcion de compartir links. FileJungle -& (Propiedad de Fileserve) Eliminación de múltiples archivos, bloqueo de algunas direcciones IP de USA. Conclusion No se puede descargar nada... UploadStation -& (Propiedad de Fileserve) Eliminación de múltiples archivos, bloqueo de algunas direcciones IP de USA. Conclusion no se puede descargar nada en el. FileSonic -& Cerrado el servicio de intercambio de archivos, Cerrado el programa de afiliados, eliminación de archivos y cuentas. No se puede descargar nada, Unable to Share. VideoBB -& Cerrado el programa de afiliados, Todos los vídeos eliminados del servidor Userporn -& Baneadas las direcciones IP de USA. FilePost -& Comenzó la suspensión de cuentas con el material infractor. Todavia se puede descargar algo.Hotfile -& Suspende cuentas con material infractor. Sin informacion de disponibilidad de los archivos. VideoZer -& Cerrado el programa de afiliados. 4shared -& Borrado de múltiples archivos. No probado disponibilidad de archivos, pero supongo que como las demas... Oron -& Cerrado el programa de afi
Por: epatul el 23/01/2012 05:02:17 pm
Por: epatul el 23/01/2012 05:02:17 pm
- Leido: 8610 veces - Votos: 39 - Mensajes: 63 - Último mensaje: epatul
La revista masculina FHM, en su ranking anual de las “100 Mujeres más Sexys del Mundo”, eligió elegido al modelo Andrej Pejic (masculino, aunque sus rasgos sean los de una mujer) para ocupar el puesto 98 de la lista (por delante de Lady Gaga).[image]http://2.bp.blogspot.com/_Nq-r89TcGT0/TRtsgwgR1HI/AAAAAAAAAeA/yVKsT1Qu7zY/s1600/AndrejPejic-iD-ThomasLohr06.jpg[/image]Según informa la revi
Por: krumdor el 04/06/2011 02:18:48 pm
Por: krumdor el 04/06/2011 02:18:48 pm
- Leido: 4445 veces - Votos: 37 - Mensajes: 35 - Último mensaje: mojojo
0
© SubDivX - Todos los derechos reservados
Contáctenos - Publicidad - ¿Como usar los subtítulos? - Ayuda download - Pautas de Convivencia - Aviso Legal