Alyson Ronnan Martins

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 o erro acontecendo.

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, $_POST['user_pass2']); // form validation: ensure that the form is correctly filled ... // by adding (array_push()) corresponding error unto $errors array if (empty($user_name)) { array_push($errors, "Username is required"); } if (empty($user_email)) { array_push($errors, "Email is required"); } if (empty($user_pass1)) { array_push($errors, "Password is required"); } if ($user_pass1 != $user_pass2) { array_push($errors, "The two passwords do not match"); } // check the database a user does not already exist with the same username and/or email $user_check_query = "SELECT * FROM users WHERE user_name='$user_name' OR user_email='$user_email' LIMIT 1"; $result = mysqli_query($db_sysgo, $user_check_query); $user = mysqli_fetch_assoc($result); if ($user) { // if user exists if ($user['user_name'] === $user_name) { array_push($errors, "Username already exists"); } if ($user['user_email'] === $user_email) { array_push($errors, "email already exists"); } } // Register user if there are no errors if (count($errors) == 0) { //encrypt the password $user_pass = md5($user_pass1); $query = "INSERT INTO users (user_name, user_email, user_pass) VALUES('$user_name', '$user_email', '$user_pass')"; mysqli_query($db_sys, $query); $_SESSION['user_name'] = $user_name; $_SESSION['success'] = "You are now logged in"; header('location: index.php'); } } // LOGIN USER if (isset($_POST['login'])) { $user_name = mysqli_real_escape_string($db_sys, $_POST['user_name']); $user_pass = mysqli_real_escape_string($db_sys, md5($_POST['user_pass'])); if (empty($user_name)) { array_push($errors, "Username is required"); } if (empty($user_pass)) { array_push($errors, "Password is required"); } if (count($errors) == 0) { $query = "SELECT * FROM users WHERE user_name='$user_name' AND user_pass='$user_pass'"; echo $query; // echo mysqli_num_rows($db_sys, $results); $result = $db_sys->query($query); // $linhas = $result->num_rows; // echo $linhas; if (($linhas = $result->num_rows) == 1) { $_SESSION['user_name'] = $user_name; $_SESSION['success'] = "You are now logged in"; // header('location: index.php'); }else { // AQUI ESTÁ O ERRO QUE MOSTRA ---->>>> array_push($errors, "Wrong username/password"); } } } ?> <?php if (count($errors) > 0) : ?> <div class="error"> <?php foreach ($errors as $error) : ?> <p><?php echo $error ?></p> <?php endforeach ?> </div> <?php endif ?> Claro que mudei o nome do BD pois o nome que estava usando era sys e creio que não pode usar esse nome da tabela. Deve ser um nome reservado. Ponto de pesquisa: https://www.php.net/manual/en/mysqli-result.num-rows.php

Na sua tela de login não encontrei o campo email???

Dividir o problema pode te ajudar a resolver

Public Sub cmdLocalizarColuna() Linha = ActiveCell.Column + 29 'Linha atual Range("G" & Linha).Value = "Seu texto" End Sub Olha se funciona.

para achar a ultima linha eu uso: Linha = Sheets("SuaPlanilha").cells(Rows.Count, "A").end(xlup).row 'Ultima linha da Coluna A

Segue a planilha que fiz usando a ideia: Receita(macro) Public Sub cmdNecessidade() Dim uLinhaProgramacao As Long Dim uLinhaEstrutura As Long Dim uLinhaNecessidade As Long Dim x As Long, y As Long, z As Long, w As Long Dim Produto As String Dim Material As String Dim Qtd As Double Dim NesSemana As Double Dim NesTotal As Double 'Limpar tabela cmdLimparNecessidade uLinhaProgramacao = Sheets("Programação").Cells(Rows.Count, "A").End(xlUp).Row uLinhaEstrutura = Sheets("Estrutura").Cells(Rows.Count, "A").End(xlUp).Row For x = 3 To uLinhaProgramacao Step 1 Produto = Sheets("Programação").Cells(x, "A").Value For z = 2 To uLinhaEstrutura Step 1 If Produto = Sheets("Estrutura").Cells(z, "A").Value Then 'Verificar se o material já foi programado uLinhaNecessidade = Sheets("Necessidade").Cells(Rows.Count, "A").End(xlUp).Row + 1 Material = Sheets("Estrutura").Cells(z, "B").Value Qtd = Sheets("Estrutura").Cells(z, "C").Value For w = 3 To uLinhaNecessidade Step 1 If Material = Sheets("Necessidade").Cells(w, "A").Value Then uLinhaNecessidade = w End If Next w 'Verifica se o material não foi preenchido If Sheets("Necessidade").Cells(uLinhaNecessidade, "A").Value = "" Then Sheets("Necessidade").Cells(uLinhaNecessidade, "A").Value = Material End If For y = 2 To 7 Step 1 'Coluna NesSemana = Sheets("Programação").Cells(x, y).Value NesTotal = (Qtd * NesSemana) + Sheets("Necessidade").Cells(uLinhaNecessidade, y).Value 'Lançar informações: Sheets("Necessidade").Cells(uLinhaNecessidade, y).Value = NesTotal Next y 'Debug.Print Produto & " - " & Sheets("Estrutura").Cells(z, "B").Value & ":" & Sheets("Estrutura").Cells(z, "C").Value End If Next z Next x End Sub Lógica que fiz para encontra os materiais do bolo ^^

Opa @Fabio012. Boa tarde ^^ Queria você já tem conhecimento de usar os macro ou quer ver um código para entender melhor a sua ideia. Se possível poderia disponibilizar planilha para tentar o código?

Fiquei confuso -.-"

Boa tarde. @Carla Fagundes. Esta tentado re-abrir a planilha?

Boa tarde. @jvg.ferrari. Como pensou em fazer?

Muito complexo kkkk. Teria como fazer uma planilha só para exemplificar melhor a sua ideia? Podendo ser apenas foto. Exemplo:

Boa tarde @GUSTAVO2511. Vamos definir o "endereço": Planilha: Setup Coluna: A Linha: 2 Então no VBA o endereço fica: Sheets("Setup").Range("A2").value ou Sheets("Setup").Cells(2, "A").value

Boa tarde @knephk. Nunca usei um link do tipo DDE. Precisa fazer um teste para identificar quem esta acionando quando a alteração é gerada ela atualização. Vamos dividor o problema em dois. 1-Momento em que a alteração é realizada (pela atualização do link DDE). 2-Chamar o valor abaixo, entre as linhas "A3:A100". 1: Como não tenho como testar quando a alteração é realizada preciso que você tente descobrir ai. Exemplos: Dentro da sua planilha você pode agenda eventos para alterações(change) ou para calculos(Calcule). Sendo assim tenta colocar um código para exibir mensagem para cada alteração. Exemplo: Depois de realizar alteração aparece a mensagem: Claro que seu projeto pode não exibir mensagem no "Change" então precisa testar os outros também para ver quando atualizar e se vai aparecer mensagem.

Como não consigo ver o seu projeto e imaginar como vai ser esse momento de "atualização do valor. Segue abaixo o código Public Sub cmd() Dim Linha Linha = fnPesquisarPosicao(Range("A1").Value) cCentralizarCampo (Linha) End Sub Public Function fnPesquisarPosicao(valor) For x = 3 To 103 Step 1 If Cells(x, "A").Value = valor Then fnPesquisarPosicao = x End If Next x End Function Public Sub cCentralizarCampo(Linha) With Range("A" & Linha) .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Logo após envio a planilha usada para teste: https://drive.google.com/open?id=1FI_pmBF2ZAXM_aCczR6bxKHWqQfq8ORK