Error En El Metodo Range Del Objeto _global
Contents |
vista Error 1004, error en el método Range del objeto _Global Solo consultas sobre macros y código VBA Excel. Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)2. Si haces una nueva pregunta, es muy error en el metodo 'range' de objeto '_global' recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!3. Realiza tu pregunta de forma
Metodo Range Do Objeto Global Falhou
clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta! Publicar una respuesta 4 mensajes • Página
Error En El Método ' ' Del Objeto ' '
1 de 1 Error 1004, error en el método Range del objeto _Global por Jak » 27 Oct 2013 15:11 Hola a Todos:Para Insertar una columna y copiar el contenido de otra, utilicé excel 2007 para
El Objetivo Del Metodo Cientifico
generar una macro, luego copié el código de esa macro en mi form de vb 6.Selecciono una Option entre las tres que tengo y ejecuta la rutina perfectamente, pero si vuelvo a seleccionar otra option y tratar de ejecutar la rutina, me aparece:"Error 1004, error en el método Range del objeto _Global"Para tomar otra option y ejecutar la rutina debo cerrar completamente el formulario y luego volver a iniciarlo, pues Excel queda error 1004 visual basic excel 2010 cargado según veo en el Administrador de Tareas de Windows (Ctrl + Alt + Sup)Al cerrar el formulario y volver a abrirlo, se descarga Excel.He buscado mucho por una solución pero no la encuentroMuchas gracias por vuestro tiempoA continuación el código:Private Sub InsertarColumnaYCopiarContenidoDeColumnaA_Click()If Option1 = True Then Paso = 4: Inicio = 1: Archi = "Tra" If Option2 = True Then Paso = 4: Inicio = 2: Archi = "Seg”If Option3 = True Then Paso = 4: Inicio = 3: Archi = "Rev" Set objExcel = New Excel.Application Set xLibro1 = objExcel.Workbooks.Open(App.Path + "\" + "Nacho" + "\" & Archi) objExcel.Visible = False'A continuación el código que saqué de la macro: Inserta una columna en E y luego copia en esa columna E, el contenido de la columna A (A1: A10) Columns("E:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1:A10").Select Selection.Copy Range("E1").Select ActiveSheet.Paste Application.CutCopyMode = False'Fin del código que saque de la macroxLibro1.SavexLibro1.CloseSet xLibro1 = NothingEnd Sub Jak Miembro Nuevo Mensajes: 3Registrado: 27 Oct 2013 14:56 Arriba Re: Error 1004, error en el método Range del objeto _Global por Héctor Miguel » 27 Oct 2013 22:28 si tu único problema es que Excel se queda en ejecución (?), se debe a que NO estas terminando la aplicaciónprueba agregando dos líneas a tu código justo ANTES del fin del procedimient
ProgramadoresIniciar sesiónCorreo: Contraseña: Entrar Recordar sesión en este navegadorRecordar contraseña?Iniciar sesiónCrear error 1004 visual basic excel 2013 cuentaDocumentación y RecursosCursos y ManualesBiblioteca de TemasCódigo FuenteNoticias/ArtículosForos y error 1004 range de objeto _worksheet ConsultasForos de ConsultaChats de prog.Nuevo!!Tablón de NotasDiccionario informáticoProgramadoresProgramadoresOfertas de TrabajoSolicitudes para prog.Lista de error en el metodo 'worksheets' de objeto '_global' CorreoProgramasProgramas/UtilidadesNuestros ProgramasIconos y CursoresPreguntas/RespuestasOtrosUtilidadesColaboradoresEncuestas/EstadísticasContactarLWP » Foros » Visual Basic para Aplicaciones » Error 1004, error en el método Range del objeto http://www.todoexcel.com/foro-excel/macros/error-1004-error-metodo-range-del-objeto-global-t24819.html _Global Visual Basic para Aplicaciones - Error 1004, error en el método Range del objeto _Global VolverNuevo Tema<<>> Vista: arbolcronológicoError 1004, error en el método Range del objeto _GlobalJak(26/10/2013 21:45:57)11.514 visitas6 respuestasError 1004, error en el método Range del objeto _GlobalJuanC(26/10/2013 22:08:50)Error 1004, http://www.lawebdelprogramador.com/foros/Visual-Basic-para-Aplicaciones/1402724-Error-1004-error-en-el-metodo-Range-del-objeto-_Global.html error en el método Range del objeto _GlobalJak(27/10/2013 01:21:36)Error 1004, error en el método Range del objeto _GlobalJuanC(27/10/2013 10:47:52)Error 1004, error en el método Range del objeto _GlobalJak(27/10/2013 13:00:32)Error 1004, error en el método Range del objeto _GlobalDario Flores(02/04/2016 22:35:51)Error 1004, error en el método Range del objeto _GlobalJak(29/10/2013 01:44:35) Error 1004, error en el método Range del objeto _GlobalPublicado por Jak(4 intervenciones) el 26/10/2013 21:45:57Hola a Todos: Para Insertar una columna y copiar el contenido de otra, utilicé excel 2007 para generar una macro, luego copié el código de esa macro en mi form de vb 6. Selecciono una Option entre las tres que tengo y ejecuta la rutina perfectamente, pero si vuelvo a seleccionar otra option y tratar de ejecutar la rutina, me aparece: "Error 10
codigo:PrivateSubComboBox2_Click() DimApNomAsString DimidBuscaAsString DimfilaAsInteger Application.ScreenUpdating=False Sheets("DATOS").Select fila=0 ApNom=ComboBox2 DoWhileidBusca<>ApNom fila=fila+1 idBusca=Range("A"&fila).Value http://www.todoexpertos.com/preguntas/658s83amhyon9cc3/error-en-el-metodo-range-de-objeto-global IfidBusca=EmptyThen Sheets("DATOS").Select ExitDo EndIf Loop ComboBox2=Range("C"&fila).Value TxtRif=Range("D"&fila).Value TxtDireccion=Range("E"&fila).Value TxtAlicuota=Range("F"&fila).Value ComboBox2. SetFocus MENU. Activate EndSuby me esta dando error en la linea: ComboBox2 = http://stackoverflow.com/questions/12174723/run-time-error-1004-method-range-of-object-global-failed Range("C" & fila).Value Este codigo lo utilizo para completar automaticamente los 3 TextBox segun la opcion del ComboBox2He modificado varias veces el error en codigo pero no consigo el error Seguir Siguiendo Dejar de seguir 2 2 respuestas Respuesta de Dante Amor 2 2 Dante Amor, Excelente! Estás iniciando la variable fila con 0, cuando el valor idBusca es igual ApNom entonces no entra al loop, luego asignas Range("C" & error en el fila).Value al combobox, pero como fila vale 0, entonces te genera el error.Puedes cambiar fila = 0 por fila = 1, e incrementar el contador después de la pregunta, por ejemplo:PrivateSubComboBox2_Click() DimApNomAsString DimidBuscaAsString DimfilaAsInteger Application.ScreenUpdating=False Sheets("DATOS").Select fila=1 ApNom=ComboBox2 DoWhileidBusca<>ApNom idBusca=Range("A"&fila).Value IfidBusca=EmptyThen Sheets("DATOS").Select ExitDo EndIf fila=fila+1 Loop ComboBox2=Range("C"&fila).Value TxtRif=Range("D"&fila).Value TxtDireccion=Range("E"&fila).Value TxtAlicuota=Range("F"&fila).Value ComboBox2.SetFocus Menu.Activate EndSubAunque, si vas a hacer una búsqueda, yo prefiero utilizar el método find, por ejemplo:PrivateSubComboBox2_Click() 'Por.DanteAmor Seth=Sheets("DATOS") Setb=h.Columns("A").Find(ComboBox2,lookat:=xlWhole) IfNotbIsNothingThen ComboBox2=h.Range("C"&b.Row) TxtRif=h.Range("D"&b.Row) TxtDireccion=h.Range("E"&b.Row) TxtAlicuota=h.Range("F"&b.Row) Else MsgBox"Eldatoseleccionadoenelcombonoexiste" EndIf EndSubDe esta forma no es necesario cambiarse a la hoja "DATOS".También revisa, si lo que quieres asignar de la columna "C" lo quieres poner en el mimo combobox2ComboBox2 = h.Range("C" & b.Row) el 19 jun. 15 Votada Deshacer voto Votar 2 Comentar Compartir Compartir respuesta Todoexpertos Facebook Twitter Google+ - Anónimo ahora mismo Añadir comentario U
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Run-time error '1004' : Method 'Range' of object'_Global' failed up vote 3 down vote favorite 2 I have a problem with excel, with a form that generates a reference no. But when I try to generate the reference no. it has an error message saying : Run-time error '1004' : Method 'Range' of object'_Global' failed When I click on Debug button , it shows the code as below: It highlight the error on 4th line of the code Sub clearTemplate() ' Clear Template Content Range(inputTemplateHeader) = NO_ENTRY Range(inputTemplateContent) = NO_ENTRY - (highlighted error) End Sub Sub clearRefNo() ' Clear cell G2 reference number Range(cellRefNo) = NO_ENTRY ' Open "Report_ref_no.xls" If Not (IsFileOpen) Then Workbooks.Open filename:=ThisWorkbook.Path & "\" & FACCESS ' Activate "Report_ref_no.xls" Windows(FACCESS).Activate ' Access column D Range(cellFirstRefNo).Select Selection.End(xlDown).Select If refNo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value Then ' Log Development Code column Cells(ActiveCell.Row, ActiveCell.Column) = NO_ENTRY ' Log Issuer column Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = NO_ENTRY ' Log Date column Cells(ActiveCell.Row, ActiveCell.Column + 2).Value = NO_ENTRY End If ' Save & Close workbook ActiveWindow.Close True End Sub Can anyone help me with this problem ? I don't know wha