** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Ayuda con macro excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAyuda con macro excel

 Responder Responder
Autor
Mensaje
walvarado_18 Ver desplegable
Nuevo
Nuevo


Unido: 06/Mayo/2019
Localización: Peru
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Ayuda con macro excel
    Enviado: 06/Mayo/2019 a las 19:56
Hola estoy tratando de habilitar una macro que me proporcionaron a un boton de comando para llamarla desde alli pero me sale error de compilacion se esperaba en sub alguien me puede ayudar y decirme que estoy haciendo mal

Private Sub CommandButton1_Click()
    Sub RenameFiles()
    'Updateby20141124
    Dim xDir As String
    Dim xFile As String
    Dim xRow As Long
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
    If .Show = -1 Then
        xDir = .SelectedItems(1)
        xFile = Dir(xDir & Application.PathSeparator & "*")
        Do Until xFile = ""
            xRow = 0
            On Error Resume Next
            xRow = Application.Match(xFile, Range("A:A"), 0)
            If xRow > 0 Then
                Name xDir & Application.PathSeparator & xFile As _
                xDir & Application.PathSeparator & Cells(xRow, "B").Value
            End If
            xFile = Dir
        Loop
    End If
    End With
    End Sub
End Sub
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11918
Enlace directo a este mensaje Enviado: 06/Mayo/2019 a las 20:11
Hola walvarado_18 y bienvenido al foro,

Has colocar un Sub dentro de otro.

Sospecho que encontraste la rutina RenameFiles() y la quieres llamar desde un botón...

Opción 1:
Empieza por tener la rutina "limpia": elimina la primera y ultima filas.
A continuación generas el evento del botón y le asignas la rutina

Private Suc cmdCommendButton1_Click()
Call RenameFiles
End Sub

Opción 2:
Quita la línea Sub renameFiles() y la ultima línea.

Un saludo

Xavi, un minyó de Terrassa

Mi web
Arriba
walvarado_18 Ver desplegable
Nuevo
Nuevo


Unido: 06/Mayo/2019
Localización: Peru
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 06/Mayo/2019 a las 21:01
Gracias mi estimado Terrassa-BCN, se solucionó.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable