listbox y label

Hola Ivan
Gracias por el comentario creo que me va a ser muy util.
creo que los link no es lo que busco.

No pasa nada si en los correos no me contestas yo tambien tengo muy mala
cabeza.
podias darme tu e-mail para posibles dudas que me surgan

Un saludo
Daniel

"Ivan" escribió en el mensaje
news:%

hola Daniel

al final e optado por la forma mas facil..
Sub codigo()
For n = 1 To 80
Range("A1").Select
ActiveCell.FormulaR1C1 = "end sub"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select

.

Next
End Sub
Al final me quedo mejor con esta macro aunque me ocupe mucho el codigo.

aunque no se a que macro te refieres solo un comentario sobre el codigo
que expones:

generalmente no es necesario andar seleccionand/reseleccionado ni/o
re/activando celdas rangos para trabajar con ellas (a veces creo que
incluso puede ser contraproducente, aparte de lento)

por ej., y sin entrar a valorar la macro, si no me equivoco esto haria lo
mismo, pero sin activar (expresamente) nada,

Sub codigo_2()
Dim n As Integer
Application.ScreenUpdating = False
[a:a].Clear
For n = 1 To 80
[a1].Insert Shift:=xlDown
[a1].Value = "end sub"
[a1].Insert Shift:=xlDown
[a1].Value = "macro"
[a1].Insert Shift:=xlDown
[a1].Value = "nombrearchivoseleccionado = Label" & n & ".Caption"
[a1].Insert Shift:=xlDown
[a1].Value = "Color_Label Label" & n
[a1].Insert Shift:=xlDown
[a1].Value = "Private Sub Label" & n & "_Click()"
Next
End Sub

Ahora la pregunta que te quedria hacer no es de esto de los label pero
es una duda a la que todabia no me an respondido=>>

la verdad es que no soy ningun experto y aunque he probado algunas cosas
no las controlo, pero creo que estos enlaces te interesaran (especialmente
el 1º)

http://tinyurl.com/3b93rs

poner musica a una macro (consulta mia)

http://tinyurl.com/2lqqmg

diversos resultados de busqueda:

http://tinyurl.com/2b8sks
http://tinyurl.com/34kc55
http://tinyurl.com/3xv366

.

...textbox3(direccion IP)..

la verdad es que .. ni siquiera tengo ni idea de lo que es una IP
(fuera de oidas), asi que

Tambien si puedes darme alguna direccion de e-mail donde poder hacer te
alguna preguntas con archivos seria mucho mejor.

espero que no te moleste que te comente mi opnion:

creo que te perderias muchas posibilidades de ayuda por muchos otros,
aparte de que no miento cuando digo que no soy ningun experto. En cuanto
me saques del terreno de cuatro cosas basicas de VBA excel, para mi es
como si estuviera sobre arenas movedizas, ... y pobre del que este cerca

tambien creo que lo mejor [para ti] es abrir hilos nuevos con tus dudas,
estar pendiente de ellos, contestarlos y, si se da el caso de tener que
recurrir a la via privada, hacerlo puntualmente con quien asi le parezca

ademas en mi caso, con lo desastre e inconstante que soy corres el riesgo
de no obtener respuesta

aun asi, si piensas que te puedo ayudar con algo en concreto, comentas y
te doy mi correo (con los riesgos comentados)

un saludo
Ivan

hola Daniel

creo que los link no es lo que busco.

disculpa, crei que la consulta era la misma.

aunque no lo he mirado (sobre todo porque no controlo ni las propiedades ni metodos WMP <por cierto en el ultimo mensaje
del 1er hilo el propio Hector da una indicacion de como consultarlos en el examinador de objetos, por si te interesa>),
creo que podrias

hacer un par de bucles (o mejor dicho un bucle y el codigo de Hector) condicionados a los checkbox. Un primero pej.
recorriendo las entradas del listbox (for X = 0 to .listcount - 1) y reproduciendo lo contenido en la columna 1
(listbox1.list(X,0), o echale un ojo a las prop. textcolumn<>text y boundcolumn<>value) comprobando a su vez el
contenido del 2º checkbox y si es true aplicar el codigo de Hector las 'veces' indicadas en la 2ª columna (.list(X, 1) o
props) retomando el otro bucle al acabarlas

No pasa nada si en los correos no me contestas yo tambien tengo muy mala cabeza.
podias darme tu e-mail para posibles dudas que me surgan

aunque creo que ya te nvie un correo hace tiempo y deberias tenerlo, en el siguinte sobra lo evidente=>

"Ivan" escribió en el mensaje

de todas formas tengo que salir no se cuantos dias y no se muy bien como voy a andar de accesibilidad desde dondee voy

un saludo
Ivan