Hola, tengo un formulario en el que quiero ponerle una macro que me permita eliminar filas por un valor dado en una celda pero la macro estará en una hoja y dónde está el dato a eliminar es otra hoja, vi ejemplos pero lo hacen en una misma hoja. Podrías ayudarme?
@LosVlogsDeWanda4 жыл бұрын
Estimado Eddy Liberato, Sub Eliminar_Filas() Dim i As Integer, nfilas As Integer col = InputBox("columna del criterio") criterio = InputBox("criterio") Sheets("Hoja1").Select nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count valor = criterio Application.ScreenUpdating = False For i = nfilas To 1 Step -1 If LCase(Sheets("Hoja1").Cells(i, col)) = LCase(valor) Then Rows(i).Delete End If Next Application.ScreenUpdating = True Sheets("Hoja2").Select MsgBox "Se elimino el registro relacionado con " & criterio End Sub Espero te sirva, Saludos
@eddyliberato24554 жыл бұрын
Ok, gracias Probaré cuando esté en mi escritorio y le dejo saber.