nvhpeam

Elsa Matilde respondió: El problema no es el Loop, sino que te falta un End If. Te dejo el bucle mejor presentado para que puedas observar dónde faltan los end if Do While ActiveCell <> "" If ActiveCell.Offset(o, -2).Value = "General Mills" Then ActiveCell.Offset(o,...

calvuch respondió: primero en la columna R debes poner =CONTAR.BLANCO(A1:P1) Esto contara las celdas en blanco entre el rango a1 y p1 (fila) Luego podrías intentar esto Private Sub Worksheet_Change(ByVal Target As Range) If Mid(Target.Address, 2, 1) <> "Q" Then Exit...

solnegro respondió: Pues yo lo he hecho así y me ha funcionado a diferencia de ti yo inicio en la columna c y lo coloco todo en la columna h aun usando fechas y horas Dim Incremento_Fila As Integer Dim duracion, hora As String Dim cadena As String...

Elsa Matilde respondió: ¿Por qué 'obviamente' la fórmula normal de BUSCARV te da error? No tiene porqué, seguramente la estás escribiendo mal. Te dejo 1 ejemplo: Dato en A2 de la Hoja1 Rango en A2:H100 de la Hoja2 Col a devolver: col C (es decir, col 3 del rango) Falso:...

Elsa Matilde respondió: No me queda claro si necesitas colocar en alguna celda la función BUSCARV o necesitas que la macro realice la búsqueda tal como lo haría la función. Aclarame este pto y si es con un ejemplo mejor...

SERGIO CARDOZO PARRA respondió: Eso es mucho código para una tarea que es sencilla, de eso se trata entre más corto y comprensible el código mucho mejor, además se ejecuta más rápido. Prueba con este código. Sub Reporte() If Sheets("Hoja2").[B2] = "" Then [A1].CurrentRegion.Copy...