Jump to content

waltermendez99

Members
  • Content Count

    177
  • Joined

  • Last visited

Everything posted by waltermendez99

  1. jejeje muy buena esta línea, dentro de ciclo for! Celdas = Celdas & ", " & NumNeg(Num) mis respetos.
  2. Hola Amigo buen día, Prueba con esta macro, es posible que sea lo que buscas, aunque va algo lento yo creo que es por lo mismo porque busca y te indica. Me cuentas!. Sub prueba2() Application.ScreenUpdating = False x = Range("g1000").End(xlUp).Row MsgBox x contar = 0 fila = 20 For i = 6 To x If Cells(i, 7) < 0 Then Cells(fila, 9) = Cells(i, 7).Address MsgBox "En esta ubicación " & Cells(i, 7).Address & " hay un valor negativo" fila = fila + 1 contar = contar + 1 End If Next i Cells(10, 10) = contar Application.ScreenUpdating = True End Sub Salu2
  3. Hola también modificando lo que tenías: Sub InsertarFilas() Dim numFilas As Long 'Preguntar al usuario por el número de filas a insertar numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1) 'Validar si el número de filas indicado es superior a cero If numFilas > 0 Then 'Insertar filas Rows(ActiveCell.Offset(1, 0).Row & ":" & ActiveCell.Row + numFilas).Insert End If End Sub Saludos!
  4. amigo, lo he realizado y quedó a la perfección, lo mejor es que ese libro personal ni siquiera se abre para el usuario,, así no habrá problema, es una pena ajena que excel no corrija eso jajaja. gracias tema cerrado. saludos.
  5. respecto a ese libro que me mencionas, debo guardarlo en una ruta específica verdad, con el nombre y con extención .xlsb va?
  6. hola amigo, gracias, déjame en unos minutos probar, (tengo que ver lo del libro personal que me dices) ya te cuento. gRACIAS.
  7. Hola amigos, estoy tratando de habilitar la pestaña de complementos, en las opciones de excel ya está marcado para que se muestre, he descargado un complemento con extensión .xla RESULTA que al abrirlo de manera normal, yendome a la ficha programador, complementos y marcar el que yo deseo lo hace la primera vez y después de que cierro excel ya no se queda la ficha complementos abierta. Algún código que pueda intervenir para que muestre la pestaña complementos? gracias!!
  8. Hola estimados, como funciona el archivo, o para que funcione que debe de hacerse?
  9. Hola amigo, mi comentario está demás, pero con esto imagino que es suficiente: Private Sub Nombre_Change() Dim i As Long, UF As Long UF = Worksheets("Base").Range("E3").End(xlDown).Row Menor = UF + 1 Range("E3:E" & UF).Font.ColorIndex = 25 For i = UF To 1 Step -1 If Not IsEmpty(Trim(Nombre)) Then If LCase(Range("E" & i)) Like LCase(Nombre) & "*" Then If Trim(Nombre) <> "" Then Range("E" & i).Font.ColorIndex = 3 If i < Menor Then Menor = i Else End If End If Else End If Next i If Menor <> UF + 1 Then End If End Sub a meno que se reduzca más el ciclo for. slds.
  10. Hola amigo, Te dejo el siguiente adjunto, espero y te pueda servir. en sí la macro, está formada por partes que he grabado valga la redundancia con la propia grabadora de macros y con complemento mío, esto hace que el código no sea muy automatizado, pero en algo ya te puede ayudar cumple con lo que necesitas. Saludos desde Guatemala. contar.xlsm
  11. Muchas Gracias!! Hector, Probaré de nuevo lo que me indicas, si "no llegara a funcionar", optaré por utilizar un userform para el ingreso de una contraseña y ha a dependencia de ello corra las instrucciones que necesito. Muchas gracias por tu ayuda y tiempo. Saludos a todos desde Guatemala!!
  12. Gracias Macro Antonio, creo que el archivo sería mejor aplicable para un asunto de mayor necesidad o como dijo HECTOR MIGUEL: Pensaba en algo mas práctico, Lo del Shif no me funcionó lo presione antes de hacer click al archivo, durante y después y no detuvo el proceso. Utilicé los eventos del formulario de inicialización y terminación y pues esta alternativa me funciona igual a como lo tenía antes, sólo que esta vez no cierra el excel y deja al descubierto las herramientas de excel. Lo que se me ocurre es utilizar un INPUTBOX para generar el ingreso de alguna contraseña y ha dependencia de ello corra los codigos que necesito. Créo que será lo mas práctico :). Saludos. Muchas Gracias!!
  13. Gracias a todos por sus respuestas, Me llaman la atención sus consejos, sin embargo veo un poco más la facilidad de lo que comenta Hector Miguel, probaré con las opciones del formulario y pues veremos la funcionalidad, en caso contrario trataré de utilizar la tecla shift, si en efecto funciona me bastará utilizar la tecla. Ya les estaré comentando..
  14. Hola estimados todos, Es posible cargar las instruciones de un procedimiento de código desde un archivo de texto a vba?, es decír si coloco lo siguiente en un archivo de texto en la raiz C:/ el archivo se llamaría : Principio.txt sub principio () ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)") Application.DisplayFormulaBar = True ActiveWindow.DisplayWorkbookTabs = True Application.DisplayStatusBar = True End Sub El otro archivo se llamaría : Finaliza.txt sub finaliza () ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") Application.DisplayFormulaBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False UserForm1.Show End Sub y en el thisworkbook de mi libro poner lo siguiente: Private Sub Workbook_BeforeClose(Cancel As Boolean) Que busque la ruta del archivo de texto: Principo.txt y ejecute lo que hay en el. Si no lo encuentra, que lo notifique y pues continúe abriendo excel. End Sub Private Sub Workbook_Open() Que busque la ruta del archivo de texto: Finaliza.txt y ejecute lo que hay en el. Si no lo encuentra, que lo notifique y pues continúe abriendo excel. End Sub Estos procedimentos harán que ocultar todas las herramientas de excel y cada vez que yo quiera tener acceso a las herramientas, baste sólo con ir a quitar temporalmente estos archivos de la raíz. Será posible?' Gracias de antemano!!
  15. hOLA Gracias por tu respuesta y tiempo, primeramente, Pues fíjate que en realidad CeldaLocalizada busco capturar el texto que tenga en una ubicación x en la hoja, Entonces ese valor utilizarlo en el método Range, entonces procedí a hacer lo siguiente CeldaLocalizada = hoja3.cells(2,17) --> el resultado debería de ser lo que tenga escrita dicha ubicación, así que dije yo, haré esto: Range(CeldaLocalizada).select Al principio no me funcionó y desconozco la razón, volví hacer la prueba y me resolvió, Para evitar, mas este tipo de inconveniente lo lanzaré con el código que me posteaste. muchas gracias! Saludos desde Guatemala
  16. Hola como les había comentado probé varias formas, entre ellas estaba también esta: CeldaLocalizada = Hoja3.Cells(2, 17) Range(CeldaLocalizada).Select Esta opción sin comillas, en su momento no me funcionó y verifiqué todo sin embargo volví hacerla prueba y me funcionó. Habrá siempre alguna otra alternativa.
  17. Hola, buenas tardes, Estoy intentando hacer esto: CeldaLocalizada = Hoja3.Cells(2, 17) Range("CeldaLocalizada").Select donde CeldaLozalizada debe tomar el valor que hay en hoja3.cells(2,17) y el valor que tengo escrito es B2 Resulta que me despliega error, he intentado otras formas: CeldaLocalizada = """ & Hoja3.Cells(2, 17) & """ Range(CeldaLocalizada).Select y ninguna de estas dos formas: Habrá forma de realizarlo de esta forma? sin utilizar la otra alternativa que es por medio de CELLS(X, X) Gracias.
  18. Hola Melandru!!, que bien por tu decisión, será de gran ayúda este foro para tí!. No quiero abusar del post jeje... pero quiero mandarles un saludo a: Cesar Durand y José_Santos, éxitos en sus actividades cotidianas. Saludos!!!
  19. Hola Sonia, Que bien que hayas encontrado éste foro tan genial,! asi que, bienvenida!! No me quda más que decirte, que aquí encontraras a grandes talentos que te ayudarán a solventar los temas que muy problablemente estés subiendo en un futuro!. Al igual que tú, también soy aprendiz en la materia por lo que comparto tus ideales. Esperemos un día lograr aportar de gran manera en este foro y ayudar a otros que en el futuro vendrán tal como viniste tú y como vine yo!, En algunas ocaciones lo he hecho y regularmente ha sido cosas básicas sin embargo da satisfacción poder hacerlo y tambíén toca la inversa jaja!!!, y pues que bueno que existan referentes incondicionales para ofrecer sus conocimientos y darnos un plus. Éxitos en inicio!!! Saludos desde ya! Walter
  20. Bienvenido Fransisco!, Espero que tú estadía por acá sea confortable!, Si en alguna ocasión tengo la oportunidad y desde luego el conocimento para apoyarte lo haré. Saludos y éxitos!! Walter
  21. waltermendez99

    hola

    Hola Ana!, bienvenida! Al igual que tú, yo también he tenido dificultades en excel y más cuando se trata de macros, pues qué bueno que encontraste éste genial foro donde hay muchos referentes que de manera incondicional te pueden guiar a las soluciones que buscas, o mas bien!, las soluciones que muchos buscamos y que realmente nos aquejan. Siempre te recomiendo que puedas leer las normas y disposiciones (si en dado caso no las hecho) de éste foro, así estarás orientada y preperada para postear tus dudas. Desde yá éxitos! Saludos desde la querida Guatemala! Walter
  22. hay ta!, Mil gracias Mauricio, muy fino de tu parte, con eso queda claro todo! un saludo! Tema solucionado°
  23. MUCHISIMAS GRACIAS!! ESTA GENIAL, Eso es todo, sólo fueras amable decirme que lo que hiciste, pues lo necesito adaptar, creeme que soy bueno entendiento con poco que escribas jejeje es un decir. que fue la modificación al final? Sólo eso y ya!! mil gracias! quedo pendiente.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5