Depuração Estranha do Código

[adriano944]

Pessoal

Estou com um problema aqui muito estranho para mim, mas acho que para vocês nem é tão estranho...

O que está ocorrendo é o seguinte, eu tenho uma rotina, que realiza dversos calculos, e um deles e preencher em uma guia algumas informações para alimentar um grafico. O problema é o seguinte. Qando eu executo a rotina inteira sem pausas e nem nada, quando chega na parte do grafico algumas celulas ficam em branco, porem quando executo somente a parte do grafico, todas as celulas são preenchidas normalmente.

Segue abaixo o codigo que insere as iformações no gráfico.

Sub Contagem_Inicial()

Dim A3270, A3310, A3260, A3701, A2234 As String

Dim N3270, N3310, N3260, N3701, N2234 As String

Dim F3270, F3310, F3260, F3701, F2234 As String

Dim U3270, U3310, U3260, U3701, U2234 As String

Dim ligado3270, ligado3310, ligado3701, ligado2234, ligado3260 As String

Dim nligado3270, nligado3310, nligado3701, nligado2234, nligado3260 As String

A3270 = 0

A3310 = 0

A3260 = 0

A3701 = 0

A2234 = 0

N3270 = 0

N3310 = 0

N3260 = 0

N3701 = 0

N2234 = 0

F3270 = 0

F3310 = 0

F3260 = 0

F3701 = 0

F2234 = 0

U3270 = 0

U3310 = 0

U3260 = 0

U3701 = 0

U2234 = 0

ligado3270 = 0

ligado3310 = 0

ligado3701 = 0

ligado2234 = 0

ligado3260 = 0

nligado3270 = 0

nligado3310 = 0

nligado3701 = 0

nligado2234 = 0

nligado3260 = 0

Sheets("Desenhos Novos").Select

For i = 2 To ActiveSheet.UsedRange.Rows.Count

If ActiveSheet.Cells(i, 1) <> "" Then

If Cells(i, 4) = "3270" Then

If ActiveSheet.Cells(i, 21) = "S" Then

ligado3270 = ligado3270 + 1

ElseIf ActiveSheet.Cells(i, 21) = "N" Then

nligado3270 = nligado3270 + 1

End If

If ActiveSheet.Cells(i, 14) = "A" Then

A3270 = A3270 + 1

ElseIf ActiveSheet.Cells(i, 14) = "U" Then

U3270 = U3270 + 1

ElseIf ActiveSheet.Cells(i, 14) = "F" Then

F3270 = F3270 + 1

ElseIf ActiveSheet.Cells(i, 14) = "N" Then

N3270 = N3270 + 1

End If

ElseIf Cells(i, 4) = "3310" Then

If ActiveSheet.Cells(i, 21) = "S" Then

ligado3310 = ligado3310 + 1

ElseIf ActiveSheet.Cells(i, 21) = "N" Then

nligado3310 = nligado3310 + 1

End If

If ActiveSheet.Cells(i, 14) = "A" Then

A3310 = A3310 + 1

ElseIf ActiveSheet.Cells(i, 14) = "U" Then

U3310 = U3310 + 1

ElseIf ActiveSheet.Cells(i, 14) = "F" Then

F3310 = F3310 + 1

ElseIf ActiveSheet.Cells(i, 14) = "N" Then

N3310 = N3310 + 1

End If

ElseIf Cells(i, 4) = "3260" Then

If ActiveSheet.Cells(i, 21) = "S" Then

ligado3260 = ligado3260 + 1

ElseIf ActiveSheet.Cells(i, 21) = "N" Then

nligado3260 = nligado3260 + 1

End If

If ActiveSheet.Cells(i, 14) = "A" Then

A3260 = A3260 + 1

ElseIf ActiveSheet.Cells(i, 14) = "U" Then

U3260 = U3260 + 1

ElseIf ActiveSheet.Cells(i, 14) = "F" Then

F3260 = F3260 + 1

ElseIf ActiveSheet.Cells(i, 14) = "N" Then

N3260 = N3260 + 1

End If

ElseIf Cells(i, 4) = "2234" Then

If ActiveSheet.Cells(i, 21) = "S" Then

ligado2234 = ligado2234 + 1

ElseIf ActiveSheet.Cells(i, 21) = "N" Then

nligado2234 = nligado2234 + 1

End If

If ActiveSheet.Cells(i, 14) = "A" Then

A2234 = A2234 + 1

ElseIf ActiveSheet.Cells(i, 14) = "U" Then

U2234 = U2234 + 1

ElseIf ActiveSheet.Cells(i, 14) = "F" Then

F2234 = F2234 + 1

ElseIf ActiveSheet.Cells(i, 14) = "N" Then

N2234 = N2234 + 1

End If

ElseIf Cells(i, 4) = "3701" Then

If ActiveSheet.Cells(i, 21) = "S" Then

ligado3701 = ligado3701 + 1

ElseIf ActiveSheet.Cells(i, 21) = "N" Then

nligado3701 = nligado3701 + 1

End If

If ActiveSheet.Cells(i, 14) = "A" Then

A3701 = A3701 + 1

ElseIf ActiveSheet.Cells(i, 14) = "U" Then

U3701 = U3701 + 1

ElseIf ActiveSheet.Cells(i, 14) = "F" Then

F3701 = F3701 + 1

ElseIf ActiveSheet.Cells(i, 14) = "N" Then

N3701 = N3701 + 1

End If

End If

End If

Next

Dim qntdescda, qntdessda, qnttotal As String

qntdescda = 0

qntdessda = 0

qnttotal = 0

lin = 41

ncol = Sheets(grf3270).Cells(50, 1)

Sheets(grf3270).Select

qntdescda = Sheets(prin).Cells(8, 5)

qntdessda = Sheets(prin).Cells(8, 6)

qnttotal = qntdescda + qntdessda

Sheets(grf3270).Cells(lin, ncol) = qnttotal

Sheets(grf3270).Cells(lin + 1, ncol) = qntdescda

Sheets(grf3270).Cells(lin + 2, ncol) = qntdessda

Sheets(grf3270).Cells(lin + 3, ncol) = ligado3270

Sheets(grf3270).Cells(lin + 4, ncol) = nligado3270

Sheets(grf3270).Cells(lin + 5, ncol) = U3270

Sheets(grf3270).Cells(lin + 6, ncol) = A3270

Sheets(grf3270).Cells(lin + 7, ncol) = F3270

Sheets(grf3270).Cells(lin + 8, ncol) = N3270

qntdescda = 0

qntdessda = 0

qnttotal = 0

qntdescda = Sheets(prin).Cells(9, 5)

qntdessda = Sheets(prin).Cells(9, 6)

qnttotal = qntdescda + qntdessda

Sheets(grf3701).Select

Sheets(grf3701).Cells(lin, ncol) = qnttotal

Sheets(grf3701).Cells(lin + 1, ncol) = qntdescda

Sheets(grf3701).Cells(lin + 2, ncol) = qntdessda

Sheets(grf3701).Cells(lin + 3, ncol) = ligado3701

Sheets(grf3701).Cells(lin + 4, ncol) = nligado3701

Sheets(grf3701).Cells(lin + 5, ncol) = U3701

Sheets(grf3701).Cells(lin + 6, ncol) = A3701

Sheets(grf3701).Cells(lin + 7, ncol) = F3701

Sheets(grf3701).Cells(lin + 8, ncol) = N3701

qntdescda = 0

qntdessda = 0

qnttotal = 0

qntdescda = Sheets(prin).Cells(12, 5)

qntdessda = Sheets(prin).Cells(12, 6)

qnttotal = qntdescda + qntdessda

Sheets(grf3260).Select

Sheets(grf3260).Cells(lin, ncol) = qnttotal

Sheets(grf3260).Cells(lin + 1, ncol) = qntdescda

Sheets(grf3260).Cells(lin + 2, ncol) = qntdessda

Sheets(grf3260).Cells(lin + 3, ncol) = ligado3260

Sheets(grf3260).Cells(lin + 4, ncol) = nligado3260

Sheets(grf3260).Cells(lin + 5, ncol) = U3260

Sheets(grf3260).Cells(lin + 6, ncol) = A3260

Sheets(grf3260).Cells(lin + 7, ncol) = F3260

Sheets(grf3260).Cells(lin + 8, ncol) = N3260

qntdescda = 0

qntdessda = 0

qnttotal = 0

qntdescda = Sheets(prin).Cells(11, 5)

qntdessda = Sheets(prin).Cells(11, 6)

qnttotal = qntdescda + qntdessda

Sheets(grf2234).Select

Sheets(grf2234).Cells(lin, ncol) = qnttotal

Sheets(grf2234).Cells(lin + 1, ncol) = qntdescda

Sheets(grf2234).Cells(lin + 2, ncol) = qntdessda

Sheets(grf2234).Cells(lin + 3, ncol) = ligado2234

Sheets(grf2234).Cells(lin + 4, ncol) = nligado2234

Sheets(grf2234).Cells(lin + 5, ncol) = U2234

Sheets(grf2234).Cells(lin + 6, ncol) = A2234

Sheets(grf2234).Cells(lin + 7, ncol) = F2234

Sheets(grf2234).Cells(lin + 8, ncol) = N2234

qntdescda = 0

qntdessda = 0

qnttotal = 0

qntdescda = Sheets(prin).Cells(10, 5)

qntdessda = Sheets(prin).Cells(10, 6)

qnttotal = qntdescda + qntdessda

Sheets(grf3310).Select

Sheets(grf3310).Cells(lin, ncol) = qnttotal

Sheets(grf3310).Cells(lin + 1, ncol) = qntdescda

Sheets(grf3310).Cells(lin + 2, ncol) = qntdessda

Sheets(grf3310).Cells(lin + 3, ncol) = ligado3310

Sheets(grf3310).Cells(lin + 4, ncol) = nligado3310

Sheets(grf3310).Cells(lin + 5, ncol) = U3310

Sheets(grf3310).Cells(lin + 6, ncol) = A3310

Sheets(grf3310).Cells(lin + 7, ncol) = F3310

Sheets(grf3310).Cells(lin + 8, ncol) = N3310

End Sub

Conto com a ajuda de todos..para me ajudarem mais uma vez.