Alyson Ronnan Martins

Isso dessa maneira pode gerar vários problemas mais seria assim. O SQL separa o que é a hora mínima e hora máxima: SELECT id_employee, check_dt, MIN(check_hr) as Entrada, MAX(check_hr) as Saida FROM tb_ponto GROUP BY id_employee, check_dt E quando você for colocar a informação na página só vai aceitar com "Saída" com maior que "Entrada" Teste de SQL: Resultado:

Boa tarde @Antonio Augusto Crovador Quando tentei abrir seu projeto estava protegido.

Boa tarde @Raquel Penha Você já tenho o código para colocar mais de um anexo em email? (não tenho ele) Mais eu, antes de ajudar, quero saber se o objetivo per percorrer a planilha para encontrar o mesmo nome do cliente (ou email) e assim montar um único email.

Boa tarde @Danielgs Não sei se entendi direito seu objetivo: -> Criar uma tabela de dados que antes de cadastrar verifique se teve algum registro anterior e coloca em uma coluna de "2 batida"? -> Pegar os dados existente e tentar montar um consulta de Registro | data | 1 batida | 2 batida?

Bom dia. Tem como mandar o link da planilha oara tentar te ajudar?

Boa tarde @Albino Sergio Como não sei como é seu projeto "exatamente" pode ser que tenha entendi errado. Fiz alteração no código para que quando faça alteração alteração na planilha ela executar o código novamente: Private Sub Worksheet_Change(ByVal Target As Range) cPageSetupCustom End Sub E o código alterei para coluna E (olhando se tem alguma coisa diferente "" na coluna E: Sub cPageSetupCustom() lastRow = 2 rTotal = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row For x = rTotal To 2 Step -1 If ActiveSheet.Cells(x, "E").value <> "" Then lastRow = x x = 2 End If Next x 'Range("A1:H" & lastRow).Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & lastRow End Sub Segue o print do código colocando dentro da folha (planilha) que esta o código: Olha se conseguiu entender.

Boa noite. Verifica se agora o erro passa: If Senha = Senha_confirmar Then Msgbox ("ok") Else Msgbox ("senha não compativel") Exit Sub End If Set CPF_repetido = Worksheets("Registro").Cells.Find(CPF) If CPF_repetido Is Nothing Then ElseIf CPF = CPF_repetido Then Msgbox ("Já exise um CPF igual a esse!" + vbCrLf + "Por favor escreva outro") Exit Sub End If Set Login_repetido = Worksheets("Registro").Cells.Find(Login) If Login_repetido Is Nothing Then ElseIf Login = Login_repetido Then Msgbox ("Já exise um login igual a esse!" + vbCrLf + "Por favor escreva outro") Exit Sub End If linha = Sheets("Registro").Range("A1").End(xlDown).Row + 1 'planilha registro, celula A1, usar Ctrl+down ultima celula + 1 (contando)) Sheets("Registro").Cells(linha, 1) = Login.Value Sheets("Registro").Cells(linha, 2) = CPF.Value Sheets("Registro").Cells(linha, 3) = Senha.Value If Botão_homem.Value = True Then Sheets("Registro").Cells(linha, 4) = "Homem" Else Sheets("Registro").Cells(linha, 4) = "Mulher" End If Unload Cadastro 'fechar formulario Msgbox ("Cadastro bem sucedido")

Boa noite Olha se assim ele seleciona e define a área de impressão Sub cPageSetupCustom() lastRow = 2 rTotal = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row For x = rTotal To 2 Step -1 If ActiveSheet.Cells(x, "A").value <> "" Then lastRow = x x = 2 End If Next x Range("A1:H" & lastRow).Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & lastRow End Sub

Bom dia! Tenta da seguinte maneira: Private Sub CommandButton1_Click() 'Adiciona os itens no ListView Dim guia as Worksheets Set guia = sheets(ComboBox.value) 'Set guia = ComboBox ' aqui quero mudar o valor da variável conforme o combobox são 25 planilhas, se eu tirar a combo e digitar o nome da planilha funcionar sem problemas, mas como são muitas eu teria que fazer 25 formulários e eu acho que tem uma solução, só não conseguir resolver, espero que alguém me ajude. uLinha = guia.Cells(guia.Cells.Rows.Count, "a").End(xlUp).Row lsLista.ListItems.Clear For x = 2 To uLinha Set li = lsLista.ListItems.Add(Text:=guia.Cells(x, "a").Value) li.ListSubItems.Add Text:=guia.Cells(x, "b").Value li.ListSubItems.Add Text:=guia.Cells(x, "c").Value li.ListSubItems.Add Text:=guia.Cells(x, "d").Value li.ListSubItems.Add Text:=guia.Cells(x, "e").Value Next End Sub Obs: escrevi do celular então worksheets pode ser que seja worksheet. Testa o código e vê se deu certo.

Show.

Troca essa parte: 'atual Range(selecao1, selecao2).Select 'proposta Range(selecao1 & " ," & selecao2).Select

Ainda não entendi kkkkk Quando você diz loop é de duas em duas colunas? ou até ter conteúdo? ou ver qual o maior numero de linhas dentre essas colunas?

Bom dia. Então mudamos o variável L para coluna 😄 Dim l As Long l = ActiveSheet.cells(rows.Count, "C").end(xlup).row Range("A1:A" & l & ",C1:C" & l).Select

Estão ficaria assim para saber qual a última linha: Dim l As Long l = ActiveSheet.cells(rows.Count, "A").end(xlup).row Range("A1:A" & l & ",C1:C" & l).Select

Boa noite @drreis Eu não sei se é uma seleção dinâmica porém o código abaixo é uma seleção estática: Range("A:A,C:C").Select Podendo também ser assim: Range("A1:A10,C1:C10").Select

Bom dia @leoamsousa! Tenta da seguinte maneira: Sub Cabecalho() Dim ws As Worksheet For Each ws In Worksheets ws.select Rows("1:2").Select Selection.Replace What:="Budget_2021\Budget_2021\[Template BGT 2021.xlsx", _ Replacement:="Budget_2022\Budget_2022\[Template BGT 2022.xlsx", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next End Sub

Boa notie @felipelima108 Deixa ver se eu entendi a lógica é para olhar a A3 se é igual a E1 se sim colar valores na B3?(assim descendo em cada linha?)

Boa tarde. Esse HTML É de seu projeto? Ss sim seria necessário colocar algo que identifique a área que vai ser modificada exemplo: uma div que tem dentro o texto que pode ser alterado sendo que essa div tenha um ID. Se não vou procurar algum que consiga identificar.

Boa noite. Se pretende mudar html o javascript consegue alterar. <body> <h4 style="background-color: #bd1717; border: 2px solid #bd1717; border-radius: 15px; display: inline-block; padding: 15px 30px; margin:20px;"><i class="icon-mobile"></i><span><a href="tel:+351939708658"> 939 708 658</a></span></h4><h4 style="background-color: #bd1717; border: 2px solid #bd1717; border-radius: 15px; display: inline-block; padding: 15px 30px; margin:20px;"><i class="icon-call"></i></i><span><a href="tel:+351211560539"> 211 560 539</a></span></h4> <script> var t = document.querySelector("body").innerHTML; var v = t.replace(/<h4/gi, '<p').replace(/<\/h4>/gi, '<\/p>'); document.querySelector("body").innerHTML = v; </script> </body> Ele vai pegar uma área e fazer alteração dos elementos, como não sei como é sua estrutura eu coloquei o body para ver os elementos internos e fazer alteração

É uma alteração dinamica? Tipo colocar um botão e mudar esse conteudo?

Boa noite @Yuri Da Costa Garcia Primeiro eu coloquei uma função achar a linha na planilha: Public Function fPesquisarCEP(CEP As Long) As Long On Error GoTo Pulo Dim s As Worksheet Dim r As Long Set s = Sheets("Bco_CEPs") r = Application.WorksheetFunction.Match(CEP, s.Range("A:A"), 0) fPesquisarCEP = r Exit Function Pulo: r = 0 Resume Next End Function Se e a função retornar maior que 0 ele vai pegar os valores da linha e colocar no furmulário: Public Sub cPesquisaCEP(r As Long) Dim s As Worksheet Set s = Sheets("Bco_CEPs") If r = 0 Then formCadastrar.txtUF.Value = "" formCadastrar.txtCidade.Value = "" formCadastrar.txtBairro.Value = "" formCadastrar.txtRua.Value = "" Else formCadastrar.txtUF.Value = s.Cells(r, "B").Value formCadastrar.txtCidade.Value = s.Cells(r, "C").Value formCadastrar.txtBairro.Value = s.Cells(r, "D").Value formCadastrar.txtRua.Value = s.Cells(r, "E").Value End If End Sub O comando foi testado no buscar o CEP: Private Sub btCEP_Click() Dim CEP As Long Dim r As Long CEP = CLng(Replace(txtCEP.Value, "-", "")) If fPesquisarCEP(CEP) > 0 Then ' Colocar os campos r = fPesquisarCEP(CEP) cPesquisaCEP (r) Else formCeps.Show End If End Sub Link do Arquivo Excel

Show

Boa tarde @Yuri Da Costa GarciaTem a maneira fácil e a maneira difícil. Você tenhecimento básico se vba ou apenas excel?

Boa noite @tatiane.bath Tenta trocar o "=" por "," (virgula) no push array: array_push($formacao, array(array('inicio' => $_POST['ano'])));

Boa noite @mariojaa Seria algo dessa maneira? Public Sub cPesquisa(Data As String) Const LDATAS As Long = 2 Const CNOMES As Long = 1 Const PTEXTO As String = "Y" If Data = "" Then Exit Sub Dim convData As Long convData = Day(CDate(Data)) Dim uColDatas As Long Dim c As Long uColDatas = Cells(LDATAS, Columns.Count).End(xlToLeft).Column uLinUsuar = Cells(Rows.Count, CNOMES).End(xlUp).Row fUsuarios.ListBox1.Clear For c = 2 To uColDatas If Cells(LDATAS, c).Value = convData Then For l = 3 To uLinUsuar If Cells(l, c).Value = PTEXTO Then fUsuarios.ListBox1.AddItem fUsuarios.ListBox1.List(fUsuarios.ListBox1.ListCount - 1, 0) = Cells(l, CNOMES).Value 'Debug.Print Cells(l, CNOMES).Value End If Next l End If Next c End Sub