-
Total de itens
825 -
Registro em
-
Última visita
Sobre Alyson Ronnan Martins
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Alyson Ronnan Martins's Achievements
0
Reputação
-
Alyson Ronnan Martins começou a seguir Erro IDE Vb6 , VBA- Exel_Como remover a opção de habilitar edição , Como mostrar o nome do site na busca do Google e 4 outros
-
VBA- Exel_Como remover a opção de habilitar edição
tópico respondeu ao Pedro Queiroz de Alyson Ronnan Martins em Outros Assuntos
Boa noite @Pedro Queiroz. Eu utilizo a funcionalidade do Excel para definir os locais "confiáveis" para meu código assim ele não fica aparecendo mensagens. Abre opções -> central de compatibilidades Configurações Depois vai em locais confiáveis e ativa permitir locais de rede e adicione o local que você quer: -
Criação de novos botões para abertura de Word
pergunta respondeu ao buscheric de Alyson Ronnan Martins em VBA
@buscheric boa tarde, mandei um solicitação. Quem sabe consigo te auxiliar melhor se você fizer um documento laudo "errado" com dados fictícios para simular e tentar criar algo que funcione. Caso não tenha o arquivo é complicado descrever um código preciso, só posso pensar em uma lógica que possa funcionar. Abraço. -
Background title bar → Windows 10 + vb6
pergunta respondeu ao ricardoweb084 de Alyson Ronnan Martins em Tutoriais & Dicas - Visual Basic
@ricardoweb084 ai foi bem além de onde eu teria ido. kkkk Pelo que lembro, sendo isso a algum tempo, você pode olocar o formulaário em modo "modal" fazendo com que ele não mostre a barra de título, mesmo colocando um menu(popup) ao aperta o botão direito do mouse. Claro que não vi seu código para entender porque isso está acontecendo. Mesmo assim fico muito feliz de ter ajudado (mesmo que por pouco tempo) é assim mesmo. Hoje estou procurando soluções para criar aplicações um pouco fora do VBA devido a falta de funcionalidades/conhecimento. Qualquer coisa pode chamar ai. -
Como mostrar o nome do site na busca do Google
pergunta respondeu ao juliosonic de Alyson Ronnan Martins em Tutoriais & Dicas - HTML, XHTML, CSS
Boa noite @juliosonic. Seu código HTML parece estar correto em termos de SEO. Você tem as tags de título e meta corretas, incluindo og:title, og:site_name, twitter:title e outras tags importantes para SEO. No entanto, se o Google está mostrando o URL do seu site em vez do nome do site nos resultados da pesquisa, pode ser devido a alguns motivos possíveis12: Google ainda não indexou as alterações: Se você fez alterações recentemente no seu site, pode levar algum tempo para o Google rastrear e indexar essas alterações. Problemas de rastreamento ou indexação: Verifique se o Google pode rastrear e indexar seu site corretamente. Você pode usar a ferramenta Google Search Console para isso. Inconsistências nos sinais: Certifique-se de que o nome do seu site seja consistente em todo o seu site e em todas as suas tags de título e meta. Problemas com o arquivo sitemap.xml: Verifique se o seu arquivo sitemap.xml está atualizado e listando todas as páginas corretamente. Se você já verificou todos esses pontos e o problema persiste, pode ser útil entrar em contato com o suporte do Google ou consultar um especialista em SEO para obter ajuda adicional. Lembre-se de que a otimização para mecanismos de pesquisa pode levar algum tempo para produzir resultados, então tenha paciência. Espero que isso ajude! 😊 -
Ajuda SQL PLISS
pergunta respondeu ao Diego Braga de Alyson Ronnan Martins em Tutoriais & Dicas - SQL Server
Boa noite @Diego Braga, não se ainda é possível restaurar se tiver com esse erro. Tenta instalar em uma máquina local e fazer o "restaure" dentro dessa máquina para validade algum erro no servido que esta restaurando. -
Background title bar → Windows 10 + vb6
pergunta respondeu ao ricardoweb084 de Alyson Ronnan Martins em Tutoriais & Dicas - Visual Basic
Boa noite @ricardoweb084 eu recomendaria deixar sem borda e criar o próprio botão de fechar. -
Criação de novos botões para abertura de Word
pergunta respondeu ao buscheric de Alyson Ronnan Martins em VBA
Opa boa noite. Pelo que eu entendi precisa escolher um modelo dependendo do usuário correto? Se sim você usar esse dado para abrir o modelo que deseja. Esse seria um exemplo: If rgFoco.Columns("AF").value = "Laudo novo" Then 'Define qual constante vai utilizar (novo) else 'Defini qual constante vai utilizar (antiga) end if Você também pode dublicar a procedure btGerarLaudo_Click e criar ele olhando para a nova constante que aponta para o laudo. Dessa maneira você teria dois botões sendo um para o laudo antigo e outro para o laudo novo. -
COMO INSERIR A CONSTRAINTS 'DEFAULT' NO MYSQL 8.0.36?
pergunta respondeu ao Bruno Rafael do carmo izzo de Alyson Ronnan Martins em MySQL
Boa noite @Bruno Rafael do carmo izzo A palavra Brasil deveria estar em aspas simples: NASCIONALIDADE VARCHAR(20) DEFAULT 'BRASIL' -
Criação de novos botões para abertura de Word
pergunta respondeu ao buscheric de Alyson Ronnan Martins em VBA
Boa tarde. @buscheric Deve ser rasuaveklment simples devido já ter um modelo criado. Você tem o documento novo com os "Bookmarks" , (referências para o VBA fazer a inclusão de dados do excel)? Caso já tenha feito a primeira coisa que vai fazer é definir a posição do novo modelo: Const modeloUS = "C:\Anima\Modelo Laudos\Laudo Abdominal.dotx" Pelo que entendi esse código acima é o modelo atual então vai criar o novo modelo exemplo: Const modeloUS = "C:\Anima\Modelo Laudos\Laudo Abdominal.dotx" Const modeloBR = "C:\Anima\Modelo Laudos\Laudo Abdominal2.dotx" Assim que for respondendo, vamos te ajudando a continuar. -
Importação para EXCEL de uma tabela do ACCESS, via código VBA
pergunta respondeu ao Domingos Oliveira de Alyson Ronnan Martins em Access
Eu tentei no meu computador em casa mais o office atualizou e nem eu sei usar na versão mais recente. kkkk Segue o comando que tenho para fazer conexão com banco de dados do access: 'Criado por Alyson Ronnan Martins 'Data: 2021/11/12 'Utilizar a referência: Microsoft ActiveX Data Objects 6.1 Library Public db As ADODB.Connection Public rs As ADODB.Recordset Public Const DB_PATH As String = "C:\DB\" Public Const DB_NAME As String = "database.accdb" Public Sub cConnectOpen() On Error Resume Next Set db = New ADODB.Connection Dim Caminho As String Caminho = DB_PATH & DB_NAME If Dir(Caminho) = "" Then MsgBox "Não foi encontrador o banco de dados!" & Chr(13) & _ "Solicitar o suporte da verificar o caminho abaixo:" & Chr(13) & _ DB_PATH & DB_NAME, vbCritical, _ "Erro crítico!" Application.Quit End If With db .ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _ "ReadOnly=0;" & _ "DBQ=" & Caminho & ";" & _ "DefaultDir=" & DB_PATH '& _ "Uid=Admin;Pwd=;" .Open End With 'Exemplo de fazer consulta 'Set rs = db.Execute("SELECT * FROM TABELA") 'rs.Close: Set rs = Nothing End Sub Public Sub cConnectClose() On Error Resume Next db.Close Set db = Nothing End Sub Agora para consultar os dados você cria um procedimento para executar uma consulta: sSQL = "SELECT * " & _ "FROM [nome tabela] " & _ Set rs = New ADODB.Recordset rs.Open sSQL, db, adOpenDynamic, adLockReadOnly retornoSQL = rs.EOF If retornoSQL = False Then Do Until rs.EOF Sheets("Planilha1").Cells(x + 1, 1).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 2).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 3).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 4).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 5).Value = rs.Fields("") rs.MoveNext x = x + 1 Loop end if @Domingos Oliveira Avalia se consegue entender e utilizar. -
Importação para EXCEL de uma tabela do ACCESS, via código VBA
pergunta respondeu ao Domingos Oliveira de Alyson Ronnan Martins em Access
Boa tarde @Domingos Oliveira Precisa mesmo ser VBA? O import do EXCEL já traz as informações e é possível fazer SQL na hora de trazer as informações do ACCESS. -
Boa tarde @ricardoweb084 Quando você pressiona botão F8 vai continuar até chegar na linha que esta gerando o erro de execução. Já fez esse procedimento?
-
Salvar aba no mesmo arquivo nomeando o mês
pergunta respondeu ao Albino Sergio de Alyson Ronnan Martins em VBA
@Albino Sergio Boa noite. Em que momento ou em que processo vai dispara o comando para criar a "aba" nova? -
não consigo fazer pesquisa automatica no excel pesquisando por valores numericos.
pergunta respondeu ao leonidlo costa de Alyson Ronnan Martins em VBA
@leonidlo costa boa noite. Parece que o problema está na forma como você está usando a função AutoFilter e a tentativa de filtrar números como se fossem texto. Se a coluna 1 contém códigos de itens e você deseja filtrar por números, pode ser necessário ajustar a forma como você configura o critério de filtragem. Aqui está uma versão modificada do seu código que tenta lidar com números: Private Sub txtlist_Change() If txtlist.Value <> "" Then ' Verifica se o texto inserido é um número If IsNumeric(txtlist.Value) Then ' Se for um número, filtra a coluna 1 com critério numérico ActiveSheet.ListObjects("estoque").Range.AutoFilter Field:=1, Criteria1:=CLng(txtlist.Value) Else ' Se não for um número, filtra como texto ActiveSheet.ListObjects("estoque").Range.AutoFilter Field:=1, Criteria1:= _ "=*" & txtlist.Value & "*", Operator:=xlAnd End If Else ' Se o campo estiver vazio, remove todos os filtros ActiveSheet.ListObjects("estoque").Range.AutoFilter Field:=1 End If End Sub Essa versão do código primeiro verifica se o texto inserido na TextBox é um número usando a função IsNumeric. Se for um número, o filtro é aplicado usando o valor convertido para inteiro (CLng). Se não for um número, o filtro é aplicado como antes, tratando-o como texto. Espero que isso ajude a resolver o problema! -
Remova as linhas com base no valor da célula com código VBA
pergunta respondeu ao Cristiano Vidal de Alyson Ronnan Martins em VBA
Se você deseja adaptar o código para selecionar apenas as colunas H até R em vez da linha inteira, você pode ajustar a maneira como o intervalo é tratado. Aqui está a versão adaptada do seu código: Sub DeleteRows() ' Update by 20211217 Dim rng As Range Dim InputRng As Range Dim DeleteRng As Range Dim DeleteStr As String Dim xTitleId As String Dim xArr Dim xF As Integer Dim xWSh As Worksheet On Error Resume Next xTitleId = "Excluir apostas" Set rng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8) If InputRng Is Nothing Then Exit Sub DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) Set xWSh = InputRng.Worksheet For Each rng In InputRng ' Verifica se a célula contém o texto a ser excluído If rng.Value = DeleteStr Then ' Se DeleteRng ainda não foi definido, define-o como a célula atual If DeleteRng Is Nothing Then Set DeleteRng = rng.Offset(0, 7).Resize(, 10) ' Ajusta para selecionar da coluna H até R Else ' Caso contrário, une DeleteRng com a nova célula Set DeleteRng = Application.Union(DeleteRng, rng.Offset(0, 7).Resize(, 10)) End If End If Next ' Exclui as células selecionadas If Not DeleteRng Is Nothing Then DeleteRng.Delete End If End Sub As alterações foram feitas na linha: Set DeleteRng = rng.Offset(0, 7).Resize(, 10) Essa linha ajusta DeleteRng para começar da coluna H (Offset(0, 7)) e se estender até a coluna R (Resize(, 10)). Isso garante que somente as colunas desejadas sejam selecionadas para exclusão. Certifique-se de testar o código para garantir que ele atenda aos seus requisitos.