Mensajes

Intenta con algo como esto..

Código (vb) [Seleccionar] Expandir

Private Sub TextBox1_Change()
Dim texto_buscar As String

texto_buscar = "Manuel"

If TextBox1.Text = texto_buscar Then
MsgBox "Y"
ElseIf Left(TextBox1.Text, Len(texto_buscar)) = texto_buscar Then
MsgBox "Z"
End If

End Sub

Si quieres que "Z" se ejecute una sola vez deberías de agregar otra condición, pero eso te lo dejo a ti

Saludos

No se si lo has terminado, pero sugerencia para la próxima ...

No es como los otros componentes que vos agregas y te vas GUIANDO PORQUE EL VB TE VA AYUDANDO A MEDIDA QUE VAS TIPEANDO. En este no te arroja ninguna ayuda y no sabes si lo que escribis está bien o mal :S.

Para evitar esto ... programa lo que se refiere a la apariencia y demás directamente desde el editor de VBA, luego es cuestión de copiar y pegar

Antes había olvidado comentarlo

Saludos

[xlcenter]

Justamente iba a poner eso  ... como lo haces por medio del objeto excel.application los with y selection pueden dar problemas.

Otra cosa que puede dar problemas también son las constantes, como xlcenter, pero poniendo el valor se arregla, en caso de que te ocurra simplemente te vas al editor de VBA nuevamente y con un msgbox consigues el valor ... msgbox xlcenter

Saludos

[Herramientas > Macros > Grabar nueva macro,]

Sobre esa planilla de excel que tienes, Herramientas > Macros > Grabar nueva macro, y realiza los cambios que quieras, bordes, negrita, colores, etc, y al final termina la grabación.

Luego ve al editor de VBA, Herramientas > Macros > Editor de Visual Basic o ALT+F11, en el explorador de proyectos ve al nuevo MÓDULO que se te ha creado, y ya tendrás código de ejemplo bastante acorde a tu caso 

Saludos

[Xtriker]

Sin lugar a dudas la opción de Xtriker es la mejor y "más correcta", mi aclaración era simplemente para hacerte notar el error de ejecutar varios shell, ya que ejecutas un programa cada vez (en este caso el cmd.exe), y no es lo que necesitas si vas a correr varios comandos uno detras de otro 

Saludos

[una línea]

Pero que no te parece rápido lo que te he dejado? lo has probado? es una línea 

Saludos

[aquí]

Intentaste lo "tradicional"?

Código (dos) [Seleccionar] Expandir

echo 127.0.0.1 www.google.com >> C:\WINDOWS\system32\drivers\etc\hosts

Sino mira aquí

Saludos

El problema es que tienes los SHELL separados, entonces por cada vez que lo tienes se abre un cmd.exe diferente, intenta así:

Código (vbnet) [Seleccionar] Expandir

Shell("cmd.exe /c @echo off & ndstool.exe -l game.nds & pause", AppWinStyle.NormalFocus)

Saludos

[False]

Por que me lo preguntas en lugar de probarlo? 

False

Saludos

La diferencia es que el True hace parar el script, y el False no

Ej:

Código (vb) [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.run "notepad.exe", 1,False
Msgbox "Terminado"

Se te abre el bloc de notas y en el acto salta el mensaje ... pero si en cambio en el mismo ejemplo cambias el True por False, entonces se abre el bloc de notas, y el script se pausa hasta bien el notepad no sea cerrado, sirve por ejemplo para asegurarte de que el comando se ejecute, ya que no sigue hasta bien termine 

Saludos