Postagens

Mostrando postagens de julho, 2014

Aula 3 Cadastro VBA - Usando dados previamente carregados de uma ListBox e exibindo na textbox

Galera, Segue mais uma postagem sobre VBA, como usar os dados contidos em uma  Lista Box. Acesse  http://www.zedasplanilhas.com.br/utilizandodadosdalistbox.html  e veja como fazer. e faça o download do exemplo. Abaixo o código que utilizei. Private Sub ListBox1_Click() Dim Resultado As String Resultado = ListBox1 linha = 1 Do Until Sheets("Fornecedores").Cells(linha, 2) = Resultado linha = linha + 1 Loop TextBox2 = Sheets("Fornecedores").Cells(linha, 2) TextBox3 = Sheets("Fornecedores").Cells(linha, 3) TextBox2.Locked = True TextBox3.Locked = True End Sub Abraços e seja feliz.

Aula 2 Cadastro VBA - ListBox

Galera, Segue mais uma postagem sobre VBA, como usar  uma Lista Box. Acesse  http://www.zedasplanilhas.com.br/listbox.html  e veja como fazer. Abaixo o código que utilizei. Private Sub listarcontatos() Dim Seleção As String linha = 1 Do Until Sheets("Fornecedores").Cells(linha, 2) = "" linha = linha + 1 Loop Seleção = "Fornecedores!B1:C" & linha - 1 ListBox1.ColumnCount = 2 ListBox1.RowSource = Seleção Numlinhas = linha - 1 End Sub Abraços e seja feliz.

Como utilizar o Solver.

Amigos, Acesse  Zé das Planilhas  assiste o video faça o Download da planilha é seja feliz.

Aula 1 Cadastro VBA

Amigos para saber acesse Zé das Planilhas  veja o video faça o Download da planilha e seja feliz. Abaixo o código que eu utilizei. Private Sub CommandButton1_Click() linha = 2 Do Until Sheets("Fornecedores").Cells(linha, 1) = "" linha = linha + 1 Loop Sheets("Fornecedores").Cells(linha, 1) = linha - 1 Sheets("Fornecedores").Cells(linha, 2) = TextBox2 Sheets("Fornecedores").Cells(linha, 3) = TextBox3 MsgBox "Cadastro realizado com sucesso", vbOKOnly, TextBox3.Text TextBox1 = "" TextBox2 = "" TextBox3 = "" End Sub