listbox y label

y otro olvido mas (soy un desastre) =>

en el ultimo mensaje (que al menos a mi todavia no me ha aparecido) se me ha olvidado que debes declara la variable
'Tiempo' en la cabecera del modulo del formulario (area de declaraciones) de esta forma:

Dim Tiempo

solo eso, espero

un saludo
Ivan

disculpame otra vez (si lo hago aposta no me sale) pero se me ha vuelto a colar otra

cambia en el procedimiento que carga el codigo de los label, la 2ª instruccion 'InsertLines .=>

cambia esto => .InsertLines f, " Combinada Label" & n: f = f + 1

por esto => .InsertLines f, " Combinada Label" & n & ",Button": f = f + 1

creo/espero que ahora si (o voy a entrar en el guiness)

un saludo
Ivan

Hola Ivan
Muchas Gracias por responder ypor el tiempo que estas dedicando a esto
No te preocupes yo soy mas desastre todabia

en cuanto pueda lo echo una ojeada y te comento
Un saludo
Daniel
"Ivan" escribió en el mensaje
news:

disculpame otra vez (si lo hago aposta no me sale) pero se me ha vuelto a
colar otra

cambia en el procedimiento que carga el codigo de los label, la 2ª
instruccion 'InsertLines .=>

cambia esto => .InsertLines f, " Combinada Label" & n: f = f + 1

por esto => .InsertLines f, " Combinada Label" & n & ",Button": f = f +
1

creo/espero que ahora si (o voy a entrar en el guiness)

un saludo
Ivan

Hola Ivan soy yo otra vez
al final e optado por la forma mas facil.
ya habia creado yo una parecida pero la tuya esta mejor.
es esta la que habia utilizado yo.
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
ActiveCell.FormulaR1C1 = "macro"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "nombrearchivoseleccionado = Label" & n &
".Caption"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Color_Label Label" & n
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Private Sub Label" & n & "_Click()"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Next
End Sub
Al final me quedo mejor con esta macro aunque me ocupe mucho el codigo.
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.
1)Tengo un control activex reproductor de windows media dentro de un
userform tengo tambien un label en el que voy a poner la ruta de un carpeta.
luego un listbox1 el cual mediante una macro le voy a llenar con los
archivos de musica que hay en la carpeta (solo pone el nombre y la extension
de archivo).
a)necesito una macro que me reproduzca todas las canciones del listbox una a
una es decir que cuando acaba una empieze la siguiente.
b)para lo del punto a) una mejora un CheckBox1 para que si esta activado
vuelva a empezar otra vez una vez acabado todas las canciones.
c)esto ya en otro CheckBox2que en la columna 2 del listbox1 tengo las vees
que se va a repetir la cancion si se puede hacer que al estar CheckBox2
activado pues las canciones se repitiesen ese numero de veces.
yo uso este codigo para una cancion lo que no se es como hacer para que pase
de una a otra y lo otro que te e comentado

Private Sub ListBox1_Click()
WindowsMediaPlayer1.URL = TextBox1 & ListBox1
Veces = 0
End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If Veces = 0 Then Veces = 1: CommandButton1.Enabled = False: Exit Sub
If Veces >= TextBox2 Then CommandButton1.Enabled = True: Exit Sub
If NewState = wmppsStopped Then _
WindowsMediaPlayer1.Controls.Play: Veces = Veces + 1
End Sub

2)bueno esto yo creo que va a sonar un poco raro pero es por curiosidad
haber si se puede hacer por que para unos proyectos yo creo que me iba a ser
muy util.
se trata de en un userform un textbox1 (la ruta completa de un archivo) ,un
textbox2 (ruta donde se va a guardar), textbox3(direccion IP).
lo que pretendo hacer es enviar archivos(sulen ser pequeños kb) a un
ordenador pero solo sabien la IP de este (los ordenador no estan conectados
en red ni nada por el estilo solo tienen internet).
Y sin que salte el firewarl de windows o el antivirus por que ya e probado
algunos archivos que e visto en internet y saltaba el antivirus y el
firewar(perdon si lo escribo mal).
se trata de enviar el archivo a un ordenador sabiendo la IP y que lo guarde
en la carpeta de textbox2.

ya te e dicho que esto sonaba un poco raro pero me come el interes.

Tambien si puedes darme alguna direccion de e-mail donde poder hacer te
alguna preguntas con archivos seria mucho mejor.
espero no haber echo demasiadas preguntas o no se a entendido bien las
explicaciones si es asi lo siento mucho.
Te doy mil gracias por toda la ayuda y tiempo dado.



un saludo
Daniel

"daniel" escribió en el mensaje
news:%

Hola Ivan
Muchas Gracias por responder ypor el tiempo que estas dedicando a esto
No te preocupes yo soy mas desastre todabia

en cuanto pueda lo echo una ojeada y te comento
Un saludo
Daniel
"Ivan" escribió en el mensaje
news:

disculpame otra vez (si lo hago aposta no me sale) pero se me ha vuelto a
colar otra

cambia en el procedimiento que carga el codigo de los label, la 2ª
instruccion 'InsertLines .=>

cambia esto => .InsertLines f, " Combinada Label" & n: f = f + 1

por esto => .InsertLines f, " Combinada Label" & n & ",Button": f = f
+ 1

creo/espero que ahora si (o voy a entrar en el guiness)

un saludo
Ivan

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