Basole
-
Total de itens
1.697 -
Registro em
-
Visual Basic text box hora inicial
Basole respondeu ao tópico de Formactory Windows Informa em Programação - outros
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. -
Visual Basic Copiar aba em outro arquivo
Basole respondeu ao tópico de Niknic em Programação - outros
Use workbook.add 1 para criar uma nova pasta de trabalho com uma nova aba -
Visual Basic text box hora inicial
Basole respondeu ao tópico de Formactory Windows Informa em Programação - outros
Considerado que a hora pesquisada está na célula, Tente formatar o textbox. Ex.: me.textbox1.text = vba.format(celula, "hh:mm:ss") -
Visual Basic Definir variavel para Abas
Basole respondeu ao tópico de Niknic em Programação - outros
Tente assim linha=worksheet (pasta).Range("10000").End(xlUp).row -
Preciso de Freelancer para Montar Planilha Excel
Basole respondeu ao tópico de LEO BanBan em Ofertas de empregos e estágios
Respondi no privado -
Visual Basic copiar linha com imagens e colar
Basole respondeu ao tópico de Ismael Souza em Programação - outros
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 -
Visual Basic copiar linha com imagens e colar
Basole respondeu ao tópico de Ismael Souza em Programação - outros
Faca um Exemplo bem próximo do arquivo original com dados fictícios e imagens idem. -
Outro BAT ou programa copiar link para colar em linhas especificas Excel
Basole respondeu ao tópico de HUMBERTOALVES em Programação - outros
Nao entendi de onde quer copiar os dados ! -
Visual Basic vba erro ao salvar em diretótio
Basole respondeu ao tópico de Ismael Souza em Programação - outros
@Ismael Souza voce nao pode "çolocar" variaveis entre aspas. Tente alterar isso e testar novamente *Altere esta linha tambem: If Dir(rootPath & "\" & Ano) = "" Then -
Visual Basic Macro Word (Office) VBA roda em MAC?
Basole respondeu ao tópico de tetchelex em Programação - outros
Segue o link: Test if it is a Mac or a Windows Machine -
Visual Basic Macro Word (Office) VBA roda em MAC?
Basole respondeu ao tópico de tetchelex em Programação - outros
De uma olhada neste link https://www.rondebruin.nl/mac/mac017.htm -
Visual Basic Como fazer soma em listview
Basole respondeu ao tópico de Eliéser Barbosa em Programação - outros
Disponibilize o arquivo ou um exemplo proximo para entender melhor sua demanda -
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.
-
@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"
-
Visual Basic Combobox para Listbox em outro Useform
Basole respondeu ao tópico de DaviCN em Programação - outros
@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
