omar gonzalez gonzalez

Dantte Black respondió: Prueba con esto para obtener los datos, analiza el código, debes adaptarlo, puesto que desconozco la estructura de la Hoja Imprimir. Dim h1 As Worksheets Dim Ult_Reg As Integer 'En caso de que la Hoja se encuentre Nombrada, exactamente como el Item...

Gustavo Movilla respondió: Si en A1:A26 tienes las letras de la A a la Z, puedes probar con esto: =INDICE($A$1:$A$27;ENTERO(ALEATORIO()*27)) Esto te daría una letra por cada celda, con lo que tendrías que copiar la formula 6 veces hacia abajo y, después, en otra celda...

Dante Amor respondió: Pon la siguiente fórmula en la celda B1 =SI.ERROR(SI(ENCONTRAR("x t -60 %",A1)>0,"SI", ""), "") copia o arrastra la fórmula hacia abajo. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Dante Amor respondió: Te anexo la macro Sub Sumar() 'Por.Dante Amor u = Range("F" & Rows.Count).End(xlUp).Row If u < 6 Then u = 6 Range("F" & u + 1) = WorksheetFunction.Sum(Range("F6:F" & u)) End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias