Instale o código abaixo no módulo do Userform1
'módulo do UserForm1
Private Sub CommandButton1_Click()
Dim k As Long, m As Long, c As Long
k = Range("C21:C400").SpecialCells(xlCellTypeVisible).Find(cmb_grupo.Value, lookat:=xlWhole).Row
c = Cells(k, 3).Offset(2, 1).Resize(, 45).Find(cmb_mes.Value, lookat:=xlWhole).Column
m = Range("C21:C400").Find(cmb_item.Value, lookat:=xlWhole, after:=Cells(k, 3)).Row
Cells(m, c).Value = Cells(m, c).Value + CDbl(txt_valor.Value)
End Sub
E instale o código abaixo no módulo do UserForm2
'módulo do UserForm2
Private Sub CommandButton1_Click()
Dim k As Long, m As Long, c As Long
k = Range("C21:C400").SpecialCells(xlCellTypeVisible).Find(cmb_grupo.Value, lookat:=xlWhole).Row
c = Cells(k, 3).Offset(2, 1).Resize(, 45).Find(cmb_mes.Value, lookat:=xlWhole).Column
m = Range("C21:C400").Find(cmb_item.Value, lookat:=xlWhole, after:=Cells(k, 3)).Row
Cells(m, c).Offset(, 3).Value = Cells(m, c).Offset(, 3).Value + CDbl(txt_valor.Value)
End Sub
obs.
1. antes de testar desfaça a mesclagem de células de todas as linhas com o texto "GRUPOn" na coluna 'C'
2. os códigos acima não verificam se algum campo do Form for deixado vazio
3. sugiro que você altere o carregamento da cmb_mes para exibir somente os meses correspondentes ao semestre selecionado, em lugar de exibir sempre os 12 meses
Postado : 05/06/2016 2:22 pm