oskrkun

Dante Amor respondió: Te falta hacer referencia a la hoja donde vas a pegar: Dim filaDondeCopiar As Integer: filaDondeCopiar = 13 For f = 7 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row If Cells(f, 23).Value <> "Ok" Then With LibroDestino.Sheets("Hoja1")...

Solución parte de las validación que este bien completada la planilla Private Sub CommandButton1_Click() 'Fila Columna Cells(1,1) Dim colFechaF As Integer: colFechaF = 14 Dim colFechaE As Integer: colFechaE = 13 Dim colFechaC As Integer: colFechaC =...