Cecilio Pérez Maqueda

Sin filtro seria Sub OCULTAR() Range("A2").Activate While ActiveCell.Value <> "" If ActiveCell.Value Like "*TRANSPORTE*" Then ActiveCell.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Activate Wend End Sub Para volver a mostrar Sub mostrar()...

A ver intenta en la parte del paste y me comentas Range("B2").Select ActiveSheet.PasteSpecial Paste:=xlPasteValues

Esta podría ser una de las tantas formas que puedes usar con while activecell.value<> " " Wend O Do while activecell.value<>" " if activecell.offset.value <> " " then Range(activecell.offset(0,-3), activecell.offset(0,54)).copy...

Te adjunte a tu correo el archivo.

Sub suma_incre() Set l1 = ThisWorkbook Set h1 = l1.Sheets("PC") For i = 3 To h1.Range("R" & Rows.Count).End(xlUp).Row dato = h1.Cells(i, "R") If Cells(i, "R") = "nuevo" And Cells(i, "s") = "incremento" Then h1.Cells(i, "U") = "1" Else h1.Cells(i,...

En mi propia experiencia yo lo uso en excel y lo que hice fue entrar al formulario con alt+F11 Y Realice el cambio de mes con las flechitas en la parte superior y guarde los cambio, ejecute mi macro y me respeta el mes que elegí al editarlo con ALF+f11

A ver cambiale el código de tu rutina sub copier() por esta otra (ejecutalo en tu hoja "Fx Deals Transacted" Sub CopiandoHaciaOtrasHojas() Final = Cells(Application.Rows.Count, 1).End(xlUp).Row For i = 4 To Final Thish = Cells(i, 21) fila =...

Otra opción sería =SUMAPRODUCTO(CONSULTAV("Agosto",Hoja1!$C$4:$K$15,{2;3;4;5;6;7;8;9},FALSO)) en este ejemplo con los corchetes indicas que quieres que te traiga las columnas {2;3;4;5;6;7;8;9}, abres y cierras corchetes Valor buscado:Agosto...

Para la columna "A" Range("A4).select Do While Activecell.value<>"" Aquí iría las instrucciones que desea que se ejecute mientras sea diferente a nada/espacios

Supongamos que en la columna B tienes los ceros Sub ocultarfilas() Range("B11").Activate While ActiveCell.Row <> "" If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Hidden = True End If ActiveCell. Offset(1, 0). Activate Wend