Alyson Ronnan Martins

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

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

Novamente confuso kkkk tem skype ou telegram para tentar me explicar melhor?

Eu fiz a conexão via OO e ficou assim: <?php session_start(); // initializing variables $user_name = ""; $user_email = ""; $errors = array(); // connect to the database $db_sys = new mysqli('localhost', 'root', '', 'test'); // REGISTER USER if (isset($_POST['user_reg'])) { // receive all input values from the form $user_name = mysqli_real_escape_string($db_sys, $_POST['user_name']); $user_email = mysqli_real_escape_string($db_sys, $_POST['user_email']); $user_pass1 = mysqli_real_escape_string($db_sys, $_POST['user_pass1']); $user_pass2 = mysqli_real_escape_string($db_sys,