Jump to content
Fórum Script Brasil

Alyson Ronnan Martins

Membros
  • Posts

    681
  • Joined

  • Last visited

Everything posted by Alyson Ronnan Martins

  1. Tem.alguma planilha com dados fictícios para enviar e tentar enteder seu caso.
  2. Esta confusa a sua ideia, tem alguma maneira de conectar com áudio?
  3. Boa tarde @Rayan Marcel Qual vba você esta usando? (Excel, Access ou VBA6)
  4. Opa boa tarde. Você pode colocar a sua planilha no google drive e compartilhar um link aqui. Segue meu e-mail: [email protected]
  5. Boa noite @Thiago Aucar Teria como fazer um exemplo de como a planilha deve ser?
  6. Eu já vi algo parecido em Node quando o Servidor tem um lical específico para colocar essas variáveis. Que é informado pelo próprio servidor.
  7. Boa noite @Edson Guilherme Tenta não colocar o código: Width:=rgMescladas.Width, _ Height:=rgMescladas.Height Esse deve obrigar a dimensão ser a padrão.
  8. Boa noite @FresHHerB Também não entendi o motivo mais muda para o seguinte: Sheets("RELAT").Range(Cells(i, 3), Cells(i + 1, 12)).Value = Sheets("mes").Range("P5:Y6").Value
  9. Não da para ajudar muito sem exemplos. Apenas a primeira parte de acordo com a ideia: Sub cPreencherDados() Dim dWB As Workbook Dim lWB As Workbook Dim lLote As Long Dim totalLinhas As Long Set lWB = ActiveWorkbook Dim planDados As String planDados = "Planilha ATT(Dados).xlsm" If fPlanOpen(planDados) Then Set dWB = Application.Workbooks.Item(planDados) totalLinhas = lWB.Sheets("Dados").Cells(Rows.Count, "D").End(xlUp).Row For lLote = 3 To totalLinhas dWB.Sheets("Planilha1").Cells(2, "C").Value = lWB.Sheets("Dados").Cells(lLote, "D").Value dWB.Activate MsgBox "Executar a macro para atualizar" Next lLote Else MsgBox "Planilha para preenchimento não esta aberta.", vbCritical, "Aviso" End If End Sub Public Function fPlanOpen(Nome As String) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Application.Workbooks.Item(Nome) fPlanOpen = (Not wb Is Nothing) End Function Planilha exemplo: Link do Zip GoogleDrive
  10. 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.
  11. 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.
  12. 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.
  13. 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.
  14. 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.
  15. 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.
  16. 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
  17. 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?
  18. 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)
  19. 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.
  20. 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"?
  21. 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"
  22. Você consegue gravar uma macro e mostrar o resultado depois de fazer o "link" para ver o seu link pronto?
  23. 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
×
×
  • Create New...