Ir ao conteúdo

Basole

Membro Pleno
 Perfil  Explorar Conteúdo

  • Posts

    2.009

  • Cadastrado em

 Tipo de conteúdo 

Tudo que Basole postou

  1. Basole
    Eu tb. sou meio didatico, aprendo tudo fucando, e na pratica hehehehe Bom o unico botao excluir que achei foi esse: Depois eu dou uma olhada com mais calma. 'EXCLUIRPrivate Sub BtnExcluir_Click() Dim rst As DAO.Recordset If MsgBox("Deseja deltar este registro?" & vbCrLf & "Essa acao não pode ser desfeita?", vbYesNo + vbInformation, "Atenção:") = vbYes Then DoCmd.RunSQL "DELETE * FROM [TabClientes] WHERE Cdc =" & TxtCdc & ";" End If End Sub
  2. Basole
    @R. Baumgratz por favor, mande seu arquivo ou um um modelo proximo.
  3. Basole
    Segue um exemplo veja se consegue adaptar: Private Sub cmdDeleteRegistro() Dim rst As DAO.Recordset If MsgBox("Deseja deltar este registro?" & vbCrLf & "Essa acao não pode ser desfeita?", vbYesNo + vbInformation, "Atenção:") = vbYes Then Set rst = Me.Parent.Recordset If Not rst.EOF Then rst.Delete rst.MoveNext End If Set rst = Nothing End If End Sub
  4. Basole
    Veja este modelo lhe atende: https://www.sendspace.com/file/d8xpx5
  5. Basole
    Esasori voce pode usar o recurso nativo do Excel: "Consolidar" . Selecione por exemplo, a celula [E1] >> Vá em Dados > Click em Consolidar >> Selecione o intervalo com dados (incluindo o cabeçalho) das colunas B e C da sua planilha, e selecione as opções (conforme a imagem acima). e OK
  6. Basole
    @CIDA CURTOLO, os componentes como por exemplo TextBox, CommandButton, etc nao sao compatíveis com o html. E como a sua macro ela controla o acesso a execução da apresentação(ppt), acho que uma solucao seria voce converter seus arquivos *.ppt para *.html em seguida criar no notepad um formulario ou uma pagina de acesso para sua pagina principal da apresentacao (ppt) em html. Veja um exemplo de codigo em html de acesso com senha e login: * Abra o Notepad e cole o codigo abaixo em seguida, salve como *.html (Se o login for inserido corretamente, a pagina da apresentação será aberta, caso contrario nao.) Em anexo segue um exemplo de PPT convertido para Html. Para testa-lo abra o arquivo "acess2.html" (que é identica ao cod. abaixo). O login é "usuario" e a senha deixe em branco. <html> <head><title>User VIP</title><script language="JavaScript">function senha(ans,cel){if((ans=='usuario')|(ans=='123')){if(confirm('Olá '+ans+' deseja realmente entrar?')){msg=open(cel+'iframe_view.html')}else{alert('Então muito obrigado por visitar o meu site\ne Volte sempre')}}else{alert('Senha ou Login errado')}}</script> </head> <body><center> <b> <font face="monotype corsiva" size=6 color=#00FF00>Usuários VIP</font></b><font face="monotype corsiva" size=5 color=#00FF00><form onsubmit="senha(ans.value,cel.value)"> <p><b>Login </b></font><font face="monotype corsiva" size=5 color=#ff0000><font face="monotype corsiva" size=5 color=#00FF00><span style="font-weight: 700; background-color: #000000"><input type=text name=ans value="" size="20"></span><b><br> Senha</b><span style="font-weight: 700; background-color: #000000"><input type=password name=cel value="" size="20"></span></font><b><br> </b><span style="font-weight: 700; background-color: #000000"> <input type=submit name=entrar value=Entrar></span><b> </b></p></form></font> </center> </body> </html> Health and Good habits - cultural fair.pptx_html1.zip
  7. Basole
    @marcosclio, voce quer que a formula retorne os valores que mais e repetem em cada bairro? Bom se for isso=> Na celula F3 insira a formula: =SEERRO(MODO(SE($A$3:$A$25798=$E3;$B$3:$B$25798;""));"") * Por se tratar de uma formula matricial: selecione a celula F3, coloque o cursor na barra de formulas e aperte as teclas [ Cltr + shift+ Enter], em seguida arraste a ate linha 64.
  8. Basole
    Veja se este exemplo te ajuda: * altere nos locais indicados conforme o seu cenário, mas mantenha os " * " (asteriscos) Sub ExtrairZip() Dim oApp As Object Dim Fname As Variant Dim FileNameFolder As Variant FileNameFolder = "C:\Temp\" ' altere aqui o diretorio do seu zip Fname = FileNameFolder & Dir$("C:\temp\*Parte_do_Nome_do_seu_Arquivo*.zip") 'Altere aqui parte do nome do seu zip If Fname = False Then ' se nao encontrar o arq, sai Exit Sub Else Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items MsgBox "Arquivo extraido em: " & vbNewLine & FileNameFolder, 0, "Sucesso" End IfEnd Sub * fonte: http://www.rondebruin.nl/win/s7/win002.htm
  9. Basole
    voce fez as alteraçoes que indquei (diretorio do seu arquivo) ? Fiz algumas alteracoes no codigo veja agora: Sub Teste2()Dim strPath: strPath = "C:\Temp\" 'altere aqui o diretorioDim sFilesFile = Dir(strPath & "*OSAGDINICIO_*.xls*")If sFile <> "" Then Workbooks.Open Filename:=strPath & sFile Else MsgBox "Arquivo não encontrado !"End IfEnd Sub
  10. Basole
    Tente usar o caracter coringa " * " Sub Teste()Dim strPath: strPath = "C:\Temp\" 'altere aqui o diretorioDim sFile As StringsFile = Dir(strPath & "OSAGDI*.xlsx")If sFile <> "" Then Workbooks.Open Filename:=strPath & sFile Else MsgBox "Arquivo não encontrado !"End IfEnd Sub
  11. Basole
    Segue exemplo de macro que cria uma lista (na 1ª aba em "A1") de hyperlinks das suas plan(Abas) Sub AddHyperLinks() Dim wksLinks As Worksheet Dim wks As Worksheet Dim row As Integer Set wksLinks = Worksheets("Plan1") ' AQUI=altere o nome se necessario wksLinks.UsedRange.Delete row = 1 For Each wks In Worksheets wks.Hyperlinks.Add wksLinks.Cells(row, 1), "", wks.Name & "!A1", , wks.Name row = row + 1 Next wks End Sub
  12. Basole
    Segue sugestao: Crie uma lista com unicos valores de texto, na coluna D: =ÍNDICE($B$2:$B$11;CORRESP(0;ÍNDICE(CONT.SE($D$1:D1;$B$2:$B$11);0;0);0)) E para somar os valores das células que contém o mesmo texto, na coluna E: =SOMASE($B$2:$B$11;E2;$C$2:$C$11)
  13. Basole
    @MooM Bom voce não esclareceu claramente o que queria, de qq. forma veja se é isso que precisa: teste (1)-v1.zip
  14. Basole
    @MooM Vendo aqui a disposicao dos seu componentes, ja existe uma rotina de pesquisa no evento AfterUpdate ( que é executada quando voce digita um codigo no campo [codigo] e tecla o [tab] ou clica em outro campo.) Fiz a alteracao nesta rotina, referenciando a aba cadastro como local e o intervalo de pesquisa: Private Sub txt_Codigo_AfterUpdate() Dim intervalo As Range Dim codigo As Integer codigo = txt_Codigo Set intervalo = Sheets("Cadastro").Range("A2:G500") txt_Nome = Application.WorksheetFunction.VLookup(codigo, intervalo, 1, 0) txt_Linha1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, 0) txt_Linha2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, 0) txt_Linha3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, 0) txt_Linha4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, 0) txt_Linha5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, 0) End Sub Sendo assim, neste caso o botão [Pesquisa],é dispensável. A nao ser q queira usa-lo, então recorte o codigo deste evento e cole no evento _click do Botao.
  15. Basole
    Aparentemente nao há comando (rotina) no Evento do botão Pesquisar : "..Button_Click() : Private Sub btn_Pesquisar_Click() End Sub Se puder postar seu arquivo fica mais fácil uma analise precisa;
  16. Basole
    Alem disso, eu tenho um exemplo, (sem uso de macro) e com o uso do editor de Ribom: http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/26/customuieditor.aspx Que desabilita, no menu, somente a opção "Exluir" e em todas as planilhas (Abas). Talvez possa servir p/ outros usuario, segue o anexo.: Excluir Abas - Desabilitado.xlsx
  17. Basole
    O codigo abaixo desabilita, no menu da aba, opção excluir: cole o codigo em cada planilha (aba) que queira proteger Private Sub Worksheet_Activate() ThisWorkbook.Protect Password:="1234", Structure:=True End Sub Private Sub Worksheet_Deactivate() ThisWorkbook.Unprotect Password:="1234" End Sub Ou/E tambem a opcao de desabilitar o menu da planilha (aba): Cole o codigo em cada planilha (aba) que queira desabilitar Private Sub Worksheet_Activate() CommandBars("Ply").Enabled = False End Sub Private Sub Worksheet_Deactivate() CommandBars("Ply").Enabled = True End Sub
  18. Basole
    Seja bem vinda bordo. Para essas situações use a propriedade ThisWorkbook: "Z:\MACRO\" & ThisWorkbook
  19. Basole
    Sim tem, vá em > Revisão> desproteger planilha, quando. pedir a senha perte a barra de espacos duas vezes. Mas nem tudo pode ser editado. Abrc.
  20. Basole
    @Luciane veja o exemplo que adaptei há algum tempo atrás, se lhe atende. GeraRecibos.zip
  21. Basole
    voce tem que completar o que voce deseja fazer. Somente essas informaçoes q passou fica difícil adivinhar. Poste sua planilha ou um exemplo.
  22. Basole
    Use o select case. Ex.: Select Case Range("A1").Value Case Is = 1 Sheets ("Plan1") Case Is = 2 Sheets ("Plan2") Case Is = 3 Sheets ("Plan3") ' . . . . . End Select
  23. Basole
    Ceil a macro esta funcionando, mas ela é ativada quando. voce altera de uma planilha(aba) para outra. Se preferir que ela fique automatica, ou seja, quando alterar a celula B2, segue a alteracao: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then With ActiveSheet .Range("A2:Z30").Rows.AutoFit 'ajusta linha ' .Columns().AutoFit 'ajusta coluna End With End IfEnd Sub
  24. Basole
    Click c/ botao direito sobre o nome da sua planilha (aba), selecione Exibir código e selecione. Em seguida cole o codigo na janela.
  25. Basole
    segue cod. abaixo: Private Sub Worksheet_Activate() With ActiveSheet .Range("A2:Z30").Rows.AutoFit 'ajusta linha .Columns().AutoFit 'ajusta coluna End With End Sub

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

Mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!