Ir ao conteúdo
  • Cadastre-se

Basole

Membro Pleno
  • Total de itens

    1.697
  • Registro em

Reputação

793

Sobre Basole

  • Data de Nascimento 01/02/1974 (46 anos)

Informações gerais

  • Cidade e Estado
    Sao Paulo
  • Sexo
    Masculino
  1. A minha resposta foi apenas um exemplo para possíveis adaptações. Agora querer que eu tenha bola de cristal pra adivinhar o que você já fez é demais. Post o que você já fez para que o pessoal possa ajudar, adaptar, etc.
  2. Basole

    Visual Basic Copiar aba em outro arquivo

    Use workbook.add 1 para criar uma nova pasta de trabalho com uma nova aba
  3. Considerado que a hora pesquisada está na célula, Tente formatar o textbox. Ex.: me.textbox1.text = vba.format(celula, "hh:mm:ss")
  4. Basole

    Visual Basic Definir variavel para Abas

    Tente assim linha=worksheet (pasta).Range("10000").End(xlUp).row
  5. Segue exemplo: Sheets("LOG").Activate Range("B4:H4").Select Selection.Copy Sheets("HISTORICO").Activate Range("B4").Activate ActiveSheet.Paste Application.CutCopyMode = False Range("A1").Activate
  6. Faca um Exemplo bem próximo do arquivo original com dados fictícios e imagens idem.
  7. Nao entendi de onde quer copiar os dados !
  8. @Ismael Souza voce nao pode "çolocar" variaveis entre aspas. Tente alterar isso e testar novamente *Altere esta linha tambem: If Dir(rootPath & "\" & Ano) = "" Then
  9. Segue o link: Test if it is a Mac or a Windows Machine
  10. De uma olhada neste link https://www.rondebruin.nl/mac/mac017.htm
  11. Disponibilize o arquivo ou um exemplo proximo para entender melhor sua demanda
  12. Segue as alteracoes. Substitua os codigos do userform: Private Sub UserForm_Initialize() Dim cx As New ClasseConexao Dim banco As ADODB.Recordset Dim sql As String sql = "SELECT * FROM estados" sql = sql & " ORDER BY estado" cx.Conectar Set banco = New ADODB.Recordset banco.Open sql, cx.nConn Do While Not banco.EOF Me.ComboBox2.AddItem banco!UF banco.MoveNext Loop cx.Desconectar Set banco = Nothing End Sub Private Sub ComboBox2_Change() Dim cx As New ClasseConexao Dim banco As ADODB.
  13. @Antonio Crovador O unico problema que encontrei foi no modulo de classe. Substitua esta linha: nConectar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\base2.mdb"
  14. @DaviCN considerando que voce queira acrescentar em um novo campo do listbox: If Me.ComboBox1.Text <> "" And _ Me.ComboBox2.Text <> "" And _ Me.ComboBox3.Text <> "" And _ Me.TextBox1.Text <> "" Then With UserForm2.ListBox1 .ColumnCount = 4 .ColumnWidths = "50;50;50;70" .AddItem Me.ComboBox1.List(i, 0), 0 .List(.ListCount - 1, 1) = Me.ComboBox2.List(0) .List(.ListCount - 1, 2) = Me.ComboBox3.List(0) .List(.ListCount - 1, 3) = Me.TextBox1.Text

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!