userform

palo escribió el 13/09/2012 15:32 :

¡ Hola !
Gente necesito su ayuda, tengo un libro en el cual tengo a los clientes por lo
tanto genere una macro que me crea hojas nuevas para cada cliente nuevo. hice
un userform para cargar datos en las hojas de mi libro. se el codigo para que
cada vez que habra la hoja me aparezca el userform,pero lo tengo que hacer
individualmente a cada hoja.la pregunta es como hago para que al crear una hoja
nueva automaticamente se le agregue el (userform) .
muchas gracias

Quiero creer que la información que capturas en cada hoja es la misma, porque no utilizas un solo "UserForm" en el cual al ejecutarse se carguen todas tus hojas de tu libro en un "ComboBox" y tu seleccionas la hoja en la que quieras capturar tu información; te comparto un ejemplo como puedes hacer ésto. Espero sea la solución a tu problema.

Private Sub UserForm_Initialize()

Dim hoja As Worksheet

For Each hoja In Worksheets
ComboBox1.AddItem hoja.Name
Next hoja
End Sub

Y para que se active tu hoja seleccionada utiliza éste codigo.

Private Sub ComboBox1_Change()

MsgBox "La hoja seleccionada es : " & ComboBox1.Value, vbOKOnly, "Prueba"
hoja = ComboBox1.Value
Application.Worksheets(hoja).Activate
End Sub