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

Solo tienes que cambiar por esta parte Sub quiebres() Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") u2 = h2.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To 1000 If h1.Cells(i, "G") > 0 Then h1.Cells(i, "A").Copy h2.Cells(u2, "A") h1.Cells(i,...

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

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

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

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

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