Ir para conteúdo
Fórum Script Brasil

bEbEr

Membros
  • Total de itens

    502
  • Registro em

  • Última visita

Posts postados por bEbEr

  1. Private Sub TextBox3_Change()
            If TextBox3.Value = "" Then
            Else
            Set busca = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Cells.Find(TextBox3.Value)
            If Not busca Is Nothing Then
                Label8.Caption = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Range("B" & busca.Row).Value
                x = 0
                Label10.Caption = Format(x, "#,##00.00;-#,##00.00")
                Label10.Caption = Label8.Caption - Label7.Caption
                Else
                Label8.Caption = "Não existe!"
                End If
                End If
    End Sub

  2. galera.. seguinte..

    tenho um arquivo com botões e td mais.. e nesses botões eles praticam ações..

    uma das ações é que ele copia esse mesmo arquivo e salva com outro nome.. so que ele fica com as macros dentro dele.. userforms e td mais..

    como faço pra excluir isso atraves de macro?

    flwww

×
×
  • Criar Novo...