Grabe una macro de excel pero al momento de correrla se guardo un rango específico, que hago?

Grabe una macro que procesa textos, despues de un eliminado de columnas quedan las columnas de la A ala F, y hay información que se necesita separar, al momento de hacer un filtro de texto con esa información, ya que esta filtrada se hace texto en columnas delimitadas por espacios, pero cuando se quedo guadardo rangos en especifico y esa información siempre cambia, ¿cómo le podría hacer para que sean rangos variables?

Respuesta
1

Deberas definir LastRow y Last Column por ejemplo para que el rango sea variable.

FirstRow = 1
FirstCol = 1
LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, FirstCol).End(xlUp).Row
LC = ActiveSheet.Cells(FirstRow, ActiveSheet.Columns.Count).End(xlToLeft).Column
Base = ActiveSheet.Range(Cells(LR, FirstRow), Cells(FirstCol, LC)).Select

Por favor recuerda valorar la respuestas!

Slds

Juan

¡Gracias! 

Mas o menos en que parte podría poner ese código?

Eso te va a ayudar a definir la ultima fila y columna dinámicamente.

Deberías reemplazar los valores fijos por dinámicos.

Si quieres pásame tu macro y que tiene que hacer y te paso el código depurado

Slds

Sub Macro6()

'

'

'

ActiveCell.FormulaR1C1  = "12345"

Columns("A:A"). Selec

Sub Macro6()

'

' Macro6 Macro

'

'

    ActiveCell.FormulaR1C1 = "12345"

    Columns("A:A").Select

    Selection.Copy

    Range("AF1").Select

    ActiveSheet.Paste

    Range("AF1").Select

    Application.CutCopyMode = False

    Selection.AutoFilter

    Set ws = Sheets(1)

If ws.AutoFilterMode = True Then '//Si hay filtro aplicado lo quita...

ws.AutoFilterMode = False

End If

'//Aplica autofiltro...

ws.Range("$B$2:$D$" & ws.Cells.Rows.Count).AutoFilter Field:=1, Criteria1:=sCriterio, VisibleDropDown:=False

'//Toma rango del Autofiltro

Set Rng = ws.AutoFilter.Range '//Ej: $B$2:$D$13

If Not Rng Is Nothing Then

'//Reduce el rango del Autofiltro (quita encabezado)

'//(toma sólo la primer columna del rango del Autofiltro)

sAdd = Rng.Address

stmp = Split(sAdd, ":")(0) '//$B$2

stmp = Split(stmp, "$")(2) '//2

sFirst = Split(sAdd, "$")(1) '//B

sLast = Split(Cells(, Rng.SpecialCells(xlCellTypeLastCell).Column).Address, "$")(1)

sAdd = Replace(sAdd, sLast, sFirst) '// $B$3:$D$13 -> $B$3:$B$13

sAdd = Replace(sAdd, "$" & sFirst & "$" & stmp, "$" & sFirst & "$" & CStr(CLng(stmp) + 1))

Set Rng = Range(sAdd)

'//Resultado del Autofiltro (filas visibles)

Set h = Rng.SpecialCells(xlCellTypeVisible)

End If

        Field:=1, Criteria1:=Array( _

        "1-CROSS DOCK CULIACAN 748", _

        "Item UPC:            Slot/Door:            Country Code:  MX - Mexico          Grid:            Shipping Lane:" _

        , "Label Information", _

        "Load No:            Trip No:            Destination:            Label Number:" _

        , "Reporting Tool Version #2014.6.29.1200", "Sub Center"), Operator:= _

        xlFilterValues

    Range("AF2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.ClearContents

    Range("AF1").Select

    Selection.AutoFilter

    Columns("AF:AF").Select

    Selection.TextToColumns Destination:=Range("AF1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _

        ), Array(14, 1)), TrailingMinusNumbers:=True

    Columns("AF:AF").Select

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Selection.Delete Shift:=xlToLeft

    Columns("AG:AH").Select

    Selection.Delete Shift:=xlToLeft

    Range("AF2").Select

    Selection.Insert Shift:=xlDown

    Selection.Insert Shift:=xlDown

    Selection.Insert Shift:=xlDown

    Selection.Insert Shift:=xlDown

    Selection.Insert Shift:=xlDown

    Range("A1").Select

    Selection.AutoFilter

    Set ws = Sheets(1)

If ws.AutoFilterMode = True Then '//Si hay filtro aplicado lo quita...

ws.AutoFilterMode = False

End If

'//Aplica autofiltro...

ws.Range("$B$2:$D$" & ws.Cells.Rows.Count).AutoFilter Field:=1, Criteria1:=sCriterio, VisibleDropDown:=False

'//Toma rango del Autofiltro

Set Rng = ws.AutoFilter.Range '//Ej: $B$2:$D$13

If Not Rng Is Nothing Then

'//Reduce el rango del Autofiltro (quita encabezado)

'//(toma sólo la primer columna del rango del Autofiltro)

sAdd = Rng.Address

stmp = Split(sAdd, ":")(0) '//$B$2

stmp = Split(stmp, "$")(2) '//2

sFirst = Split(sAdd, "$")(1) '//B

sLast = Split(Cells(, Rng.SpecialCells(xlCellTypeLastCell).Column).Address, "$")(1)

sAdd = Replace(sAdd, sLast, sFirst) '// $B$3:$D$13 -> $B$3:$B$13

sAdd = Replace(sAdd, "$" & sFirst & "$" & stmp, "$" & sFirst & "$" & CStr(CLng(stmp) + 1))

Set Rng = Range(sAdd)

'//Resultado del Autofiltro (filas visibles)

Set h = Rng.SpecialCells(xlCellTypeVisible)

End If

    .AutoFilter Field:=1, Criteria1:=Array( _

        "Item UPC:            Slot/Door:            Country Code:  MX - Mexico          Grid:            Shipping Lane:" _

        , "Label Information", _

        "Load No:            Trip No:            Destination:            Label Number:" _

        , "Reporting Tool Version #2014.6.29.1200"), Operator:=xlFilterValues

    Range("A2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Delete Shift:=xlUp

    Selection.AutoFilter

    Selection.End(xlUp).Select

    Selection.AutoFilter

   Set ws = Sheets(1)

If ws.AutoFilterMode = True Then '//Si hay filtro aplicado lo quita...

ws.AutoFilterMode = False

End If

'//Aplica autofiltro...

ws.Range("$B$2:$D$" & ws.Cells.Rows.Count).AutoFilter Field:=1, Criteria1:=sCriterio, VisibleDropDown:=False

'//Toma rango del Autofiltro

Set Rng = ws.AutoFilter.Range '//Ej: $B$2:$D$13

If Not Rng Is Nothing Then

'//Reduce el rango del Autofiltro (quita encabezado)

'//(toma sólo la primer columna del rango del Autofiltro)

sAdd = Rng.Address

stmp = Split(sAdd, ":")(0) '//$B$2

stmp = Split(stmp, "$")(2) '//2

sFirst = Split(sAdd, "$")(1) '//B

sLast = Split(Cells(, Rng.SpecialCells(xlCellTypeLastCell).Column).Address, "$")(1)

sAdd = Replace(sAdd, sLast, sFirst) '// $B$3:$D$13 -> $B$3:$B$13

sAdd = Replace(sAdd, "$" & sFirst & "$" & stmp, "$" & sFirst & "$" & CStr(CLng(stmp) + 1))

Set Rng = Range(sAdd)

'//Resultado del Autofiltro (filas visibles)

Set h = Rng.SpecialCells(xlCellTypeVisible)

End If

   .AutoFilter Field:=1, Criteria1:= _

        "=*time*", Operator:=xlAnd

    Range("A2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Delete Shift:=xlUp

    Selection.AutoFilter

    Selection.End(xlUp).Select

    Rows("1:1").Select

    Selection.Delete Shift:=xlUp

    Columns("D:D").Select

    Selection.Delete Shift:=xlToLeft

    Columns("E:E").Select

    Selection.Delete Shift:=xlToLeft

    Columns("I:O").Select

    Selection.Delete Shift:=xlToLeft

    Columns("L:U").Select

    Selection.Delete Shift:=xlToLeft

    Range("A1").Select

    ActiveWindow.SmallScroll Down:=-36

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error en código para columna de una consulta

Un gusto saludarlos. Quería solicitar su ayuda, porque necesito crear una columna calculada dentro de una consulta access y para eso uso el siguiente código. Saldofinal: IIf(([Nivel]=1 Or [Nivel]=5), ([Sumadesaldoinicial]+[Sumadebe]-[Sumahaber]),...
2 respuestas

Optimizar macro para combinar filas

Tengo una macro que acumula valores de filas determinados según columnas similares, funciona bien con una tabla de datos intermedia en cuanto a su tiempo de ejecución, lo que quiero es optimizar esta macro o mejorarla ya que tengo tablas de hasta...
3 respuestas

Como hacer una consulta de access que me arroje suma por niveles de cuenta.

Un gusto saludarlos. Les comento, estoy haciendo un pequeño programa contable para un pequeño negocio que abrí, el asunto es que no se como crear una consulta, que me permita visualizar. 1. La suma por niveles (nivel 1 primer dígito del campo...
3 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
12 respuestas

Liberalizar la memoria después de realizar cálculos

En un formulario ejecuto diferentes instrucciones para cálculos de unos totales que he de traspasar a otro formulario a través de un botón. Estoy teniendo el problema que al finalizar el proceso del calculo, me desaparece la pantalla y no puedo...
3 respuestas

Agregar campos de texto en un formulario en ejecución.

Un gusto saludarlos. Tengo un formulario llamado estudiante que viene de una tabla llamada estudiante. Cada estudiante ve un número diferente de asignaturas y asignaturas diferentes. El formulario arranca con los siguientes Campos número de cédula...
2 respuestas

No me funciona el conector AND en el código visual de acces

Un gusto saludarlos. Quisiera saber cómo puedo hacer para que me funcione el conector AND en el código visual de una base de datos hecha en access. Resulta que empecé a hacer un proyecto, pero cuando dentro de un ciclo if, utilizo la palabra AND el...
3 respuestas

Ordenar listado en excel por numero de tienda

Tengo un listado de productos en excel y en la misma celda viene el numero de la tienda y los totales de cada tienda, pero si tengo más de 100 tiendas quiero agregar una columna donde me diga que tienda es y así poder ordenar mi listado por el número...
1 respuesta

Hacer un nuevo archivo copiando la hoja2 y hoja3 de una lista de nombres que están en la hoja1.

En la hoja1 tengo una lista de nombres y quiero copiar la hoja=evaluación y hoja=metas a un nuevo libro con el nombre de la lista de la hoja1 las dos hojas en el mismo nuevo libro.
1 respuesta

Tengo una macro , que necesita que de una lista de alumnos

Imprime un informe de un alumno en particular, necesito que el usuario digite un numero y luego siga con los pasos siguientes, es decir que imprima el usuario seleccionado . ¿Cómo puedo pausar una macro?
2 respuestas