juan tapia

Adriel Ortiz Mangia respondió: [Hola Sube tu archivo y explica resaltando con colores los procesos a realizar

Adriel Ortiz Mangia respondió: [Hola valora la respuesta para finalizar Sub copia_elimina() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 ' For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 28 Step -1 If h1.Cells(i, "B") <>...

Elsa Matilde respondió: Entra al Editor, selecciona desde el panel a tu izquierda el objeto HOJA1 y allí copia este código: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'x Elsamatilde 'se controla la selección en col B a partir de fila 2...AJUSTAR If...