Pessoal, desejaria imensamente da ajuda de vocês.
Criei um formulário para cadastro de produtos, afim de
salvar dados em até 12 planilhas que são os meses do ano.
Mas quero fazer que esses dados sejam salvos simultaneamente
nas planilhas, conforme o numero de parcelas.
Exemplo:
Se o mês for "JANEIRO", e a quantidade de parcelas for 4,
então os dados serão salvos, nas planilhas "FEVEREIRO, MARÇO, ABRIL, MAIO".
Tentei de varias maneiras, mas só consigo fazer um lançamento por vez, então
peço a vocês que me ajudem em um código que faça isso.
Private Sub btSalvar_Click()
Dim linha, final As Integer
Dim planilha As Worksheet
Set planilha = Sheets("Fevereiro") 'Define o nome da planilha para o qual os dados vão
For linha = 1 To 500
If planilha.Cells(linha, 2) = "" Then
final = linha
Exit For
End If
Next
With UserForm1 'define em quais celulas vão os dados
planilha.Cells(final, 1) = .txtDescricao.Text
planilha.Cells(final, 2) = .cboMes.Text
planilha.Cells(final, 3) = .txtValor.Text
planilha.Cells(final, 4) = .cboParcelas.Text
MsgBox "Registro salvo com sucesso!"
End With
End Sub
Postado : 28/11/2016 7:02 pm