tag:blogger.com,1999:blog-4623278671508370136.post3461995614942456020..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: Deshabilitar controles con VBA en Excel 2003.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger24125tag:blogger.com,1999:blog-4623278671508370136.post-74590175704044226512019-06-26T08:57:15.420+02:002019-06-26T08:57:15.420+02:00Hola,
las macros se pueden detener desde el código...Hola,<br />las macros se pueden detener desde el código de la propia macro (End, Exit) o bien manualmente a veces (Esc o quizá Ctrl+break/pause)...<br />Excepcionalmente, si hubieras incluido un DoEvents en esa macro que permita otras acciones, podrías gestionar otro botón que detenga todo con un Exit o un End<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-71655437643977806882019-06-25T22:52:25.079+02:002019-06-25T22:52:25.079+02:00Buen día
Quiero que mi macro mande a cerrar una m...Buen día<br /><br />Quiero que mi macro mande a cerrar una macro de otro libro, ya que coloque Applicaton.RunMitzihttps://www.blogger.com/profile/11429648190721306944noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-22370299927937807482013-11-14T09:11:17.617+01:002013-11-14T09:11:17.617+01:00¿cuál era el problema...??, con qué tenía que ver?...¿cuál era el problema...??, con qué tenía que ver???<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-76720503270869161442013-11-13T17:37:29.744+01:002013-11-13T17:37:29.744+01:00Muchas gracias ya se soluciono el tema
SaludosMuchas gracias ya se soluciono el tema<br />SaludosAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3618404567421159982013-11-12T18:55:36.654+01:002013-11-12T18:55:36.654+01:00Hola,
como te decía verifica como contruyes la var...Hola,<br />como te decía verifica como contruyes la variable 'archivo' y en especial qué genera 'sfecha'<br />Si quieres puedes enviarme el código completo a<br />excelforo@gmail.com<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83651730318906991492013-11-12T16:41:01.010+01:002013-11-12T16:41:01.010+01:00es parte del codigoes parte del codigoAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-65658903792134895892013-11-12T16:38:11.086+01:002013-11-12T16:38:11.086+01:00Sub GetImportaDatos(sFecha As String)
... Sub GetImportaDatos(sFecha As String)<br /> Dim archivo As String<br /> Dim appExcel As Object<br /> Dim hoja As String<br /> Dim hojas As String<br /> Dim extension As String<br /> Dim wb As Object<br /> Dim hj As Object<br /> Dim h As Object<br /> Dim fecha As Double<br /> Dim componente As Variant<br /> Dim i As Long<br /> Dim cierre As Boolean<br /> Dim uFil As Long<br /> Dim xFil As Long<br /> Dim iFil As Long<br /> Dim iCol As Long<br /> Dim xCol As Long<br /> Dim c As Range<br /> Dim d As Range<br /> Dim dato As String<br /> Dim nCel As String<br /> archivo = ThisWorkbook.Path 'Path de la carperta donde esta el libro a tomar los datos<br /> If Right(archivo, 1) <> Application.PathSeparator Then archivo = archivo & Application.PathSeparator<br /> archivo = archivo & sFecha & ".xlsx" 'nombre del libro a tomar los datos<br /> <br /> With CreateObject("Scripting.FileSystemObject")<br /> If Not .FileExists(archivo) Then<br /> If MsgBox("El archivo " & vbNewLine & archivo & vbNewLine & _<br /> "no fue localizado comprueba que no se renombro o cambio de ubicación" & vbNewLine & _<br /> "¿Deseas realizar la selección del archivo manualmente?", _<br /> vbCritical + vbYesNo, Application.OrganizationName) = vbNo Then<br /> Exit SubAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-84546039299913225662013-11-12T15:44:12.285+01:002013-11-12T15:44:12.285+01:00Hola,
tendría que ver el código completo, por que...Hola, <br />tendría que ver el código completo, por que en las pruebas que hice antes de responderte funcionaba y abría perfectamente sin añadir la extendión.<br />Verifica las variable sy cómo construyes ese 'archivo'<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3148533308372251412013-11-12T14:35:17.167+01:002013-11-12T14:35:17.167+01:00Buenas sabe que no resulta al dejarlo sin la exten...Buenas sabe que no resulta al dejarlo sin la extension<br />Esta es la linea <br /> archivo = ThisWorkbook.Path <br />If Right(archivo, 1) <> Application.PathSeparator Then archivo = archivo & Application.PathSeparator<br /> archivo = archivo & sFecha & ".xlsx"<br />SaludosAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77626407114354735192013-11-08T09:23:14.280+01:002013-11-08T09:23:14.280+01:00Bien.. entonces simplemente no le pongas extensión...Bien.. entonces simplemente no le pongas extensión al final<br />archivo = archivo & Format(CDate(DTPicker1.Value), "dd-mm-yyyy")<br /><br />te abrirá el fichero con la extensión que tenga...<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-68259468686402253322013-11-07T20:58:22.558+01:002013-11-07T20:58:22.558+01:00No me resulto ocupando el comodin!!No me resulto ocupando el comodin!!Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-41770051310408059552013-11-07T20:49:28.718+01:002013-11-07T20:49:28.718+01:00Buenas :
Si hay date time picker que al elegir una...Buenas :<br />Si hay date time picker que al elegir una fecha <br />Ej 06-11-2013<br />Hay un libro que se llama 06-11-2013 y lo abre!! Siempre y cuando se con la extension xlsx ..<br />La pregunta como se puede hacer para que sea cual sea la extension de todas formas abra el archivo. por que puede haber un libro que se llame 06-11-2013.xlsx o uno q se llame 06-11-2013.xls<br />Por favor<br />Graias..Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-80740438534374212182013-11-06T19:46:24.773+01:002013-11-06T19:46:24.773+01:00Hola,
no entiendo a que te refieres... has creado...Hola, <br />no entiendo a que te refieres... has creado una variable como Cadena de Texto de una variable 'archivo' junto a una fecha con formato y al final la extensión .xlsx<br />Esa es la extensión del Libro que has definido... ¿pretendes recorrer todas las posibles extensiones existentes de Excel???<br /><br />Prueba con ... & ".xls*" quizá con el comodin lo admita.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-30340630257025892332013-11-06T17:43:05.263+01:002013-11-06T17:43:05.263+01:00Buenas tengo la siguiente linea como hago para que...Buenas tengo la siguiente linea como hago para que tome todas la extensiones de libros<br /><br />archivo = archivo & Format(CDate(DTPicker1.Value), "dd-mm-yyyy") & ".xlsx"<br /><br />Gracias de antemano<br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-46481661809927411512013-10-07T19:52:33.361+02:002013-10-07T19:52:33.361+02:00Hola que tal!
necesitaría saber en que versíon tra...Hola que tal!<br />necesitaría saber en que versíon trabajas... si fuera posible hacer tal cosa, nunca sería en versiones 2007 +<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-53500633410510892682013-10-07T18:32:30.853+02:002013-10-07T18:32:30.853+02:00Hola como puedo deshabilitar la barra de menus de ...Hola como puedo deshabilitar la barra de menus de excel incluido el menu de archivo?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-7992134018804669752012-10-01T20:57:02.159+02:002012-10-01T20:57:02.159+02:00Hola, como estás?.
Recuerda que esto es sólo válid...Hola, como estás?.<br />Recuerda que esto es sólo válido para Excel 2003 !!!.<br /><br />El lugar está explicado en el post, debes incluirlo en el explorador de VBA en la Hoja concreta que vaya asociada la condición.<br />Un cordial saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-50163358547015616992012-10-01T18:55:33.173+02:002012-10-01T18:55:33.173+02:00Me dicen por favor como y dónde se colocan los cód...Me dicen por favor como y dónde se colocan los códigos paso a paso. GraciasAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-71329842653779825862011-12-08T10:57:12.700+01:002011-12-08T10:57:12.700+01:00Hola Rocio,
en la parte de abajo de este mismo pos...Hola Rocio,<br />en la parte de abajo de este mismo post, encontrarás el código necesario para <b>habilitar</b> estos comandos... si bien, debes tener claro que estos códigos eran explicitamente para la versión de Excel 2003.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-33926279472351185642011-12-08T01:51:22.943+01:002011-12-08T01:51:22.943+01:00HOLA AYUDENME
COMO ACTIVO OTRA VEZ ESTOS COMANDOS...HOLA AYUDENME <br />COMO ACTIVO OTRA VEZ ESTOS COMANDOS<br />GRACIAS<br />ROCIOCSANCHEZM@HOTMAIL.COMALERGIA Y LA INMUNOTERAPIAhttps://www.blogger.com/profile/04494527250758837217noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-22351480113413508962010-10-15T13:48:00.744+02:002010-10-15T13:48:00.744+02:00Habría quue encontrar el ID que ejecuta el 'Gu...Habría quue encontrar el ID que ejecuta el 'Guardar como' pero en una hoja de gráfico...<br />Buscaré a ver si encuentro el código en cuestión.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-71107489623523591852010-10-12T22:44:40.222+02:002010-10-12T22:44:40.222+02:00Hola,
hay algun código que me permita inhabilitar ...Hola,<br />hay algun código que me permita inhabilitar Guardar como en el menú Archivo para las hojas de gráficos (no una hoja de cálculo con gráfico sino las hojas que son gráficas). Queda inhabilitado el botón de la barra de herramientas pero no el comando Guardar como del menú Archivo.<br />Gracias.<br />PD: tampoco me inhabilita el menú Herramientas.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-84001723394340870062010-07-27T20:54:21.122+02:002010-07-27T20:54:21.122+02:00Hola,
lo puedes hacer también desde el Editor de V...Hola,<br />lo puedes hacer también desde el Editor de VBA.<br />Si no quieres que pregunte y que ademas no considere los ultimos cambios, entonces deberás hacer lo siguiente:<br />En el editor, en la ventanita de 'Explorador de proyectos, haz doble click en "ThisWorkbook"; en la ventana en blanco de código que aparece escribe este código:<br />Private Sub Workbook_BeforeClose(Cancel As Boolean)<br />ActiveWorkbook.Saved = True<br />End Sub<br />Con esto deberías desactivar la opción de 'Guardar cambios'.<br />combinándolo con el código de la entrada seguro conseguiras lo que quieres.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-63981616367532659972010-07-27T04:51:29.174+02:002010-07-27T04:51:29.174+02:00y al momento de cerrar, que manda la opcion de des...y al momento de cerrar, que manda la opcion de desea guardar los cambios.. habra alguna manera de de evitar que le puedan dar que si ???Anonymousnoreply@blogger.com