Ramadan Moussa's questions

Eu simplesmente preciso alterar a fonte de uma linha após a última linha da tabela + 2 linhas para células de ("A: M"), mas não sei como escrever isso no código VBA... Eu escrevi a última seção no código abaixo, mas infelizmente estou errado

alguma sugestão por favor

Sub Addnewrow()

Dim lo As ListObject
    Dim newRow As ListRow
    Dim cpyRng As Range
    
    Set lo = Range("Data").ListObject
    Set newRow = lo.ListRows.Add
    
With newRow
.Range(12).FillDown

 With Range(LastRow + 2)
 
        .Font.Size = 12
        .Font.Name = "Tahoma"
        .Font.Bold = True
    End With

End Sub

Tenho uma planilha com uma tabela com mais de 400 linhas e um código para ocultar algumas linhas com base em um valor de célula se a data na célula for anterior a TODAY() com 90 dias. Funciona bem, mas infelizmente demora muito para aplicar em todas as tabelas e vejo que ele percorre as linhas uma após uma, o que é uma tradução. Alguma sugestão, por favor?

aqui está meu código

Sub hideolderdates()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Database")

wsLR = ws.Cells(Rows.Count, 9).End(xlUp).Row

For x = 5 To wsLR
    'analyze date, see if its 3 weeks or older
    If ws.Cells(x, 9) <= Date - 90 Then
     'hide
     ws.Range("a" & x).EntireRow.Hidden = True
           
    End If
Next x

End Sub

Ao trabalhar em uma planilha do Excel, preciso imprimir dois arquivos PDF externos diferentes na mesma pasta para meus clientes assinarem.

Aqui estão os caminhos dos arquivos "D:\Modelos para impressão\Reconhecimento.pdf" e "D:\Modelos para impressão\Permissão de trabalho.pdf"

Eu encontrei esse código enquanto pesquisava na internet, mas infelizmente não está funcionando

sub print_file()

Print_and_Close_PDF "D:\Templates to Print\Acknowledgment.pdf"
End sub`

Eu uso esta fórmula sumproduct para verificar o valor entre 2 planilhas (planilha1 e planilha Stopwork) e para alterar a cor da linha se o resultado for VERDADEIRO

=SOMARPRODUTO(('Parar Trabalho'!$D$8:$D$500=$C10)*('Parar Trabalho'!$K$8:$K$500="Abrir")*('Parar Trabalho'!$C$8:$C$500=$B$2)*($T$8:$T$500=$B$3))

meu problema está apenas na última condição na fórmula *($T$8:$T$500=$B$3)) para verificar se o valor em "T" na planilha1 ="B3" na mesma planilha que já está EM BRANCO - mas o que acontece é que quando eu coloco qualquer dado em "T" para torná-lo NÃO EM BRANCO a condição não se aplica enquanto quando eu altero a célula "B3" para não estar EM BRANCO a condição funciona como você pode ver na captura de tela

você pode me dizer o que posso fazer?

copie do arquivo para testar

Recebi um código para copiar dados de uma pasta de trabalho fechada para outra pasta de trabalho ativa, mas tenho um problema ao fechar as pastas de trabalho após executar o código. Não sei como consertar.

minha pasta de trabalho de origem é "Parar trabalho" planilha1 e a pasta de trabalho de destino é "AUTHS" e o nome da planilha é "parar trabalho" o código roda sem problemas, mas meu problema é que depois de executar o código e copiar os dados minha pasta de trabalho ativa na qual estou trabalhando "AUTHS" é fechada e a pasta de trabalho de origem que foi fechada é aberta enquanto eu preciso do vice-versa (para salvar e fechar "parar trabalho" e manter "AUTHS" aberto - Eu tentei alterar verdadeiro e falso, mas nada aconteceu este é meu código

Sub mycode()

Workbooks.Open Filename:="D:\Desktop\Stop Work.xlsm"
Worksheets("Sheet1").Cells.Select
Selection.Copy

Workbooks.Open Filename:="D:\Desktop\AUTHs.xlsm"
Worksheets("Stop Work").Cells.Select
Selection.PasteSpecial xlPasteAll             'xlPasteAll to paste everything
ActiveWorkbook.Save

ThisWorkbook.Close SaveChanges:=False        'to close the file
Workbooks("D:\Desktop\Stop Work.xlsm").Close SaveChanges:=True  'to close the file

End Sub



thank you in advance