Ronaldo Martinez

Marcos Vela respondió: Puedes dar más información de favor, no entiendo muy bien que quieres. Ahí estas copiando de la celda"a" a la "m"

Dante Amor respondió: Anexo la macro actualizada, realiza tus pruebas y me comentas. Sub CortarPendientes() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("escuela") Set h2 = Sheets("pendientes") ' col = "A" 'columna conn datos ' u = h2.Range(col &...

Elsa Matilde respondió: Te dejo la macro que necesitas. Solo debes ajustar el nombre de tu hoja. Sub MacroOrdena() 'x Elsamatilde 'definir la hoja y rango utilizado ho = "Resumen" rgo = ActiveSheet.UsedRange.Address Sheets(ho).Select Cells.Select...

Dante Amor respondió: No me queda clara la explicación: Dices: "cuando encuentra en la columna un estatus de Extraordinario quiero que de esa fila que me va a cortar me busque en la columna O el numero de cuenta y busque en toda la hoja si existe el folio" Entiendo lo...

Dante Amor respondió: Te anexo la macro para copiar, pegar y cortar. No comentaste a cuál hoja se debe ir el segundo bloque, así que también lo envié a la hoja "pendientes" Sub CortarPendientes() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 =...

Dante Amor respondió: Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Columns("B")) Is Nothing Then If UCase(Target) = "SI" Then Call macro End If End If End Sub