hovate

bacter582 respondió: Aquí te dejo una rutina que cree que te puede ayudar Sub copiar_mayor_10k() Dim rango As Range Range("d1").Select While (ActiveCell.Value <> "") ActiveCell.Offset(1, 0).Select If ActiveCell.Value > 10000 Then Set rango = ActiveCell...

elda_vinci respondió: Aquí te dejo el código que debes de poner en la hoja2, (en la hoja que quieres que aparezca los datos ordenados). Si lo pones tal cual cuando abras la hoja2 te borrará todo el contenido que tenga, te copiará lo de la hoja1 y luego te lo ordenará....

hugolaza respondió: Un poco complicado tu pedido. Copia esta rutina en códigos de la Hoja 1 Private Sub Worksheet_Deactivate() Open "c:\tem.txt" For Output As #1 For a = 1 To 51 If Range("B5").Offset(a, 0) <> "" Then b = b + 1 Write #1, Range("B5").Offset(a, 0) End If...

hugolaza respondió: Coloca este ejemplo en un módulo, ejecútalo y observa el resultado: Option Explicit Dim miHoja1, miHoja2 Sub Hoja() miHoja1 = "Hoja1" miHoja2 = "Hoja2" Sheets(miHoja2).Select MsgBox "Estoy en la " & miHoja2 & ". Observa la pestaña de Hojas"...