Visual Basic - Error en tipo de ejecucion nº 13

Life is soft - evento anual de software empresarial
   
Vista:

Error en tipo de ejecucion nº 13

Publicado por Darra (1 intervención) el 17/12/2009 16:51:03
filaPenetracion = 8
While (Cells(filaPenetracion, 4).Value <> "") Aqui me marca el erro, pero no lo puedo cambiar

formatoGeneral = Cells(filaPenetracion, 4).NumberFormat
Cells(filaPenetracion, 4).NumberFormat = "general"

If (CDbl(Cells(filaPenetracion, 4).Value) < 0.35) Then
'Formateo la columna
Range("D" & CStr(filaPenetracion)).Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If

Cells(filaPenetracion, 4).NumberFormat = formatoGeneral

filaPenetracion = filaPenetracion + 1
Wend

Sheets("Datos").Select
Sheets("TapaRepresentantes").Range("A" & CStr(intPosicionPagina + intContadorJefes + 17 - 5)).Cells(1, 1).Value = Range("B" & CStr(intPosicionPagina)).Columns.Cells(1, 1).Value
Sheets("TapaRepresentantes").Range("B" & CStr(intPosicionPagina + intContadorJefes + 17 - 5)).Cells(1, 1).Value = "_______________________________"
Sheets("TapaRepresentantes").Range("C" & CStr(intPosicionPagina + intContadorJefes + 17 - 5)).Cells(1, 1).Value = "_______________________________"
Sheets("TapaRepresentantes").Range("D" & CStr(intPosicionPagina + intContadorJefes + 17 - 5)).Cells(1, 1).Value = "5." & CStr(intContadorJefes)
End If

Sheets("Datos").Select

Sheets("TapaRepresentantes").Range("B" & CStr(intPosicionPagina + intContadorJefes + 18 - 5)).Cells(1, 1).Value = Range("A" & CStr(intPosicionPagina)).Columns.Cells(1, 1).Value
Sheets("TapaRepresentantes").Range("C" & CStr(intPosicionPagina + intContadorJefes + 18 - 5)).Cells(1, 1).Value = "_______________________________"
Sheets("TapaRepresentantes").Range("D" & CStr(intPosicionPagina + intContadorJefes + 18 - 5)).Cells(1, 1).Value = "5." & CStr(intContadorJefes) & "." & CStr(intContadorAPMs)

intPosicionPagina = intPosicionPagina + 1
Next cell

' -------------- Ordeno por APM
Range("A4").Select
ActiveWorkbook.Worksheets("Datos").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Datos").Sort.SortFields.Add Key:=Range("A5:A" & CStr(intPuntero - 1)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Datos").Sort.SortFields.Add Key:=Range("B5:B" & CStr(intPuntero - 1)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Datos").Sort
.SetRange Range("A4:M" & CStr(intPuntero - 1))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'Genero el PDF

Sheets("Datos").Visible = False
Sheets("Template TapaTopManager").Visible = False
Sheets("Template Indice").Visible = False
Sheets("Template Resumen").Visible = False
Sheets("Template PatronDeConsumo").Visible = False
Sheets("Template ResultadosTotales").Visible = False
Sheets("Template TapaRepresentantes").Visible = False
Sheets("Template Jefes").Visible = False

'ActiveWorkbook.PrintOut Copies:=1

'Muestro el sheet de datos
Sheets("Datos").Visible = True

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder