werewolf8611

Planeta Trece Telecomunicaciones respondió: En primer lugar deberías decir el sistema operativo que tienes, que por lo que comentas debe ser windows vista, o windows 7. Eso es una opción del sistema operativo (hay manera de quitarlo pero sería de locos) ya que abriría las puertas a todo tipo...

José Saúl Méndez Alonso respondió: Intenta con estas líneas Application.ScreenUpdating = False 'Congela la pantalla 'Aquí van las demás acciones Application.ScreenUpdating = True 'Refresca la pantalla

David Arenas Montoya respondió: Prueba definiendo el tipo de variable "Grupo" Sub Busqueda() dim Grupo as Integer 'o long o como lo requiera I = 6 K = 6 Grupo = InputBox("Ingrese el grupo a buscar") While ActiveSheet.Cells(I, 1) <> "" If ActiveSheet.Cells(I, 2) = Grupo Then For J =...

José Saúl Méndez Alonso respondió: No entiendo muy bien cual es el propósito de esta linea ActiveWorkbook.ActiveSheet.Cells(nLinD, nCol) = Sheet.Add.After.Cells(nLin, nCol) Pero lo que te puedo comentar es que la segunda línea te provoca un error porque estas intentando añadir una...

santiagomf respondió: He retocado tu búsqueda y he incluido comentarios de lo que hace cada línea. No cuentas nada de lo que quieres hacer, por lo que no puedo ver si hace exactamente lo que quieres o no. Te dejo el código y espero que con las explicaciones seas capaz de...