Este fórum está sendo desativado

[jhonathanlv]

Boa tarde, pessoal estou com dificuldade em encontrar um código para transferir os valores colocados em formulário para determinadas células no excel.

A planilha em anexo é um modelo do que eu gostaria de estar fazendo.

Na planilha tenho um userform chamado "simulador", gostaria de um código que possibilita-se estar registrando os valores nele e lançar eles diretamente em células dentro da planilha (células com bordas vermelhas) através do command button "SIMULAR".
Desde já agradeço.

[mprudencio]

Eu fiz para a linha 6 (Região 1).

As demais é so seguir o padrao.

Código: Selecionar todos

Private Sub btnImprimir_Click()

Dim Ws As Worksheet
Set Ws = Planilha1

With Ws

.Range("B6").Value = CdrP1.Value
.Range("C6").Value = ComboBox1.Value
.Range("D6").Value = ComboBox12.Value

'As demais regiões é so seguir o mesmo padrao.









.Range("B18").Value = TextBox25.Value

End With

End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub btnImprimir_Click()
 Dim i As Long
  For i = 1 To 10
   Cells(i + 5, 2) = Me.Controls("CdrP" & i).Value
   Cells(i + 5, 3) = Me.Controls("ComboBox" & i).Value
   Cells(i + 5, 4) = Me.Controls("ComboBox" & 11 + (i * -(i Mod 2 <> 0)) - (i * (i Mod 2 = 0))).Value
  Next i
  [B18] = Me.Controls("TextBox25").Value
End Sub

obs. após testar, para incluir no código os 3 últimos controles do Form (que vão para a Região 11) acerte seus números e passe o valor limite de i de 10 para 11 no código

[jhonathanlv]

Excelente, muito obrigado pela ajuda