Alyson Ronnan Martins

Beleza.

Faz um desenho ou um formulário que eu faço um exemplo para ti.

Boa noite @underLUCAS. Você pode colocar para fazer uma consulta atualizando os descontos e depois usar um "requery" em seu subform para atualizar as informações dos produtos.

Show!! A respeito de dua duvida, faz só uma exemplo em formulário para ver se entendi direito kkkk.

Tenta pegar o valor da caixa de texto e converter a Double (Cdbl)

Não entendi a duvida.

Boa noite @Matheus Ramalho, É dessa maneira? Código: Public Sub aspaTexto() Range("A4").Value = "'" & Cells(1, 1).Text End Sub

Boa noite, Eu fiz o teste aqui com os dados e apenas alterei a informação que é colhida do arquivo: .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, _ 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 1, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) Essa parte é responsável por dizer qual é o dado de cada coluna, vendo isso eu coloquei "9" para dizer que não deve ser trazida a coluna. Se você precisa de alguma coluna a mais basta ir ativando com o numero "1" as colunas que você precisa. Obs.: No final eu sair colocando vários "9" para evitar que traga alguma coluna a mais.

Sim teria. Como refinar a coluna que vai ficar na importação.

Boa noite @esteves.arthur Não conseguir entender quais as colunas você precisa porque não tem os rótulos nos dados.

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;