jlrdasilva

achei uma macro que é quase:

'Copiar e subscreve todos os arquivos de uma pasta para outra pasta sem perguntar:

'Só não copia subpastas e arquivos abertos.

'Tive que duplicar a macro para cada sub pasta

Sub CopiaTodosOsArquivos()
Dim fso
Dim sfol As String, dfol As String
sfol = "C:\Sistema\" ' caminho de origem dos arquivos
dfol = "G:\Backup de Sistema\" ' caminho de destino dos arquivos
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not fso.FolderExists(sfol) Then
MsgBox sfol & " caminho invalido.", vbInformation, "Erro"
ElseIf Not fso.FolderExists(dfol) Then
MsgBox dfol & " caminho invalido.", vbInformation, "Erro"
Else
fso.CopyFile (sfol & "\*.*"), dfol ' Alterar "\ *.*" para "\ *. xls" para mover só arquivos Excel
End If
If Err.Number = 53 Then MsgBox "não encontrado."
End Sub

Estou aprendendo sobre Excel VBA.

tenho este comando BAT:

xcopy /e /k /y "C:\Sistema" "G:\Backup de Sistema"

Preciso de uma macro que faça o que este comando faz.

Ou seja, copia e subscreve tudo o que está em "C:\Sistema", subastas e arquivos mesmo abertos, para "G:\Backup de Sistema" sem me perguntar se quero substituir os arquivos existentes.

eu já consegui copiar os arquivos, mas sempre abre uma janela do SO perguntando se quero substituir.

Alguém pode me dar uma "luz"?

Exste alguma macro que seja executada automaticamente caso o editor de macros do Excel não tenha senha?

Tenho um arquivo em Excel que me deu muito trabalho para cria-lo, ele tem senha no editor de macros, mas como todos sabem é muti fácil remover esta senha com programas.

Tenho uma macro que auto deleta o arquivo, a ideia é ela ser executada caso o editor de macros do Excel não tenha senha

Alguém sabe se tal macro é possível?

1 hora atrás, Patropi disse:

Boa tarde @jlrdasilva

 

No link abaixo você irá encontrar um tutorial, que explica a tua dúvida.

 

https://www.tomasvasquez.com.br/blog/microsoft-office/vba-emitindo-mensagens-personalizadas-com-msgbox

 

Não se esqueça de clicar em Curtir.

 

[]s

Valeu.. consegui resolver e ainda consegui quebrar o texto.

Resolvido.

Tenho este código VB:

Sub Backup()
    Dim Backup As String
    Backup = Plan1.Cells(1, 1).Text
    MsgBox "Backup realisado com sucesso em: " & Backup
End Sub

que me retorna conforme a imagem anexada.

Quero editar aonde dez "Microsoft Excel"

Tenho o seguinte código VBA:

Sub CODIGO()
Plan1.Select
linha = 2
cont = 1
Do Until Sheets("plan1").Cells(linha, 1) = ""
linha = linha + 1
cont = cont + 1
Loop
Plan1.Range("F1") = cont
End Sub

Este código vba na realidade ele conta quantas linhas tem no BD e gera o número da linha seguinte

E coloca este número em Plan1(F1)

.

Preciso de um código vba que gere realmente um código de cliente.

Exemplo:

Tenho três clientes.

Cliente código 1

Cliente código 2

Cliente código 3

Não é 1º, 2º, e 3º cliente.

Digamos que em determinado tempo eu exclua o cliente código 2.

Preciso continuar com os clientes códigos 1 e 3

Enquanto eles forem meus clientes este código tem que ficar para sempre

Ou seja:

Tenho os clientes:

Cliente código 1

Cliente código 3

Preciso que o código vba gere o cliente código 2 ou cliente código 4.

Ele não pode contar as linhas e gerar de novo o cliente código 3.

Não sei se alguém entendeu meu raciocínio e me dê uma resposta.

tenho um aplaca mãe POS-PIG43BC, - Chipset Intel® G43. ela tem 4 slot de memorias e no manual diz aceitar até 16 Gb de memória. seriam 4 pentes de 4 Gb cada. mas os vendedores de memoria de 4 Gb no ML desem que somente AMD as suportam. tem pentes de memorias de 4 Gb específicas para Intel ? alguém poderia me esclarecer esta duvida ?.

Obrigado por enquanto...

Obrigado olliver.soul, era isso mesmo que eu precisava, nunca eu ia pensar no "&".

 mais um detalhe aprendido.

Problema resolvido.

Bom dia.
Estou aprendendo sozinho sobre VBA Excel, tenho uma macro e gostaria de quebrar a linha que fica entre ("cad_1 e cad_19"), consegui quebrar antes do "(" mas não consigo quebrar no meio, preciso em 3 partes, se alguém poder me dar uma dica eu agradeço
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Set Planilha = ThisWorkbook.ActiveSheet
    For Each Célula In Planilha.UsedRange.Range _
    ("cad_1,cad_2,cad_3,cad_4,cad_5, cad_6, cad_7, cad_8, cad_9, cad_10, cad_11, cad_12, cad_13, cad_14, cad_15, cad_16, cad_18, cad_19")
    Célula.Value = UCase(Célula.Text)
    Next Célula
    For Each Célula In Planilha.UsedRange.Range("cad_17")
    Célula.Value = LCase(Célula.Text)
    Next Célula
    Application.ScreenUpdating = True
End Sub