tag:blogger.com,1999:blog-8253525174733356300.post761697072873359428..comments2024-03-16T00:16:47.805+01:00Comments on témporaExcel: Control de errores en VBA para ExcelTémpora Consultoreshttp://www.blogger.com/profile/09000632812723289961noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-8253525174733356300.post-51632224742853338632020-02-20T03:10:00.832+01:002020-02-20T03:10:00.832+01:00Buenas noches,
Quisiera que me colaboraran por fa...Buenas noches,<br /><br />Quisiera que me colaboraran por favor con este error:<br />Sub botonproductos()<br />'<br />' botonproductos Macro<br />'<br /><br />'<br /> ("Productos").Delete<br /> Range("C5").Delete<br /> ("Menú").Delete<br /> ActiveSheet.Shapes.Range(Array("Group 6")).Select<br /> . = "botonproductos"<br /> Range("M6").Delete<br />End Sub<br /><br />Al tratar de abrir el boton me sale <br />error de compilacion error de sintaxis <br />y se sombrea de azul <br /> ("Productos").Delete<br />agradezco de antemano su colaboración Johana Chaphttps://www.blogger.com/profile/09385741002170875502noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-71417233064915444782019-10-20T12:53:41.203+02:002019-10-20T12:53:41.203+02:00buenas, a ver si me pueden ayudar soy nuevo en est...buenas, a ver si me pueden ayudar soy nuevo en esto, meda error 13 y no se como arreglarlo. mi correo es palacios347@gmail.com<br />Sub GuardarInformacion()<br />Rem Declaración de Variables<br />Dim ContFila As Long<br />Dim hoja As Worksheets<br />Set hoja = Worksheets(1)<br />Rem buscamos la fila donde se deben escribir los datos<br />ContFila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row<br />hoja.Cells(ContFila, 1).Value = Me.TextFecha.Value<br />hoja.Cells(ContFila, 2).Value = Me.TextNombre.Value<br />hoja.Cells(ContFila, 3).Value = Me.TextCurso.Value<br />hoja.Cells(ContFila, 4).Value = Me.Texttlf.Value<br />hoja.Cells(ContFila, 5).Value = Me.TextTutor.Value<br />hoja.Cells(ContFila, 6).Value = Me.TextTlfTutor.Value<br />hoja.Cells(ContFila, 7).Value = Me.Textasign1.Value<br />hoja.Cells(ContFila, 8).Value = Me.TextAsign2.Value<br />hoja.Cells(ContFila, 9).Value = Me.TextAsign3.Value<br />hoja.Cells(ContFila, 10).Value = Me.Texthorsem.Value<br />hoja.Cells(ContFila, 11).Value = Me.TextInsti.Value<br />hoja.Cells(ContFila, 12).Value = Me.TextComent.Value<br />Rem Se limpia el formulario<br />Me.TextFecha.Value = ""<br />Me.TextNombre.Value = ""<br />Me.TextCurso.Value = ""<br />Me.Texttlf.Value = ""<br />Me.TextTutor.Value = ""<br />Me.TextTlfTutor.Value = ""<br />Me.Textasign1.Value = ""<br />Me.TextAsign2.Value = ""<br />Me.TextAsign3.Value = ""<br />Me.Texthorsem.Value = ""<br />Me.TextInsti.Value = ""<br />Me.TextComent.Value = ""<br /><br />End Subalfonsohttps://www.blogger.com/profile/04377808958589536824noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-39892194786192060912018-09-18T16:49:25.355+02:002018-09-18T16:49:25.355+02:00Si, si es posible hacerlo.
:)Si, si es posible hacerlo.<br /><br />:)témporaconsultoreshttps://www.blogger.com/profile/06618873410147904806noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-62821016673495064192018-09-18T16:47:28.406+02:002018-09-18T16:47:28.406+02:00No entiendo la pregunta ni el problema.
Puedes exp...No entiendo la pregunta ni el problema.<br />Puedes explicarlo de otra forma?<br />Saludostémporaconsultoreshttps://www.blogger.com/profile/06618873410147904806noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-57697996126488407082018-07-26T07:29:36.303+02:002018-07-26T07:29:36.303+02:00Hola.. quisiera que me ayudaran..
Tengo una macro ...Hola.. quisiera que me ayudaran..<br />Tengo una macro que me crea hyperlinks en el nombre del producto de mi base de datos.. que al darle clic me habre la imagen de este mismo con el mismo nombre guardada en una carpeta ... ok esa parte esta bien.. el problema es que quisiera saber si hay algun codigo que cuando la foto no exista (o este mal el nombre) entonces que automaticamente que valla a la o las celdas del error y que quite el hyperlink...<br />Digo que lo quite por que cuando corro mi macro hasta al producto que no tengo guardado con foto le pone hyperlink... solo que cuando le doy clic dice que no se puede encontrar el archivo... por tal razon quisiera el codigo de que si se produce el error en alguna celda le quite el hyperlink.. de antemano muchas graciasAdonishttps://www.blogger.com/profile/02014772457200084435noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-28196266951977690382017-10-15T15:36:22.931+02:002017-10-15T15:36:22.931+02:00Buenos dias yo tengo el siguiente error, Private S...Buenos dias yo tengo el siguiente error, Private Sub CommandButton1_Click() me podrias ayudar a corregirlo la misma quedo asi <br />Private Sub CommandButton2_Click()<br />Unload Me<br />End Sub<br />Private Sub CommandButton1_Click()<br /> GuardarInformacion()<br /> <br />End Sub<br />Sub GuardarInformacion()<br /> <br /> Rem Declación de variables<br /> Dim contFilas As Long<br /> Dim hoja As Worksheets<br /> <br /> Set hoja = Worksheets(1)<br /> <br /> 'Validamos que los campos de texto correspondientes a los datos del container esten dilingenciados totalmente<br /> <br />If Trim$(TextBox1.Text) = Empty Or Trim$(TextBox2.Text) = Empty Or Trim$(TextBox3.Text) = Empty Or Trim$(TextBox4.Text) = Empty Or Trim$(TextBox5.Text) = Empty Or Trim$(TextBox6.Text) = Empty Or Trim$(TextBox7.Text) = Empty Or Trim$(TextBox8.Text) = Empty Or Trim$(TextBox9.Text) = Empty Or Trim$(TextBox10.Text) = Empty Or Trim$(TextBox11.Text) = Empty Then<br /> MsgBox "Por Favor Ingrese Todos Los Datos!", "Datos Incompletos"<br /> Exit Sub<br />End If<br /> ' Validamos la fila siguiente en la hoja donde se deben ingresar los datos'<br /> ConFila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row<br /> <br /> hoja .Cells(ContFila, 1).Value = TextBox1<br /> hoja .Cells(ContFila, 2).Value = TextBox2<br /> hoja .Cells(ContFila, 3).Value = TextBox3<br /> hoja .Cells(ContFila, 4).Value = TextBox4<br /> hoja .Cells(ContFila, 5).Value = TextBox5<br /> hoja .Cells(ContFila, 6).Value = TextBox6<br /> hoja .Cells(ContFila, 7).Value = TextBox7<br /> hoja .Cells(ContFila, 8).Value = TextBox8<br /> hoja .Cells(ContFila, 9).Value = TextBox9<br /> hoja .Cells(ContFila, 10).Value = TextBox10<br /> hoja .Cells(ContFila, 11).Value = TextBox11<br /> <br /> 'Se limpia o borran los datos de los campos de texto del formulario<br /> TextBox1.Value = ""<br /> TextBox2.Value = ""<br /> TextBox3.Value = ""<br /> TextBox4.Value = ""<br /> TextBox5.Value = ""<br /> TextBox6.Value = ""<br /> TextBox7.Value = ""<br /> TextBox8.Value = ""<br /> TextBox9.Value = ""<br /> TextBox10.Value = ""<br /> TextBox11.Value = ""<br /> TextBox1.SetFocus<br /> <br />End SubYovanni Ariashttps://www.blogger.com/profile/16671976563966180439noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-62211662731680899452017-09-01T03:36:06.989+02:002017-09-01T03:36:06.989+02:00Hola.
Te cuento el caso, hice una macro con la gr...Hola. <br />Te cuento el caso, hice una macro con la grabadora de macros para actualizar varias tablas de datos desde la web. El problema es que hasta el hacerlo manualmente requiere, a veces, tener que detener la ejecucion de la actualizacion presionando "ESC" y volver a actualizar para evitar el largo tiempo de espera en el que cae, haciendo eso la actualizacion se ejecuta en menos de 15 segundos, esto puede pasar con cualquier tabla al hacer la seguidilla de actualizaciones.<br />El pedido es, qué codigo me permitiria que en caso de demorar la actualizacion en mas de 10 segundos sobre una tabla, que suspenda y vuelva a ejecutar el mismo codigo dos veces más y recien luego seguir con el siguiente, ya sea que se pudo o no actualizar (por error o tiempo de espera).<br />gracias!Anonymoushttps://www.blogger.com/profile/10427765644503530424noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-37979229101851911052017-07-23T08:48:39.242+02:002017-07-23T08:48:39.242+02:00Muchas graciasMuchas graciasLeonpardohttps://www.blogger.com/profile/01698565771633772343noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-55496486344222724302017-07-16T19:01:58.438+02:002017-07-16T19:01:58.438+02:00ESTOY INGRESANDO EN EXCEL VBA NUEVOS CAMPOS EN UN ...ESTOY INGRESANDO EN EXCEL VBA NUEVOS CAMPOS EN UN FORMULARIO PERO ME SALE ERROR DE COMPILACION NO SE HA ENCONTRADO LA VARIABLE COMO LO PUEDO SOLUCIONAR ME PODRÍAN AYUDAR ENVIANDO LA RPTA A MI EMAIL miguelafan@hotmail.comMiguel Angel Afan Salashttps://www.blogger.com/profile/14768790170768398194noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-59766021833303968602017-06-30T01:23:47.996+02:002017-06-30T01:23:47.996+02:00Muy buena información!! Gracias. Sólo no se entien...Muy buena información!! Gracias. Sólo no se entiende lo de GoTo -1. MBRhttps://www.blogger.com/profile/03894148673926793852noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-88886011640043900892017-05-24T01:01:29.247+02:002017-05-24T01:01:29.247+02:00Probablemente es porque en el momento de requerir ...Probablemente es porque en el momento de requerir la selección de "rngOrigen" no esté activo an pantalla ese objeto (wsOrigen ... o lo que es lo mismo, la hoja CARGA BIBANKING)<br />Previamente habría que introducir un código que activara esa hoja<br />Espero haber ayudadoTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-69446776104440510512017-05-23T19:50:34.093+02:002017-05-23T19:50:34.093+02:00me pueden ayudar con el siguiente error:
Select m...me pueden ayudar con el siguiente error:<br /><br />Select method of Range class failed<br /><br />El codigo es el siguiente:<br /><br />Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\CargaBibanking.xlsx")<br /><br />ThisWorkbook.Activate<br /><br />Set wsOrigen = Worksheets("CARGA BIBANKING")<br />Set wsDestino = wbDestino.Worksheets("CARGA BIBANKING")<br /><br />Const celdaOrigen = "A1"<br />Const celdaDestino = "A1"<br /><br />Set rngOrigen = wsOrigen.Range(celdaOrigen)<br />Set rngDestino = wsDestino.Range(celdaDestino)<br /><br />rngOrigen.Select<br />Range(Selection, Selection.End(xlDown)).Select<br />Range(Selection, Selection.End(xlToRight)).Select<br />Selection.Copy<br /><br />rngDestino.PasteSpecial xlPasteValues<br />Application.CutCopyMode = False<br /><br />wbDestino.Save<br />wbDestino.Close<br /><br />y el error lo muestra en la linea que dice "rngOrigen.Select"<br /><br />Gracias.Administradorhttps://www.blogger.com/profile/14161102502940228008noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-7175106913058465822017-03-15T10:51:08.769+01:002017-03-15T10:51:08.769+01:00Un poco mas arriba pone lo siguiente, lo cual no h...Un poco mas arriba pone lo siguiente, lo cual no has aplicado...<br />Es conveniente utilizar una instrucción Exit Sub antes del control de errores (que se suele colocar al final del procedimiento) para evitar que sea leído el código si no es necesario (si no existe error). Antoniohttps://www.blogger.com/profile/04992542906943209536noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-70988331043148327422016-11-29T23:32:55.827+01:002016-11-29T23:32:55.827+01:00MIRA MI CÓDIGO ES EL SIGUIENTE:
Private Sub Comman...MIRA MI CÓDIGO ES EL SIGUIENTE:<br />Private Sub CommandButton1_Click()<br />On Error GoTo ERROR<br />Dim Myconm As New Connection<br />Dim rm As String<br />Dim X As Integer<br />X = 0<br />Myconm.Open "ConexionMantenimiento"<br />Set rsrc = New Recordset<br />rm = "Select CODIGO, APELLIDO, NOMBRE FROM FAM_OFI"<br />rsrc.Open rm, Myconm<br />listfo.Clear<br />Do While rsrc.EOF = False<br />listfo.AddItem<br />listfo.List(X, 0) = rsrc!CODIGO<br />listfo.List(X, 1) = rsrc!APELLIDO<br />listfo.List(X, 2) = rsrc!NOMBRE<br />X = X + 1<br />rsrc.MoveNext<br />Loop<br /><br />ERROR:<br />MsgBox "ALGO INESPERADO SUCEDIO"<br />End Sub<br /><br />cuando lo ejecuto así no exista algún error igual me muestra el mensaje, cosa que no debería ser ya que no existe ningún error.Anonymoushttps://www.blogger.com/profile/10466464531762336012noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-4207119902772276432016-10-25T13:47:53.614+02:002016-10-25T13:47:53.614+02:00Prueba con Application.DisplayAlerts = False
Salu...Prueba con Application.DisplayAlerts = False<br /><br />SaludosTémpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-2357746361665844882016-10-25T13:38:18.421+02:002016-10-25T13:38:18.421+02:00Hola, necesito ayuda. Busco como hacer una macro p...Hola, necesito ayuda. Busco como hacer una macro para que cierre Word o la aplicación de Office que corresponda cuando al abrir el archivo lo detecte como corrupto o dañado. He conseguido hacer una macro que cierra la aplicación si aparace algún error en el código de la macro, pero no me sirve del todo ya que si no acepto las ventanas de aviso de archivo dañado la macro no se ejecuta. Saludos y gracias.Anonymoushttps://www.blogger.com/profile/09298845104374317122noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-17642768796511812372016-10-25T13:35:44.901+02:002016-10-25T13:35:44.901+02:00Hola, necesito ayuda. Quisiera crear una macro que...Hola, necesito ayuda. Quisiera crear una macro que cerrase Word cuando detecta que el archivo esta corrupto o dañado. He conseguido hacer una que cierra la aplicación cuando se produce un error en el codigo de la macro, pero eso no me sirve, ya que la macro no arranca si no acepto las ventanas de aviso de archivo corrupto. Saludos y gracias.Anonymoushttps://www.blogger.com/profile/09298845104374317122noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-14893384888042810362016-04-13T02:49:58.607+02:002016-04-13T02:49:58.607+02:00Pues está pasando justo lo que dice el cuadro de d...Pues está pasando justo lo que dice el cuadro de diálogo. Que la macro que estaba asignada al botón ya no está: o bien porque se ha eliminado, o bien porque la macro no se grabó para este libro y por lo tanto no está alojada en este libro.<br />También podría haber alguna que otra razón más extraña...pero posible.Témpora Consultoreshttps://www.blogger.com/profile/09000632812723289961noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-49781724740704620122016-04-12T13:52:32.403+02:002016-04-12T13:52:32.403+02:00Buenas! Necesito ayuda. Quise abrir un formulario ...Buenas! Necesito ayuda. Quise abrir un formulario de VBA desde una imagen en un Excel a través de la cual se abría normalmente. Ayer quise abrirlo y me saltó el siguiente error: "No se puede ejecutar la macro 'LibroX'. Puede que la macro no esté disponible en este libro o que hayan deshabilitado todas las macros" y sólo el botón de Aceptar... Qué está pasando? Cómo se soluciona?Tristánhttps://www.blogger.com/profile/07063852546479020710noreply@blogger.comtag:blogger.com,1999:blog-8253525174733356300.post-59176106653820168592014-11-24T15:03:00.123+01:002014-11-24T15:03:00.123+01:00Gracias miles yo pense que andaba algo mal con mi ...Gracias miles yo pense que andaba algo mal con mi office y a cambiar de versiones y cd's jejeje habia que cambiar al programador (yo) gracias graciasAnonymousnoreply@blogger.com