1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Dúvida sobre VBA! Help!!!!!

Discussão em 'Programação' iniciada por Sahara, 31 de Janeiro de 2009. (Respostas: 0; Visualizações: 459)

  1. Olá, estou com um problema em relação a uma macro que estou a tentar alterar, porque pretendo aumentar os campos no excel, e por isso mesmo tb tenho de aumentar os campos no VBA, mas não percebo a lógica que o programador quis dar, portanto não sei que continuidade dar.
    [​IMG][​IMG][​IMG]:arrow:

    o While PDO <> ""
    nUH = ActiveSheet.Cells(rowIndex, "D").Value
    nUHLigadas = 0
    TotS32_1 = 0
    TotS32_2 = 0
    TotS32_3 = 0
    TotS32_4 = 0
    TotS32_5 = 0
    TotS32_6 = 0
    TotS32_7 = 0
    TotS32_8 = 0
    TotS32_9 = 0
    TotS8_1 = 0
    TotS8_2 = 0
    TotS8_3 = 0
    TotS8_4 = 0
    TotS8_5 = 0
    TotS8_6 = 0
    TotS4_1 = 0
    TotS4_2 = 0
    TotS4_3 = 0
    TotS4_4 = 0
    TotS4_5 = 0
    TotS4_6 = 0

    Do While nUHLigadas < ((nUH - 1) / 2) And (TotS32_1 < 32 Or TotS32_2 < 32 Or TotS32_3 < 32 Or TotS32_4 < 32 Or TotS32_5 < 32 Or TotS32_6 < 32 Or TotS32_7 < 32 Or TotS32_8 < 32 Or TotS32_9 < 32)
    If TotS32_1 <= TotS32_2 And TotS32_1 <= TotS32_3 And TotS32_1 < 32 Then
    S32_1 = S32_1 + 1
    TotS32_1 = TotS32_1 + 1
    nUHLigadas = nUHLigadas + 1
    ElseIf TotS32_2 <= TotS32_1 And TotS32_2 <= TotS32_3 And TotS32_2 < 32 Then
    S32_2 = S32_2 + 1
    TotS32_2 = TotS32_2 + 1
    nUHLigadas = nUHLigadas + 1
    ElseIf TotS32_3 <= TotS32_2 And TotS32_3 <= TotS32_1 And TotS32_3 < 32 Then
    S32_3 = S32_3 + 1
    TotS32_3 = TotS32_3 + 1
    nUHLigadas = nUHLigadas + 1




    HELP!!!! [​IMG] [​IMG] [​IMG]
     

Partilhar esta Página