Notifications
Clear all

alteração de valores dinâmica

1 Posts
1 Usuários
0 Reactions
562 Visualizações
(@gretel)
Posts: 3
New Member
Topic starter
 

tentei de diversas formas e não consegui. Não sou programadora excel então tenho muita dificuldade em desenvolver.
Basicamente estou fazendo um código de folha de ponto e ele ja está quase pronto porém, em uma parte n consigo dinamizar e se eu fizer manualmente vou ter que repetir o código 490 vezes.

preciso que o código se repita por 70 vezes e altere sozinho o valor textbox1 para textbox2, textbox3 e assim por diante até chegar ao 70 e não consigo.
Será que isso é possível?

Private Sub CommandButton1_Click()
 
Dim i As Integer
i = 0


Val_C = "C" & i + 1
Val_A = "A" & i + 1

        
' MESES INICIADOS EM SABADO
If SEMANA.Value = "Sabado" Then


    Call Geracao(TextBox1, "modelo_sab")
          Sheets(TextBox1.Value & "-" & CBO_MES).Range("G1").Value = Sheets("Nomes").Range(Val_C).Value
          Sheets(TextBox1.Value & "-" & CBO_MES).Range("B1").Value = Sheets("Nomes").Range(Val_A).Value
    Call Folha(TextBox1)
    
      i = i + 1
   
End If

Já tentei usar a mesma codificação dos Val_C e Val_A porém dá erro de compilação.

 
Postado : 19/02/2015 1:48 pm