Ayuda! ¿Cómo crear eventos en controles creados en tiempo de ejecución?
-
96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
-
1. ¿Te parecen útiles los tips de las funciones?
-
Sí
-
No
-
Ni me he fijado en ellos
-
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
-
-
Ayúdanos a mejorar la comunidad
-
Mantenimiento de la comunidad
Objetivo: 130.00 EUR
-
-
Archivos
-
Estadísticas de descargas
-
Archivos177
-
Comentarios90
-
Revisiones27
-
-
Mensajes
-
Hola Israel, Muchísimas gracias por tu consejo. Te comento como me funcionó. Yo tengo un libro Excel con 1.000.000 de filas y 7 columnas. Si mantengo apretado las teclas Ctrl+Shift+Flecha abajo, me selecciona todos los datos. de la hoja. Pero como me dijiste que una celda vacía rompe la selección, lo que hice fue insertar una fila vacía bajo la última fila que me interesa copiar, selecciono la fila superior con las columnas que me interesa copiar, luego apretando las teclas Ctrl + Shift y luego dando un solo clic en la tecla Flecha hacia abajo, me selecciona los datos hasta la fila vacía. Tema resuelto, nuevamente muchísimas gracias. Lamento haber aprendido esta operación tan tarde. Saludos, Israel Betomil
-
Por Israel Cassales · publicado
En el enlace del foro verás las diferentes secciones FORO -
Buenas tardes Israel. Realmente me disculpo porque estoy iniciándome acá en el foro y no tenía idea cierta donde ubicarme. Si eres tan amable...¿Cuál es la sección correcta para hacer consultas?...también aclaré que no tengo mucha formación -formal- en VBA. ya que mis conceptos los tengo a través del auto estudio. De todas formas agradezco tus precisiones!
-
Por Israel Cassales · publicado
Sub control2558() Application.ScreenUpdating = False Dim I As Integer I = 4 While Hoja10.Cells(I, 102) <> "" Hoja10.Cells(6, 82) = Hoja10.Cells(I, 102) Dim NombreArchivo, RutaArchivo As String NombreArchivo = "Hoja Control " & Hoja10.Cells(I, 102) RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".xlsm" Dim NuevoLibro As Workbook Set NuevoLibro = Workbooks.Add Hoja10.Copy Before:=NuevoLibro.Sheets(1) NuevoLibro.SaveAs Filename:=RutaArchivo NuevoLibro.Close I = I + 1 Wend MsgBox ("Proceso generado con éxito") Application.ScreenUpdating = True End Sub -
Por Israel Cassales · publicado
Por lo que puedo leer la macro se atora aquí: Porque en esa instrucción no le dice donde guardar el libro, una idea es terminar la instrucción algo así: NuevoLibro.SaveAs Filename:=RutaArchivo
-
-
Visualizado recientemente
- No hay usuarios registrado para ver esta página.
Recommended Posts
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.