Alyson Ronnan Martins

Teria como mandar um print ou uma planikha com nomes fictícios?

No início abaixo do sub.

Bom dia. Tenta apagar esse código que você esta usando. Selection.EntireRow.Delete

Entedi o problema mais acho que precisa enviar uma planilha para ver isso acontecendo.

Você conhece a função "for"? A ideia é com essa função o excel olhar linha a linha para verificar se esta melhor a data do lado esquerdo com a do lado direito Exemplo: Dim DataEsquerda as date, DataHoje as date DataHoje = Format(now(), "dd/mm/yyyy") with Sheets("SuaPlanilha") for x = 1 to 100 step 1 ' vai contar de 1 a 100 DataEsquerda = .cells(x, "A").value if DataEsquerda < DataHoje then 'agora aqui coloca o que quer que faça end if next x

Boa noite Diego. Já passei por esse problema antes e resolvi apenas colocando o On Error Resume Next. Tenta ai e dá um retorno se funciona ok?

Acho que realmente aqui no fórum podemos te ajudar a criar planilhas até em macro (tipo um sistema) porém criar de graça realmente acho difícil alguém se dispor

Boa tarde. Nas propriedades do textbox tem um item com o nome Índex ou TabIndex. É só mudar o número para a ordem que você achar melhor. Tipo o primeiro textbox tem o número 0 O terceiro textbox tem o número 1 E o segundo textbox tem 2 assim você muda a ordem.

Tentou formatar depois da digitação?

alysonronnan@gmail.com

Desculpa a demora. Mais esse comando seve apenas para mover a barra de rolagem. Se estamos fazendo algo “automático” não precisa ficar movendo a tela porque deixa o código apenas mais lento e pesado.

Boa tarde. Mina dúvida quando aperta no botão enviar o formulário está aberto? Se sim batas fazer do seguinte modo: Userf Userform.TextBox1.value & “ “ & Userform.TextBox2.value orm.TextBox1.value & “ “ & Userform.TextBox2.value Olha se dessa forma consegue enviar. Boa tarde. Mina dúvida quando aperta no botão enviar o formulário está aberto? Se sim batas fazer do seguinte modo: Userf Userform.TextBox1.value & “ “ & Userform.TextBox2.value orm.TextBox1.value & “ “ & Userform.TextBox2.value Olha se dessa forma consegue enviar. Boa tarde. Mina dúvida quando aperta no botão enviar o formulário está aberto? Se sim batas fazer do seguinte modo: Userf Userform.TextBox1.value & “ “ & Userform.TextBox2.value orm.TextBox1.value & “ “ & Userform.TextBox2.value Olha se dessa forma consegue enviar.

Boa tarde. não entendi direito o seu problema. Você quer fazer isso ou já faz? Se já faz qual o problema que está acontecendo?

Sabe colocar o Worksheet_Change ? É só colocar para salvar.

Bom dia. Descula a demora mais tenta mudar o a seguinte sequência: Plan1.Cells(3, 1).value

Bom dia. Tem alguma foto da tela para eu ver o filtro sem dados. Fico no aguardo.

Opa boa tarde poderia mandar uma foto do seu formulário para te. Mostrar o que está errado? Primeiro apague as linhas que tem : ActiveWindow.ScrollColumn

Bom dia. Você poderia criar uma planilha com macro que vai abrir a outra (que você quer apagar). A primeira planilha serve só para mostrar um fórmula aonde a pessoa vai digitar a senha. Caso ela erre três vezes você executa um comando para excluir a outra. Caso o contrário se a pessoa acertar a senha o formulário fecha e a outra planilha é aberta. (mesmo assim não creio que seja muito seguro pois se a pessoa à qual você passou a planilha tiver um pouco de conhecimento em casa Excel ela vai sacar isso ) esta aí a Dica Ficamos no aguardo.

Bom dia. teria como fazer uma foto mostrando o que você está pesando fazer? ficamos no aguardo.

Boa noite. Não sei se vai funcionar ai mais aqui foi de boa. Public Sub Comando() Dim Ulinha As Long 'Armazena o ultima linha Dim Soma As Double 'Armazena a soma If Range("A1").Value <> "" Then 'Se a celula A1 não for vazia Ulinha = Cells(Rows.Count, 1).End(xlUp).Row 'Identifique a ultima linha For x = Ulinha To 1 Step -1 'Fazer uma contagem regressiva entre as linhas If Cells(x, 1).Value = 0 Then Soma = Cells(x, 2).Value + Soma ElseIf Cells(x, 1).Value = 1 Then Cells(x, 2).Value = CDbl(Soma) Soma = 0 Range("B" & x).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next x End If End Sub

Tem um livro vba para leigos. Com ele você pode fazer esses processos.

Manuel Marca todas os comando e coloca para executar. Aguardo

Pode mandar um a foto (conceito) do que você quer?

Primeira duvida, você fez tudo em Access ou excel?

Tenta colocar LB as value ou TEXT