Cecilio Pérez Maqueda

Te paso un ejemplo muy sencillo, puedes adaptarlo fácilmente a tus necesidades Sub quieres() 'by Cecilio Perez maqueda Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("contabilidad") Dim Hd As Worksheet: Set Hd =...

¿No veo la suma que mencionas en tu consulta? ¿O sea que en Range("O7") quieres el resultado de la resta de K7 - m7?

Desarrollé esta macro y te copia los formatos, puedes Sub quiebres() Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("Hoja1") Dim Hd As Worksheet: Set Hd = wb.Sheets("Hoja2") Dim ucel 'ucel = Hd.Range("A" &...

Te paso un ejemplo, lo que está entre paréntesis son las variables que tienes que adaptar, si te das cuenta lleva comillas, por que en tu planteamiento que haces en "hoja1, te falta cerrar comillas, checa que primero va el nombre del libro y luego el...

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

Selecciona toda la columna y oprimir al mismo tiempo la tecla CTRL y la tecla +

Ya probaste la opción en el menú Datos/editar Vinculos/cambiar origen?

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