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