Alyson Ronnan Martins

Show.

Boa noite @Fabricio Salviato Eu testei seu código e fiz a seguinte correção: Sub teste() Dim lin, col, aux As Long Dim Letra As String aux = 1 ' Preenche as 10 primeiras linhas das 10 primeiras colunas com a sequencia de 1 a 100 ' Ao final de cada linha eu chamo a função letracoluna que me retorna a letra da coluna e faço o preenchimento da célula ' e a partir dessa letra monto o texto do tipo =soma(A1:A10) por exemplo. Ocorre que se eu tento colocar o caractere = antes ' o VBA coloca o sinal de @ depis do igual For col = 1 To 10 For lin = 1 To 10 ActiveSheet.Cells(lin, col).Value = aux aux = aux + 1 Next lin Letra = letracoluna(col) Cells(lin, col).Select Selection.Formula = "=sum(" & Letra & "1:" & Letra & lin - 1 & ")" ' Quando vamos usar formulás usamos os nomes em inglês para o VBA ' no caso dessa formula eu substitui o soma por sum Next col End Sub Function letracoluna(ByVal icol As Long) As String Dim a, b As Long a = icol letracoluna = "" Do While icol > 0 a = Int((icol - 1) / 26) b = (icol - 1) Mod 26 letracoluna = Chr(b + 65) & letracoluna icol = a Loop End Function Segue abaixo o código testado, obs: (a primeira coluna foi antes de fazer a correção) Olha se consegue testar ai no seu pc.

Agora deu certo estou com o seu projeto aberto. Eu coloquei o "datal" para aparece e pareceu a questão que seu comando: Está apenas retornando opções do AJAX.

Tem como colocar seu projeto no Github para eu abrir e olhar? Assim eu faço alteração e já teste e te mando agora.

Imagino usar o javascript, quando o item for selecionado executar um comando para abrir uma pagina. Mais vamos dividir o problema, dependo do seu elemento HTML deve ter um evento para item selecionado, tenta dar um console.log() em javascript para ver se consegue pegar o seu evento. Depois que tiver pegando o evento vamos para abrir uma página. A questão deve ruim porque você deve estar usando um input e não uma lista de seleção... mais isso é para depois, olha se consegue o evento em seu campo.

Boa noite @felipefilp Vamos devagar, um problema por vez para ir matando a coisas e dando um pouco de alegria por ver as coisas aparecendo. Manda um cópia da planilha com dados fictícios e fiz a primeira coisa que você precisa que seja feito. Depois de funcionar e você testar vamos para o próximo.

Boa noite @Aureo Yamanaka Já tive problema em banco de dados por que não retornava corretamente. Você já utilizou Echo para ver qual o texto que ele esta retornando do banco de dados(se tiver retornado alguma coisa). A respeito de criar um href ou botão com o link para clicar recomento usar o AJAX para evitar re carregamento da página.

Bom não sei se o código que eu fiz vai de encontro com o que estava planejando... Fiz uma tabela para conter os campos que vão criar os formulário assim você marca com x o que vai precisar: No formulário criei uma forma apenas para trazer as informações da tabela de opções. Não fiz a formatação completamente por não saber se é dessa maneira que esta imaginando porém o código esta aberto para fazer as suas personalizações. E essa tabela pode ser substituída por uma formulário que vai preenchendo as informações e aparecendo as linhas no formulário. Código: Sub cFormCreateOptions() Dim tCategory As String, idCategory As Long, tCategoryNew As String Dim tSubCategory As String, idSubCategory As Long, tSubCategoryNew As String Dim idOptions As Long Dim rowSheetForm As Long, uRowSheetForm As Long Dim rowSheetOptions As Long, uRowSheetOptions As Long Dim shOpt As Worksheet Set shOpt = Sheets("Opções") With Sheets("Formulário") .Select uRowSheetForm = .Cells(Rows.Count, "G").End(xlUp).Row 'uRowSheetForm = .Cells(Rows.Count, "A").End(xlUp).Row If uRowSheetForm > 5 Then Rows("6:" & uRowSheetForm).Delete shift:=xlUp End If rowSheetForm = 6 uRowSheetOptions = shOpt.Cells(Rows.Count, "E").End(xlUp).Row For rowSheetOptions = 2 To uRowSheetOptions If shOpt.Cells(rowSheetOptions, "E").Value <> "" Then tCategoryNew = shOpt.Cells(rowSheetOptions, "A").Value If tCategory <> tCategoryNew Then tCategory = tCategoryNew idCategory = idCategory + 1 idSubCategory = 0 idOptions = 0 .Cells(rowSheetForm, "A").Value = idCategory .Cells(rowSheetForm, "B").Value = tCategory .Range("A" & rowSheetForm & ":K" & rowSheetForm).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorLight1 .TintAndShade = 0.499984740745262 .PatternTintAndShade = 0 End With rowSheetForm = rowSheetForm + 1 End If tSubCategoryNew = shOpt.Cells(rowSheetOptions, "B").Value If tSubCategoryNew <> tSubCategory Then tSubCategory = tSubCategoryNew idSubCategory = idSubCategory + 1 idOptions = 0 If tSubCategory <> "" Then .Cells(rowSheetForm, "A").Value = idCategory & "." & idSubCategory .Cells(rowSheetForm, "B").Value = tSubCategory .Range("A" & rowSheetForm & ":K" & rowSheetForm).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736 .PatternTintAndShade = 0 End With rowSheetForm = rowSheetForm + 1 Else idSubCategory = 0 End If End If idOptions = idOptions + 1 .Cells(rowSheetForm, "A").Value = IIf(idSubCategory > 0, _ idCategory & "." & idSubCategory & "." & idOptions, _ idCategory & "." & idOptions) .Cells(rowSheetForm, "B").Value = shOpt.Cells(rowSheetOptions, "C").Value .Cells(rowSheetForm, "C").Value = shOpt.Cells(rowSheetOptions, "D").Value rowSheetForm = rowSheetForm + 1 End If Next rowSheetOptions End With Range("A1").Select Range("G" & rowSheetForm).Value = "TOTAL" Range("H" & rowSheetForm).FormulaR1C1 = "=SUM(R6C:R[-1]C)" End Sub Link planilha: PLANILHA ORÇAMENTARIA-PADRÃO

Boa noite @Matheus da Maia Cordeiro Não entendi o que precisa contra no botão, olhando o seu código ele faze uma pesquisa na tabela "r030emp" ordenando a coluna "numemp" de forma crescente. Mais quando você fala ultimo e primeiro é a ordem dos registros de alguma coluna?

Boa tarde @Diego Antonio. Tem sim como fazer. Você tem uma planilha exemplo só para montar o código em cima dela (mais rápido assim)

Boa noite @Menezes Eu já tive um problema parecido e foi quando alterei a consulta que gera o relatório (de maneira errada) assim quando o relatório abrir ele mostrar registros "duplicados", mesmo o critério estando certo. Recomendo abrir o consulta que o relatório esta usando para ser gerado e olha se nela também esta duplicando os registros.

Que bom show!

Boa noite @Ana Oliveira 14 Não entendi bem seu objetivo. É para verificar se uma linha esta com o valor na coluna D "reprovado" ou todas as linhas estão "reprovadas"?

Bom dia. Você esta abrindo o arquivo direto ou o seu servidor php? Normalmente o servidor php fical em localhost: http://localhost Se você abrir o arquivo php direto o seu navegador vai querer fazer download dele por isso tem que acessar o seu "servidor local"

Você consegue gravar uma macro e mostrar o resultado depois de fazer o "link" para ver o seu link pronto?

Boa tarde @Paris Anderson Bem por cima da sua ideia fiz esse código: Sub AdcionarHiperlinkDinamico() Dim x As Long Dim linhaAtual As Long Dim linhaFinal As Long Dim textoAtual As String linhaAtual = ActiveCell.Row linhaFinal = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row For x = linhaAtual To linhaFinal textoAtual = IIf(Trim(Cells(x, "A").Text) = "", "Link", Cells(x, "A").Text) Cells(x, "A").Select ActiveSheet.Hyperlinks.Add _ Anchor:=Selection, _ Address:="", _ SubAddress:="[Pasta2]Planilha1!A" & x, _ TextToDisplay:=textoAtual Next x End Sub

Boa tarde @coutinhoicaro. Seu código esta um pouco complexo. Teria como mandar uma cópia da planilha, com dados fictícios por exemplo?

Boa tarde @Silvio Lima. Como fica o seu código depois que ele é executado? sql = "Insert into tabela(CodUusario, Nome, Urgente)" & " Values (" & txtCodUsuario.text 7 ", '" & txtNomeUsuario.text & "', " & Checkbox1.value & " )" Exemplo usando debug.print:

Boa tarde @brunopare. Tenta colocar adicionar seguinte parte e testa ai. 'objeto outlook = aplicação outlook, ao definir um objeto para uma variável usamos o Set Set objeto_outlook = CreateObject("Outlook.Application") 'agora só trocar onde temos o número da linha para a variável linha For linha = 2 To 4 Set Email = objeto_outlook.createitem(0) ' cria um item dentro do programa outlook ou seja um novo email dentro do outlook With Email .display ' mostra o email para vermos o que esta acontecendo .SentOnBehalfOfName = "xxxxxxxxxxxxxxxxxxxxxxxx" .To = Cells(linha, "E").Value ' destinatário linha 2 coluna 5 '.cc = "chefe@gmail.com" 'copia '.bcc = "diego@gmail.com" 'copia oculta .Subject = "XXXXXXXXXXX– xxxxxxxxxxxxxxxxxxxxxxxx " & Cells(linha, "C").Value & " OS " & Cells(linha, "A").Value ' Assunto" 'Início do alteração: .BodyFormat = olFormatHTML 'Agora todo o código tem que ser escrito em HTML 'Concatena o item da linha 2, coluna 2 com uma vírgula, Chr(10) = Enter .Body = "<HTML><Body>Prezado(a), " & Cells(linha, "B").Value & Chr(10) & Chr(10) _ & "Segue comunicação de Substituição xxxxxxxxxx da xxxxxxxxxxxxxx " & Cells(linha, "C").Value & "." & Chr(10) _ & "Favor desconsiderar o contato caso já tenha recebido a comunicação." & Chr(10) & Chr(10) _ & "Atenciosamente," & Chr(10) & Chr(10) _ & "Departamento de Operações" & Chr(10) & Chr(10) _ & "Esta é uma mensagem automática, favor não responder este e-mail. " _ & "Para dar sugestões, tirar dúvidas ou obter mais informações sobre os " & _ "serviços prestados ligue xxxxxxx - CENTRAL DE ATENDIMENTO - CALL CENTER ou acesse xxxxxxxxx" & "</Body></HTML>" ' Prezado Fulano 'Anexando arquivo no email Email.Attachments.Add (Cells(linha, "AE").Value) 'Finalmente enviamos o email Email.send End With Next Ai o HTML é mais tranquilo de fazer escrito. Olha se conseguiu entender.

Boa tarde @qqguilhermepp, precisaria um pouco mais do código ou contexto para te ajudar nesse problema ai.

Boa tarde @CEMORAIS, tem alguma erro quando você tenta abrir o arquivo? Verifica o controle adicionais do office se esta desabilitado ou a DLL não esta colocando no computador que não esta abrindo o formulário. Já encontrei erros similares que eram causado pelo office "mal" instalados.

Boa noite. Usando código HTML você consegue formatar o email deixando mais "bonito". Não muda o fato que o resultado é o mesmo, porêm sempre que termino uma código de email VBA (e deixo funcionando) eu já coloco formatação HTML para deixar parecido com uma tabela excel e deixando mais organizado os itens.

Os campos de tabela não fazem cálculos. O jeito de fazer é usando uma consulta, lá pode criar uma coluna com o resultado do cálculo.

Boa noite @Edmar Ferreira Morato Tenta o seguinte: Dim teste as long teste = Eval(campo_formula) '(1*2+35)*100/2) MsgBox "Valor da conta = " & teste Fonte: Microsoft

Eu criei uma lista para simular o preenchimento dos campos e envio do e-mail: Aqui o código: Public Sub cRaquel_Penha() Dim accountArray() As Variant Dim acountName As String Dim acountFirst As Boolean Dim lAcount As Long 'Variáveis para enviar o email: Dim emailTO As String Dim emailCC As String Dim emailBody As String With Sheets("Plan1") lAcount = .Cells(rows.Count, "F").End(xlup).row accountArray = .range("A2:F" & lAcount).Value End With 'Remove as accounts dulplicadas listAccount = ArrayRemoveDups(accountArray) 'Começa a montar a lista de emails olhando para a lista de "accounts" For y = LBound(listAccount) To UBound(listAccount) Step 1 acountName = listAccount(y) acountFirst = True For x = LBound(accountArray) To UBound(accountArray) Step 1 'Procura os dados da a lista If accountArray(x, 6) = accountName Then 'Se for a primeira vez fazer o início do email If acountFirst Then emailTO = accountArray(x, 4) emailCC = "mcacft@hotmail.com" emailBody = "Olá" & Space(1) & Cells(linha, 2).Value & "," & Chr(10) & Chr(10) _ & "Você possui a(s) seguinte(s) fatura(s) em aberto" & Chr(10) & Chr(10) _ & "SerialNfSe Valor do Serviço Link da NFse" & Chr(10) acountFirst = False End If 'Essa parte acho melhor fazer uma tabela 'porém estou seguindo a ideia do código emailBody = emailBody & accountArray(x, 2) & Space(18) & "R$" & accountArray(x, 2) & _ Space(12) & accountArray(x, 5) End If Next x 'Fechando o email. emailBody = emailBody & Chr(10) _ & "Nesse caso, você mesmo pode atualizar seu boleto e atualizar o vencimento, é só acessar o seu Módulo Faturas" & Chr(10) _ & "Atenciosamente," & Chr(10) & "Financeiro" 'Área para envioar o email: 'Coloca seu código aqui 'Final do Envio do email: Next y End Sub Function ArrayRemoveDups(MyArray As Variant) As Variant Dim nFirst As Long, nLast As Long, i As Long Dim item As String Dim arrTemp() As String Dim Coll As New Collection 'Get First and Last Array Positions nFirst = LBound(MyArray) nLast = UBound(MyArray) ReDim arrTemp(nFirst To nLast) 'Convert Array to String For i = nFirst To nLast arrTemp(i) = CStr(MyArray(i, 1)) Next i 'Populate Temporary Collection On Error Resume Next For i = nFirst To nLast Coll.Add arrTemp(i), arrTemp(i) Next i Err.Clear On Error GoTo 0 'Resize Array nLast = Coll.Count + nFirst - 1 ReDim arrTemp(nFirst To nLast) 'Populate Array For i = nFirst To nLast arrTemp(i) = Coll(i - nFirst + 1) Next i 'Output Array ArrayRemoveDups = arrTemp End Function Agora precisa testar ou olhar o código se é mais ou menos isso que estava pensando. Link: Planilha no Google Drive