Como hacer para que grabe el resultado en todos las hojas
Para Dante Amor.
No le puedo dar con el código, pero necesito que me guarde en todas las hojas activas.
Actualmente me guarda en la hoja que lo ejecuto. Así lo ingreso solo una ves y se replica para todas.
Te paso el código.
3)Aceptar el valor elegido y capturarlo en la celda activa
Private Sub CommandButton2_Click()
Cuenta = Me.ListBox1.ListCount
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) = True Then
ActiveSheet.Range("G4").Value = Me.ListBox1.List(i)
End If
Next i
Unload Me
1 Respuesta
Te anexo el código
Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then
MsgBox "Selecciona un registro del listbox"
Exit Sub
End If
For Each h In Sheets
If h.Visible = -1 Then
h.Range("G4").Value = ListBox1.List()
End If
Next
Unload Me
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias!
Dante,
Sabes que probando el código me di cuenta que antes yo ponía una letra y elegía el cliente que quería, ahora me trae por defecto el cliente que comienza con la letra.
Gracias por tu ayuda
si podes darme una mano con esto!!
Te agradezco!!
¿Estás hablando del listbox o de un combobox?
Si es en un combobox, modifica la propiedad MatchEntry 2 - fmMatchEntryNone
¿Dime si yo modifiqué esa parte o es algo nuevo?
Si es algo nuevo, crea una pregunta nueva.
Dante, gracias por tu respuesta, pero es un listbox?? que propiedad tengo que cambiar?
Muchas gracias!!
Yo no modifiqué las propiedades de tu listbox.
Como es algo nuevo deberías crear una pregunta nueva.
Sin embargo, revisa la propiedad del listbox MatchEntry, cambia los valores y revisa cuál es el que necesitas.
