Ir ao conteúdo
  • Cadastre-se

Basole

Membro Pleno
  • Total de itens

    1.764
  • Cadastrado em

  • Qualificações

    0%

Tópicos solucionados

  1. O post de Basole em VBA - Preencher texbox1 e a texbox2 atualizar automaticamente sem botão foi marcado como solução   
    @Luciana Goes veja se e isso que deseja
     
    * Acrescentei uma rotina para aceitar somente numeros e virgula nas textbox, para não gerar erros nos calculos
    textbox_1.zip
  2. O post de Basole em VBA - Cálculo automático em formulário foi marcado como solução   
    @Luciana Goes veja se é isso que entendi, que voce precisa
     
     
    Cálculo automático_1.zip
  3. O post de Basole em Função Selection.Replace - VBA - Excel foi marcado como solução   
    @jun1orp1m3n7a experimente alterar no código, em LookAt:= o valor
    xlParts
    por 
    xlWhole
  4. O post de Basole em VBA - Marcar todos os itens da listbox ignorando as vazias foi marcado como solução   
    @Luciana Goes no exemplo abaixo eu usei a propriedade .List ao invés da .RowSource do 
     Listbox, desta forma são carregados somente as linhas com dados e não um intervalo. 
    Ignorar vazias listbox_V1.zip
  5. O post de Basole em Vba 30 vezes ( aberta ) ela se auto destrói foi marcado como solução   
    @NetobarbuioConforme prometido, segue exemplo...
     
      Aproveitei a rotina "ApagaFicheiro" do colega @AfonsoMira, que "destrói" a planilha 
     
    * Copie e cole o codigo abaixo no modulo: EstaPasta_de_trabalho
     
    Private Sub Workbook_Open() Dim cnt As Long cnt = VBA.GetSetting("MyProjet", "Settings", "Open", 0) cnt = cnt + 1 VBA.SaveSetting "MyProjet", "Settings", "Open", cnt If cnt > 30 Then MsgBox "Esta é uma Versão de Avaliação e se expirou! " & VBA.vbNewLine & _ "E será fechada automaticamente.", vbCritical, "A T E N Ç Ã O" ApagaFicheiro End If End Sub Private Sub ApagaFicheiro() Dim xNomeCompleto As String xNomeCompleto = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xNomeCompleto Application.ActiveWorkbook.Close False End Sub  
  6. O post de Basole em Anexar documento na planilha foi marcado como solução   
    @Tatyh vamos lá....uma opção é usar a sua planilha incluindo caso não tenha menções informando que a efetivação do cadastro está condicionado a anexar os documentos RG/CPF ou CNH, ou seja quando o usuário clicar no botão a rotina VBA verifica se há 2 anexos, os  referidos.
    Se estiver, envia um e-mail para seu endereço juntamente com uma cópia da planilha com os dados cadastrados. Caso contrário emite uma mensagem solicitando os documentos. 
     
    A outra opção é a que você se referiu no  seu primeiro post, utilização do Forms do Google que agora permite solicitar anexos.  Desta forma os dados cadastrais serão salvos em uma única planilha do Google e os anexos em uma pasta do Google drive. 
     
    * Para ambos casos não há como verificar se o conteúdo dos documentos anexados estão corretos,  ou seja o usuário poderá enviar uma receita de bolo escaneada, por exemplo, por engano.  Mas no FORMS tem como tornar os campos obrigatórios para efetivar o cadastro. 
  7. O post de Basole em Carregamento de dados de combobox denpendente foi marcado como solução   
    @josequali veja se é isso que entendi:
     
     
    Para carregar os dos dados na combobox, filtro2 (empesa), usei o evento change da combobox filtro1
     
    Private Sub filtro1_Change() Call empresacombobox End Sub  
    Para carregar os dos dados na combobox, filtro1 (Ramal), useio evento Activate, do userform
     
    Private Sub UserForm_Activate() Call Ramalcombobox End Sub  
    E na rotina empresacombobox, fiz apenas uma alteracao referenciando os dados do filtro1 
     
    Sub empresacombobox() conectdb 'esse comando deveria permiti carregar os nomes das empresas ao se relaciona com coluna ramal rs.Open "Select distinct Empresa from TabCadastro Where Ramal like '%" & Me.filtro1.Text & "%' order by Empresa", db, 3, 3 Me.Filtro2.Clear Do Until rs.EOF Me.Filtro2.AddItem rs!Empresa rs.MoveNext Loop FechaDb End Sub  
    * Desconsiderei o evento Initialize do Userform. 
  8. O post de Basole em Carregamento de dados de combobox denpendente foi marcado como solução   
    @josequali veja se é isso que entendi:
     
     
    Para carregar os dos dados na combobox, filtro2 (empesa), usei o evento change da combobox filtro1
     
    Private Sub filtro1_Change() Call empresacombobox End Sub  
    Para carregar os dos dados na combobox, filtro1 (Ramal), useio evento Activate, do userform
     
    Private Sub UserForm_Activate() Call Ramalcombobox End Sub  
    E na rotina empresacombobox, fiz apenas uma alteracao referenciando os dados do filtro1 
     
    Sub empresacombobox() conectdb 'esse comando deveria permiti carregar os nomes das empresas ao se relaciona com coluna ramal rs.Open "Select distinct Empresa from TabCadastro Where Ramal like '%" & Me.filtro1.Text & "%' order by Empresa", db, 3, 3 Me.Filtro2.Clear Do Until rs.EOF Me.Filtro2.AddItem rs!Empresa rs.MoveNext Loop FechaDb End Sub  
    * Desconsiderei o evento Initialize do Userform. 
  9. O post de Basole em Carregar listbox com mais de 10 colunas com base de dados em access foi marcado como solução   
    @josequali 
    No ListBox, seus campos aceita valores em branco. 
    O problema é que no BD Access, o campo em branco o valor é Null, por isso o erro. 
    Para dribrar este problema, fiz uns ajustes na função TransposeArray: 
     
    Public Function TransposeArray(myarray As Variant) As Variant Dim X As Long Dim Y As Long Dim Xupper As Long Dim Yupper As Long Dim tempArray As Variant Xupper = UBound(myarray, 2) Yupper = UBound(myarray, 1) ReDim tempArray(Xupper, Yupper) For X = 0 To Xupper For Y = 0 To Yupper If VBA.IsNull(myarray(Y, X)) Then tempArray(X, Y) = "" Else tempArray(X, Y) = myarray(Y, X) End If Next Y Next X TransposeArray = tempArray End Function  
  10. O post de Basole em Cadastrar opption button em Access via excel vba foi marcado como solução   
    @josequali segue abaixo o código com as alterações,
     
    Veja se é isso: 
     
    Private Sub BtnCadastro_Click() Dim vl As Boolean Dim Ctrl As Control ' VERIFICA SE TODOS OS CAMPOS FORAM PREENCHIDOS: If CadNome.Text = "" Or _ CadSenha.Text = "" Or _ CadUsuario.Text = "" Then MsgBox "Preencha todos os campos para proseguir! ", vbCritical, "Aviso" Exit Sub End If ' VERIFICA SE OS OPTIONBUTTON FORAM SELECIONADOS: For Each Ctrl In Me.Frame1.Controls If TypeName(Ctrl) = "OptionButton" Then If Ctrl = True Then vl = True End If Next Ctrl If vl = False Then MsgBox "Escolha uma opção em " & _ Me.Frame1.Caption, vbCritical, "Aviso": Exit Sub vl = False For Each Ctrl In Me.Frame2.Controls If TypeName(Ctrl) = "OptionButton" Then If Ctrl = True Then vl = True End If Next Ctrl If vl = False Then MsgBox "Escolha uma opção em " & _ Me.Frame2.Caption, vbCritical, "Aviso": Exit Sub Conectdb Rs.Open "Select * from TabLogin", DB, 3, 3 If Not Rs.EOF Then With Rs .AddNew !Nome = Login.CadNome.Text !Usuario = Login.CadUsuario.Text !Senha = Login.CadSenha.Text If opt1 = True Then !Cadastrar = opt1.Caption Else !Cadastrar = opt2.Caption End If If opt3 = True Then !Imprimir = opt3.Caption Else !Imprimir = opt4.Caption End If .Update End With End If FechaDb MsgBox "Cadastrado com Sucesso!", vbInformation, "SALVO" End Sub  
  11. O post de Basole em Pesquisa em banco de dados Access via textbox excel vba foi marcado como solução   
    @josequali fiz as alteracoes solicitadas no arquivo do seu outro topico, que acredito ser o mesmo assunto.
     
    Veja se é isso: 
     
     
     
    Projeto teste_v1.rar
  12. O post de Basole em Login Excel utilizando Banco Acess foi marcado como solução   
    @josequali segue as alteracoes veja se e isso que precisa.
     
    Acrescentei no cadastro a verificacao, se ja existe o nome de usuario no BD.
     
          
    Painel teste.rar
  13. O post de Basole em Adicionando rodapé em PDF via excel foi marcado como solução   
    @josequali em anexo a solucao. 
     
                                  
    * Para testar, baixe os arquivos PdfTk.exe, Libiconv2.dll e salve na mesma pasta da planilha junto com o arquivo PDF modelo (em anexo)
    Add_Rodapeh_PDF.zip
  14. O post de Basole em Excel copia e cola no Word com linhas formatadas foi marcado como solução   
    @Luciana Goes segue o código com as alterações, com a altura da linha para 0,46 cm
     
     
    Sub Formatarlinhaword() Dim caminho As String Dim nome As String Range("B2:B6").Copy Range("D2").Value = Environ("USERPROFILE") caminho = Range("d3").Value nome = Range("d4").Value Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrddoc = wrdApp.Documents.Add With wrddoc .Activate .Range.Paste With .Tables(.Tables.Count) '.AutoFitBehavior wdAutoFitWindow .Rows.SetHeight RowHeight:=wrddoc.Application.CentimetersToPoints(0.46), _ HeightRule:=wdRowHeightExactly 'Ajusta Altura da linha End With Selection.Cells.Merge If Dir(caminho & nome) <> "" Then Kill caminho & nome End If .SaveAs (caminho & nome) .Application.Quit End With Set wrddoc = Nothing Set wrdApp = Nothing Application.CutCopyMode = False Set wrddoc = Nothing Set wrdApp = Nothing Application.CutCopyMode = False Range("b3").Select End Sub  
    *  Marque a referencia "Microsoft Word xx.x Object Library"  na sua planilha do Excel
     

     

  15. O post de Basole em Botão não insere os dados foi marcado como solução   
    Experimente acrescentar os pontos no inicio das linhas que contem : Cells..
     

  16. O post de Basole em Repetir a imagem para linhas abaixo - VBA Macro foi marcado como solução   
    Experimente retirar da funcao o trecho no codigo que procura por uma imagem existente.
     
    Public Function getImage(ByVal sCode As String) As String Dim sFile As String Dim oSheet As Worksheet Dim oCell As Range Dim oImage As Shape Set oCell = Application.Caller ' Célula onde a função foi chamada Set oSheet = oCell.Parent ' Planilha que chamou a função ' Se ainda não existir uma imagem com o código, carrega do arquivo e cria-a. ' A imagem já é posicionada na exata posição da célula onde a função foi chamada. If oImage Is Nothing Then sFile = "c:\temp\sopt\" & sCode & ".jpg" Set oImage = oSheet.Shapes.AddPicture(sFile, msoCTrue, msoCTrue, oCell.Left, oCell.Top, oCell.Width, oCell.Height) oImage.Name = sCode ' Caso contrário, se a imagem já existir, garante que ela se posiciona e cabe exatamente dentro da célula ' (apenas para o caso do usuário ter movido ou redimensionado manualmente a imagem sem querer) Else With oImage .Left = oCell.Left .Top = oCell.Top .Width = oCell.Width .Height = oCell.Height End With End If ' Retorna nada para a célula (afinal, esta é somente uma função de auxílio) getImage = "" End Function  
  17. O post de Basole em Definir variavel para Abas foi marcado como solução   
    Tente assim
     
    linha=worksheet (pasta).Range("10000").End(xlUp).row  
  18. O post de Basole em Arquivo Executável Temporizado com .bat foi marcado como solução   
    Pode rodar em VBScript 
     
    Dim stime stime = 30 * 60 * 1000 do net stop spooler net start spooler WScript.Sleep(stime) loop  
  19. O post de Basole em VBA - Expirar planilha e ativar automaticamente se atender a condição foi marcado como solução   
    Veja se este exemplo atende
    Apos a data expirada a macro vai gerar um numero de registro baseado no 
    Número de série do disco rígido. O usuário lhe envia este registro e em cima deste número voce faz um calculo, por exemplo: Numero X 3,14 (Número Pi (π)).
    Este calculo vai gerar a chave que dará acesso ao uso da planilha para o usuário inserir.
    Toda vez que a planilha for aberta haverá esta verificacao..
    Desta forma o usuario so conseguira utilizar a planilha apenas no próprio Pc
    Segue o exemplo:
    .
    Planilha_Expira_Data.xls
  20. O post de Basole em Exibir comentário com valor da célula no Excel foi marcado como solução   
    Segue a correção
    Sub IsereComent() Dim oCel As Range For Each oCel In Selection With oCel .ClearComments .AddComment .Comment.Text Text:=.Text End With Next oCel End Sub  
  21. O post de Basole em TextBox aceitando formato de data inglês foi marcado como solução   
    Tente formatar o textbox com o dia e mes invertidos
    Planilha13.Range("J3") = VBA.Format(Recebimento, "mm/dd/yyyy")  
  22. O post de Basole em Preciso de um VBA para impressão no Excel foi marcado como solução   
    Segue o codigo atualizado
     
    Sub SeuBotao() With ActiveSheet With .PageSetup .PrintArea = Selection.Address .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With .PrintPreview .PrintOut copies:=1 End With End Sub  
  23. O post de Basole em Mudar Endereço URL a Partir de Outra Célula foi marcado como solução   
    @Gonzallez  siga o passo-a-passo:
     
    Inserir código VBA na pasta de trabalho do Excel
    Abra sua pasta de trabalho no Excel.
    Pressione Alt + F11 para abrir o Visual Basic Editor (VBE).

     
    Clique com o botão direito do mouse no nome da pasta de trabalho no painel "Project-VBAProject" (no canto superior esquerdo da janela do editor) e selecione Inserir -> Módulo no menu de contexto.

     
    Copie o código do VBA (Que inseri no meu poste anterior.) e cole-o no painel direito do editor do VBA (janela "Módulo1").

     
    Salve sua pasta de trabalho.
    Feche a janela e Aperte as teclas ALT+F8 e clique em executar

     
  24. O post de Basole em Macro para importar e organizar arquivo txt foi marcado como solução   
    Substitua as linhas abaixo no seu código.
     
    Cells(ActiveCell.Row, 1) = VBA.Format(Mid(Conteudodalinha, 1, 10), "mm/dd/yyyy") 'Preenche a linha na col 1 Cells(ActiveCell.Row, 7) = VBA.Format(Mid(Conteudodalinha, 52, 10), "mm/dd/yyyy") 'Preenche a linha na col 7  
  25. O post de Basole em Consultar Acces pelo Excel foi marcado como solução   
    @marcelo costa Jr apenas vinculado. Segue os arquivos ajustados a funcao 
     
    Para retornar o motorista use =PROCV_ACCESS(Celula;FALSO);e para retornar o CPF PROCV_ACCESS(Celula;VERDADEIRO)

     
                 
     
    Segue os arquivos, e o BD com os dados importados: https://1drv.ms/u/s!AklQQunG_lmmg0sXEdNheA2Ugyjt?e=ncrJl9
     

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...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!