Version de Windows

hola, KL !

resuelto :)
esta en los ejemplos de la ayuda en linea de vba...
Sub Variables_de_entorno()
Dim Sig As Byte: Sig = 1
Do
Range("a" & Sig) = Environ(Sig)
Sig = Sig + 1
Loop Until Environ(Sig) = ""
End Sub

saludos,
hector.

Perdon, me olvide de pegar el codigo :-) veo que ya lo tienes.

Un saludo desde Istanbul.
KL


"Héctor Miguel" wrote in message
news:

hola, KL !

resuelto :)
esta en los ejemplos de la ayuda en linea de vba...
Sub Variables_de_entorno()
Dim Sig As Byte: Sig = 1
Do
Range("a" & Sig) = Environ(Sig)
Sig = Sig + 1
Loop Until Environ(Sig) = ""
End Sub

saludos,
hector.

hola, KL !

Perdon, me olvide de pegar el codigo :-) veo que ya lo tienes.
Un saludo desde Istanbul.

un saludo 'hasta' la antigua y enigmatica Constantinopla
no dejes de visitar la Mezquita Azul
[aunque supongo que lo haces de cuando en cuando en tus viajes] :)
dicen que Çanakkale es un lugar que puede transformar el alma [nos cuentas] ;)

saludos,
hector.