Error de compilación en excel
Que tal buenos días estoy haciendo un programa de nomina en microsoft excel. Inserte un command button para agregar datos en otra hoja al darle click. Pero me dice error de compilacion se esperaba end sub al querer ejecutarlo. Les agradecería mucho su ayuda para saber donde esta mi error. Les dejo el código que estoy utilizando
Private Sub CommandButton3_Click() (En esta parte me marca en amarillo visual basic)
Sub a()
Sheets("Formulario").Range("b5").Select
Selection.Copy
Sheets("Datos").Select
Range("d1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Sheets("Formulario").Range("b6").Select
Selection.Copy
Sheets("Datos").Select
Range("f1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Range("b5").Select
End Sub
End Sub
Private Sub CommandButton3_Click() (En esta parte me marca en amarillo visual basic)
Sub a()
Sheets("Formulario").Range("b5").Select
Selection.Copy
Sheets("Datos").Select
Range("d1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Sheets("Formulario").Range("b6").Select
Selection.Copy
Sheets("Datos").Select
Range("f1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Range("b5").Select
End Sub
End Sub
1 respuesta
Respuesta de kgb_elantro
1
¿En la segunda linea del código que hace ese "Sub a()"?
Ese Sub a() y el ultimo End Sub, debes borralos.
Si tu intención es llamar a un modulo no debes escribir Sub a(), solo debes escribir el nombre del modulo ejemplo: a
y cuando tu llamas a un modulo no hay para que cerralo con Edn Sub.
Espero haberte ayudado, su fue así, debes cerrar la respuesta y valorizar, de lo contrario estaré atento a tus dudas
Ese Sub a() y el ultimo End Sub, debes borralos.
Si tu intención es llamar a un modulo no debes escribir Sub a(), solo debes escribir el nombre del modulo ejemplo: a
y cuando tu llamas a un modulo no hay para que cerralo con Edn Sub.
Espero haberte ayudado, su fue así, debes cerrar la respuesta y valorizar, de lo contrario estaré atento a tus dudas
