Alyson Ronnan Martins

Boa noite @felix mauricio gasiglia Teria como mandar uma foto do seu projeto, para eu entender melhor?

No seu userform coloca o key Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'MsgBox KeyAscii If KeyAscii = 111 Or KeyAscii = 79 Then MsgBox "Letra O" Call PlayO End If End Sub Olha se consegue

Boa tarde @Edson Mayer Tenta usar o KeyPress do userform Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) MsgBox KeyAscii End Sub Você olha o comando do botão e faz um "IF" dependo do numero que retornar o KeyAscii

Boa tarde @Henrique MBC Olha se esse código é similar ao que você esta usando: Public Sub BDCadastro(Nome as string) Dim cn As ADODB.Connection Dim strConn As String Dim nCadatro As Long Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\alyso\Downloads\Forum\Bd.accdb';Persist Security Info=False;" .Open .Execute "INSERT INTO tblNome (Nome) VALUES ('" & Nome & "');", nCadatro .Close End With set cn = nothing End Sub

Bom dia @Eugênio14. Sim é possível fazer um formulário que que adapte ao produto assim aparecendo campos obrigatórios para seu específico produto. Você pode usar guias ou caixas de textos que aparecem de acordo com produto. Necessário apenas predefinir o que o produto precisa para ser fabricado assim quando for selecionado ele vai mudar o formulário. Qualquer duvida manda ai.

Bom dia @drreis. Você pode usar a propriedade controls do seu formulário. Eu fiz um formulário com 7 campos de texto e um botão para retornar o valores dos sete botões de modo dinâmico. Segue abaixo o código: Private Sub CommandButton1_Click() Dim i As Long Dim msg As String For i = 1 To 7 Step 1 msg = msg & Chr(13) & UserForm1.Controls("TextBox" & i).Value Next i MsgBox msg End Sub

Eu tentei usar o "Find" e consegui encontrar algumas informações olha se esse código te ajuda Public Function MarcosRPaulus(TextoPesquisado As String) As String Dim res As Range 'Resultado Set res = Sheets("BASE-DUBL.INTERNA").Range("B:AI").Find(TextoPesquisado, LookIn:=xlValues) If Not res Is Nothing Then MarcosRPaulus = Sheets("BASE-DUBL.INTERNA").Cells(res.Row, 11).Value 'Linha encontrada na coluna 11 Else Set res = Sheets("BASE-DUBL.EXTERNA").Range("B:AI").Find(TextoPesquisado, LookIn:=xlValues) If Not res Is Nothing Then MarcosRPaulus = Sheets("BASE-DUBL.EXTERNA").Cells(res.Row, 11).Value 'Linha encontrada na coluna 11 Else MarcosRPaulus = "" End If End If End Function A vantagem de usar "Function" que ele já te retorna a informação exemplo: Private Sub txt_dubl1_Change() dubl1 = txt_dubl1 'Informação procurada txt_datadubl1 = MarcosRPaulus(txt_dubl1) 'Função de pesquisa 'Ainda é possível dizer qual coluna você quer que traga a coluna End Sub Public Function MarcosRPaulus(TextoPesquisado As String) As String Dim res As Range 'Resultado Set res = Sheets("BASE-DUBL.INTERNA").Range("B:AI").Find(TextoPesquisado, LookIn:=xlValues) If Not res Is Nothing Then MarcosRPaulus = Sheets("BASE-DUBL.INTERNA").Cells(res.Row, 11).Value 'Linha encontrada na coluna 11 Else Set res = Sheets("BASE-DUBL.EXTERNA").Range("B:AI").Find(TextoPesquisado, LookIn:=xlValues) If Not res Is Nothing Then MarcosRPaulus = Sheets("BASE-DUBL.EXTERNA").Cells(res.Row, 11).Value 'Linha encontrada na coluna 11 Else MarcosRPaulus = "" End If End If End Function

Boa noite. Vendo apenas a primeira questão eu fiz o seguinte código: Public Sub CarinaSilveiraPereira() Dim txtCategoria As String Dim Contar As Long Dim ulConciliado As Long Dim x As Long Dim xPos As Long 'Identificar o Id pelo caracter "-" txtCategoria = "" ulConciliado = Sheets("Conciliado").Cells(Rows.Count, "B").End(xlUp).Row For x = 1 To ulConciliado Step 1 xPos = InStr(Sheets("Conciliado").Cells(x, "B").Value, "-") If xPos > 0 Then 'Lançar informações se um novo for encontrado If txtCategoria <> "" Then 'Ainda vai ser escrito MsgBox Contar End If txtCategoria = Left(Sheets("Conciliado").Cells(x, "B").Value, xPos) txtCategoria = Replace(txtCategoria, " ", "") txtCategoria = Replace(txtCategoria, "-", "") Contar = 0 ElseIf Sheets("Conciliado").Cells(x, "B").Value <> "" Then Contar = Contar + 1 End If Next x 'Lançar o ultimo MsgBox Contar End Sub Olha se consegue testar o código.

Uma dúvida qual o tipo de conexão DAO ou ADOBD?

Eu faria um banco de dados para todas as empresas e colocaria consultas para garantir que os dados a serem visualizados sejam da empresa que está "logada". Se você criar uma outra tabela com os nomes da empresas e estado de pago você pode sempre que fizer login consultar se está pago/liberado.

Olha se ele entende dessa maneira a quebra de linha: \n Trocando pelo <br>

Boa! Kkkk

Boa noite. Da mesma maneira que fez o "foreach" para os itens deve fazer para o corpo do email assim vai passar da linha dos seus dados para o corpo.

Seu projeto pode ter muitos sites para pesquisar ou pouco? Exemplo de muitos 600 mil kkkkk O que pode fazer é um for pesquisar um por um se tem a "frase" pelo Banco de dados (sentido inverso ao que está tentando). Mais isso é viável até não ficar lendo pelo excesso de sites. Se puder eu já vejo o código para pesquisar dentro de uma String se tem o texto do bando.

Bom dia. Tenta usar esse código: $url = “http://” . $_SERVER[‘HTTP_HOST’] . $_SERVER[‘REQUEST_URI’]; echo “A URL atual é: ” . $url;

Tamo aqui. Programo a mais de 7 anos em vba for Excel.

Eu não vi a variável "wd" declarada nem configura. O que é "wd"?

Tem sim direto no workbook. Já só seguiu fazer?

Boa tarde @Ezio Barreto . Tem como mandar uma foto defoto está é fazer manual apara ver como quer que fique?

Bom dia. Já viu as Ribbons ? Agora os menus de Excel e Access usam elas e até fiz alguns projetos. Só não sei se você se interessa por eles.

Bom dia Jardel. Seria mais simples ter o número de casamento(posso estar pensando besteira) é se tiver outra pessoal com o mesmo número já pode identificar e carregar o nome.

Bom dia não entendi a idei..

Poderia anexar a planilha para tentar simular e elaborar um código?

Bom dia. Só uma parte do código esta repetida 'Cola as informações na tabela dados Sheets("Dados").Select Sheets("Dados").Cells(1, 1).Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Fora isso não nada de errado. Se possível enviar a planilha para simular e tentar ver o erro acontecendo.

Boa tarde. Olha se esse código funciona. Public Sub cmdPularLinhas() Dim xLinhas As Long Dim valorAtual As Long Dim x As Long xLinhas = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row If xLinhas > 1 Then For x = xLinhas To 2 Step -1 valorAtual = ActiveSheet.Range("C" & x).Value Rows(x + 1 & ":" & x + valorAtual).Insert Shift:=xlDown Next x End If End Sub