Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo:
Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA")
Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO")
End Sub
en el otro caso estoy cargando los valores mediante la utilidad RowSource.
El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funciona y se carga siempre el primer valor.
Por favor si me podrían ayudar a solucionar, el codigo que estoy usando es:
Private Sub CommandButton8_Click()
Dim Datume, Zone, List_parr As String
Range("B3").Value = Nom_proy.Text
Range("C3").Value = Plan_inver.List
Range("D3").Value = Arrastre.List
Range("E3").Value = Prog_ant.List
Range("F3").Value = Prioridad.List
Range("G3").Value = Provincia.List
Range("H3").Value = Canton.RowSource
List_parr = Parroquias.RowSource
Range("I3").Value = List_parr
Range("J3").Value = Coord_x.Text
Range("K3").Value = Coord_y.Text
Datume = Datum1.RowSource
Range("L3").Value = Datume
Zone = Zona1.RowSource
Range("M3").Value = Zone
End Sub