Cecilio Pérez Maqueda

Si te refieres a macro ubica en la parte del pegado(paste) y modifica por esto PasteSpecial Paste:=xlPasteValues

De haberte entendido Sub traslado_y_elimino() Range("a65000").End(xlUp).Offset(1, 0).Value = "end" Range("A1").Select Do While ActiveCell.Value <> "end" If ActiveCell.Value = "valor" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then MED = Len(Range("A1")) If MED >= 18 Then MsgBox MED & " " & "Largo igual o mayor de 18 caracteres" Else MsgBox MED & " " & "Largo menor de 18 caracteres" End If End...

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...

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 =...

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