Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Simplificar código del combo

  • Autor del tema Autor del tema JoseTT
  • Fecha de inicio Fecha de inicio

JoseTT

Active member
Registrado
14 May 2020
Mensajes
156
Muy buenas tardes a tod@s !!
A ver si me podéis echar un cable para no escribir tanto código ... la verdad, no sé hacerlo de otra forma.
Al hacer click en el botón del formulario, revisa el texto...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Hola @JoseTT,
Prueba así:
Código:
Private Sub CommandButton1_Click()
Dim namesh As String: namesh = ComboStpTransp.Value
'Unload DatosMatrices (No existe)
Unload EntreMatrices
Selection.Copy '¿Copiar la celda que esté seleccionada en el momento de hacer clic en el botón ENVIAR?
Workbooks.Open filename:="\\montseny\RoboticaIng\DOCUMENTACION\201_MANUALES INSTALACIONES\02_INSTALACIONES\1.- STP\TRANSPORTADORES\STP_MATRIZ_TRANSPORTADORES.xlsx"
Sheets(namesh).Select
Range("A1").End(xlDown).Offset(1, 0).Select
'ActiveCell.Select 'Sobra esta línea: ¿Seleccionar la celda ya seleccionada?
'Windows("STP_MATRIZ_TRANSPORTADORES.xlsx").Activate 'Sobra esta línea: el Libro ya está activado, se acaba de abrir...
Volver
Arriba