jerryeagle

Una forma seria con un bucle For each, asi: Dim ws as WorkSheet For Each ws in WorkBooks("union.xls").WorkSheets 'Aqui faltaria q quieres hacer o donde quiers poner los nombres de las hojas 'Te pongo un ejemplo nombrando c/hoja en un MsgBox MsgBox...

En el evento SelectionChange pon esto: If Range("Celda Click") then Userform.Show End if Es todo

Modifícala un poco, quitando una linea y modificando otra: Sub Busca() Dim srtTArchvo As String Dim srtDirectorio As String Range("A1").Select srtRuta = "\\server\A- Carpeta\Imagenes\Fotos Marzo\" srtDirectorio = _ InputBox("Carpeta de Imagenes",...

Cambia esto RutArchivo = ThisWorkbook.Path & "/" por esto RutArchivo = ThisWorkbook.Path & "\"

Dire = ThisWorkBook.Path & "\"

Si, eso hace Excel, la única forma que se me ocurre es creando una función así. En el Editor de VBA (ALT + F11), inserta un Modulo y pega esto: Public Function MesNombre(ByVal Fecha as Date, ByVal Abreviado as Boolean) as String If Abreviado = True...

After_Update

Sub prueba1() ' 'prueba1 Macro 'Acceso directo:CTRL+s ' Range("B3:J8").Copy ActiveSheet.Paste Application.CutCopyMode=False End Sub

Solo modifica un poco el código: En el evento AfterUpdate del Textbox del Código: Set N = Sheets("Hoja de Datos").Range("A:A").Find(TextBox1,,,xlWhole) If Not N Is Nothing Then TextBox2 = N.Offset(0, 1) Else TextBox1.SetFocus MsgBox("El Codigo " &...

En el mismo evento: If Target.Address = Range("Celda Selector").Address Then Call "Mi Macro" End If