Isaac Reyes

H0la Carlos: Te felicito por intentar resolver el asunto por tus medios. En vista que el grabador de macros no es lo más óptimo, te sugiero la siguiente macro para tu caso Sub copiar() 'Por GP' 'Copiar datos' Range("D8:D100").Value =...

H0la Diego: A ver si esto te es útil. Sub llenar() 'Por GP' Dim lngFilaIni As Long, lngFilaFin As Long Dim lngColIni As Long, lngColFin As Long Dim i As Long, j As Long, k As Long, l As Long lngFilaIni = 2 lngFilaFin = 28 lngColIni = 4 lngColFin = 24...

Esteban, intenta con esto. Sub subCosto() Dim lngC As Long, lngF As Long lngC = 1 'Inicializar columna del recorrido' lngF = Cells(1, lngC).CurrentRegion.Rows.Count + 1 'Obtener fila en que irán los resultados' 'Recorrer la fila 1 hasta encontrar una...

H0la Ignacio: Cuando borras el contenido del cuadro de texto el valor del ListIndex es -1 por lo tanto, si caes en este cas, estarías tratando de seleccionar la celda Cells(0,1), lo más probable es que eso sea el error. Revísalo y si no val por ahí,...

H0la Byron: ¿Qué harás en caso de que dos documentos tengan las misma iniciales? S@lu2

H0la Esteban: Supongamos lo siuiente En las columnas A a J tienes tu base de datos (encabezado A B C D E F G H I J).En el rango L1:O1 tienes las condiciones Tus resultados se arrojarán de L10 en adelante. Lo que debes hacer es en el rango L10:Q10...

H0la Fernando: No es complicado lo que pides, así que te voy a orientar un poco. Lo que debes hacer es un bucle que te lleve hasta el final de tu tabla, hay varias formas de hacerlo, pero te sugiero un "Do Until" que itere hasta que encuentre una...

H0la Yeison: Prueba con esto (Nombre_hoja es el nombre de la hoja en la que deseas eliminar filas vacías) Sub EliminarVacios() 'Por GP' i = 4 'Número de la fila en que comienza a buscar' fin = Sheets("Nombre_hoja").UsedRange.Rows.Count Do Until (i >...

Sin ir en desmedro de lo indicado por Carlos, si quieres seleccionar una hoja antes de cerrar, en la sección de código de ThisWorkbook agrega este código Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Nombre_hoja").Select If...

H0la Abdel: ¿Cuál es el problema? ¿No sabes cómo hacer la comparación o la haces pero no obtienes los resultados esperados? S@lu2