JoséA

Assim, não atenderia: Private Sub CommandButton1_Click() If Me.OptionButton1.Value = True Then MsgBox "OptionButton1 selecionado" ElseIf Me.OptionButton2.Value = True Then MsgBox "OptionButton2 selecionado" End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Indice Indice = Plan1.Range("A1").Value Sheets(Indice).Select End Sub

Private Sub TextBox1_Change() Plan1.Cells("1", "j") = CDbl(TextBox1.Value) End Sub

De minha parte, disponha.

Altere a linha: ActiveCell.Offset(0, 4).Value = TxtValor.Value por ActiveCell.Offset(0, 4).Value = CDbl(TxtValor) Quando a data: CDate(TxtVencimento)

Supondo que o seu dado 0:10 estivesse em Plan1 A1 e o seu tex fosse TextBox1 que seria carregado no evento UserForm_Initialize Private Sub UserForm_Initialize() Me.TextBox1.Value = Format(Plan1.Range("a1").Value, "hh:mm") End Sub Teste aí e adapte a sua necessidade.

Não testei, mas tente assim: Sub CopiaDesenhos () 'reexibir a plan Worksheets("Desenhos Novos").Visible = xlSheetVisible 'seu código 'ocultar plan Worksheets("Desenhos Novos").Visible = xlHidden End Sub

Se postar o arquivo facilita o entendimento ou pelo menos um exemplo.

=SE(D1<=0;0;A1/D1) Se o seu estoque for menor ou igual a zero, obterá zero, caso contrário efetuará a operação normal. adapte a sua necessidade.

você consegue com validação de dados.

Confira no link abaixo arquivo exemplo para download: http://www.sendspace.com/file/t5y7pt

Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo aviso Application.EnableEvents = False If Target.Column = 1 Then Cells(Target.Row, 2) = Cells(Target.Row, 2) + Cells(Target.Row, 1) End If Application.EnableEvents = True Exit Sub aviso: If Err = 13 Or Err = 1004 Then Target = Null Application.EnableEvents = True Else MsgBox "Erro: " & Err.Number End If End Sub Com este procedimento você soma os valores digitados na coluna A com os correspodentes da coluna B Tipo: 1º digita em A1 o valor 1, em B1 ficará o valor 1; 2º digite em A1 o valor 2, em B1 ficará o valor 3, ou seja o valor da coluna A será somado ao valor existente na coluna B da mesma linha e assim sucessivamente.

Um Feliz natal e um ano novo repleto de alegrias, saúde e realizações.

=SOMARPRODUTO((A2:A4=1)*(C2:C4="Pausa")*D2:D4)