Error en macro con tabla dinamica

Ok te explico el problema hice una macro donde se genera una tabla dinamica en el lugar de pagina de la tabla dinamica utilizo una variable que la da el usuario por medio de un inputbox le solicita el dato pero como la variable es numerica puede que el usuario meta en la variable un dato que no exista en la base de donde se genera la tabladinamica entonces marca este error
"no se puede asignar la propiedad _default de la clase pivotitem"
Ya la variable no existe en la base de donde se genera la tabla dinamica
se puede hacer con un if o con otra cosa que cuando marque ese error regrese al principio o termine la macro?

1 Respuesta

Respuesta
1
Has Esto
Sub MyMacro ()
On Error GoTo ErrHandler
Aqui inicia el procedimiento que tu tienes.
Precedimiento
Aqui termina el Procedimiento que tu tienes
Exit Sub
Errhandler:
MsgBox ("Ha Ocurrido Un Error En La Ejecucion de la Macro y ha Finalizado")
End Sub
Suerte
pues no fuciono o no se endonde pegar ese codigo pero mejor te doy mi codigo para ver si me puedes decir exactamente donde pegar ese codigo gracias
Sub Por_TIENDA()
' VARIABLES
Dim t As Integer
Dim col As Integer
Dim reng As Integer
Dim Codigo As String
' ACTUALIZACION DE REGISTROS
Sheets("Base").Select
col = 1 ' Columna donde quieres contar los renglones
lastrow = Cells(65536, col).End(xlUp).Row
On Error Resume Next ' Si no hay vacias continua
t = Range(Cells(1, col), Cells(lastrow, col)).SpecialCells(xlCellTypeBlanks).Cells.Count
'nohay:
On Error GoTo 0 'ahora si hay error detente
reng = lastrow - t 'Restas el ultimo renglon menos los vacios
'Reng tiene cuantos renglones no vacios en la columna "col"
MsgBox "# de Filas " & (reng - 1)
'PEGA EL FORMATO
Range("O1").Select
ActiveCell.FormulaR1C1 = "Formato"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],Cat_Suc!C[-14]:C[-11],4,0)"
Selection.AutoFill Destination:=Range("o2: o" & reng)
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Codigo = InputBox("Introduzca el No de Tienda")
Sheets("Tabla").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("Base").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Base!R1C1:R" & reng & "C15").CreatePivotTable TableDestination:= _
"'[Herramienta de Ventas Graficas.xls]Tabla'!R1C1", TableName:="Tabla dinámica1" _
, DefaultVersion:=xlPivotTableVersion10
Sheets("Tabla").Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("fecha")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Desc_suc")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("Venta Total (Unidades)"), _
"Suma de Venta Total (Unidades)", xlSum
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Sucursal")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Sucursal").CurrentPage _
= Codigo '(aqui es donde me marca el error "no se puede asignar la propiedad _default de la clase pivotitem."
Range("A4").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Tabla").Range("A4")
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.PlotArea.Select
ActiveChart.ChartType = xlLineMarkers
'FORMATO DE TABLA DINAMICA
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlAutomatic
.Smooth = True
.MarkerSize = 7
.Shadow = False
End With
With ActiveChart.ChartGroups(1)
.HasDropLines = False
.HasHiLoLines = False
.HasUpDownBars = False
.VaryByCategories = False
End With
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlNone, _
Type:=xlFixedValue, Amount:=0.5
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionAbove
.Orientation = xlHorizontal
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 2
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End Sub
Sub Por_TIENDA()
On Error GoTo ErrHandler   ' LINEA INCLUIDA
' VARIABLES
Dim t As Integer
Dim col As Integer
Dim reng As Integer
Dim Codigo As String
' ACTUALIZACION DE REGISTROS
Sheets("Base").Select
col = 1 ' Columna donde quieres contar los renglones
lastrow = Cells(65536, col).End(xlUp).Row
On Error Resume Next ' Si no hay vacias continua
t = Range(Cells(1, col), Cells(lastrow, col)). SpecialCells(xlCellTypeBlanks). Cells. Count
'nohay:
On Error GoTo 0 'ahora si hay error detente
reng = lastrow - t 'Restas el ultimo renglon menos los vacios
'Reng tiene cuantos renglones no vacios en la columna "col"
MsgBox "# de Filas " & (reng - 1)
'PEGA EL FORMATO
Range("O1").Select
ActiveCell.FormulaR1C1 = "Formato"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],Cat_Suc!C[-14]:C[-11],4,0)"
Selection.AutoFill Destination:=Range("o2: o" & reng)
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Codigo = InputBox("Introduzca el No de Tienda")
Sheets("Tabla").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("Base").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Base!R1C1:R" & reng & "C15").CreatePivotTable TableDestination:= _
"'[Herramienta de Ventas Graficas.xls]Tabla'!R1C1", TableName:="Tabla dinámica1" _
, DefaultVersion:=xlPivotTableVersion10
Sheets("Tabla").Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("fecha")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Desc_suc")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields("Venta Total (Unidades)"), _
"Suma de Venta Total (Unidades)", xlSum
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Sucursal")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Sucursal").CurrentPage _
= Codigo '(aqui es donde me marca el error "no se puede asignar la propiedad _default de la clase pivotitem."
Range("A4").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Tabla").Range("A4")
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.PlotArea.Select
ActiveChart.ChartType = xlLineMarkers
'FORMATO DE TABLA DINAMICA
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 57
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlAutomatic
.Smooth = True
.MarkerSize = 7
.Shadow = False
End With
With ActiveChart.ChartGroups(1)
.HasDropLines = False
.HasHiLoLines = False
.HasUpDownBars = False
.VaryByCategories = False
End With
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlNone, _
Type:=xlFixedValue, Amount:=0.5
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionAbove
.Orientation = xlHorizontal
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 2
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
Exit Sub ' LINEA INCLUIDA
ErrHandler   'LINEA INCLUIDA
MsgBox(" Ha ocurrido un Erroren la ejecucion de su macro, y esta ha finalizado")   
End Sub
ijoles no mas no funcion no se si la macro no respete el On Error GoTo por se error 1004 de tiempo de ejecucion
gracias
Lo he probado con codigos propios y esta funcionando..
Si quieres mandame copia de tu archovo para analizarlo haber si lo podemos adaptar
[email protected]
Estima do experto muchas gracias por tu respuesta estubo muy bien y me sirvio de mucho eso lo que dijiste era correcto solo lo tube que acondicionar a mi macro y esta perfecto ya funcion mychas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Como hacer una macro que cree una tabla dinámica

Tengo un problema con una macro que grabe que me crea una tabla dinámica, me daba error 5, entre al foro donde indicaban que era fallas de microsoft, que debía modificar un poco el código, cosa que hice, pero ahora me da un error diferente, 1004...
1 respuesta

Filtro en Tabla dinámica con referencia a un Rango

Quiero saber si me puedes ayudar en lo siguiente, trato de hacer una macro que me filtre una tabla dinámica pero para que me haga dicho filtro quiero que tome los datos que tengo en un rango de datos y que solo me mustre esos y todos los demás no, no...
1 respuesta

Macro grabada que crea tabla dinámica

He intentado grabar en excel una macro que crea una tabla dinámica de una base de datos en el mismo excel pero al ejecutarla manda el error 5 en tiempo de ejecución SIEMPRE, ya busque en la página de Microsoft donde dicen como retocar el código para...
1 respuesta

Tabla dinámica en macro

Tengo inconvenientes en el funcionamiento de una macro que utilizo y que paso a comentarte Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinámica. La cantidad de registros se incrementa mes a mes y...
1 respuesta

Macro crea tabla dinámica

De la manera más amable solicito ayuda para crear una macro que me haga una tabla dinámica en uan hoja especifica. Lo que ocurre es que he intentado con unos códigos visto en internet y aquí en este mismo foro pero no me han servido me sale un error...
1 respuesta

Ubicacion de los graficos via macro

Tengo un pequeño problema para la creación de gráficos. Y es básicamente respecto a la posición de mismo, y a veces en cuanto a sus dimensiones: Con la grabadora obtuve el código que adjunto al final, la idea es la siguiente: Tengo una tabla un botón...
1 respuesta

Crear tabla dinámica con rango de datos variable

Debo crear una tabla dinámica que en la celda Z9, que tenga como Filtro del informe:"Type"; como Etiquetas de fila: "Pozo", "BHA No.", "Assembly name" y en sumatoria de valores "Suma de Lenght" y "Máx. De MD out". El rango de datos para crear la...
1 respuesta

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
1 respuesta

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta