Ir para conteúdo
Fórum Script Brasil

JoséA

Membros
  • Total de itens

    114
  • Registro em

  • Última visita

Tudo que JoséA postou

  1. 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
  2. JoséA

    Criar Indice

    Private Sub Worksheet_Change(ByVal Target As Range) Dim Indice Indice = Plan1.Range("A1").Value Sheets(Indice).Select End Sub
  3. Private Sub TextBox1_Change() Plan1.Cells("1", "j") = CDbl(TextBox1.Value) End Sub
  4. JoséA

    VBE

    De minha parte, disponha.
  5. JoséA

    VBE

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

    formatar numero textbox

    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.
  7. JoséA

    Duvida com tabela oculta

    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
  8. Se postar o arquivo facilita o entendimento ou pelo menos um exemplo.
  9. JoséA

    Custo unitario

    =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.
  10. JoséA

    Lista suspensa

    você consegue com validação de dados.
  11. JoséA

    Soma

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

    Soma

    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.
  13. JoséA

    Feliz Natal!

    Um Feliz natal e um ano novo repleto de alegrias, saúde e realizações.
  14. =SOMARPRODUTO((A2:A4=1)*(C2:C4="Pausa")*D2:D4)
×
×
  • Criar Novo...