jlrdasilva

Como copiar uma imagem de uma pasta para outra sem ter que definir o nome do arquivo na pasta de destino? por exemplo: de C:\Imagens\Imagem.jpg para D:\Imagens salvar automaticamente em "D:\Imagens" a imagem com o mesmo nome de origem,

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?

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.

Bom dia. Estou aprendendo sobre rede domesticas e pequenas empresas. Tenho um projeto, anexei um rascunho de como seria. Pretendo que funcione +/- assim: Há um roteador três PCs e um "servidor", não é exatamente um servidor, é um CPU sem monitor, teclado nem mouse instalado em um local apropriado. É um "servidor" de arquivos para ser compartilhados na rede, e é acessado via área de trabalho remota pelo PC1. Configuração: Roteador, PC2 e PC3 tem placas de rede onboard 10/100Mb PC1 tem placas de rede onboard 1000Mb Servidor tem placas de rede onboard 1000Mb e uma offboard 10/100Mb Sei que a velocidade da rede entre servidor, PC2 e PC3 será na faixa de 10/100Mb. Minha dúvida é a seguinte: Digamos que minha configuração funcione, eu criando uma ponte de rede entre as duas placas do servidor, ligando servidor e PC1 via cabo crossover a velocidade da rede entre servidor e PC1 será na faixa de 10/100Mb ou na faixa de 1000Mb ?? Sei também que “SE” funcionar, a velocidade entre PC1, PC2 e PC3 serão na faixa de 10/100Mb devido a placa offboard do servidor. Este meu raciocínio tem fundamento? alguém pode avaliar ou me dar uma dica? Preciso que a velocidade entre PC1 e servidor seja na faixa de 1000Mb e que todos tenham acesso à internet. Grato por enquanto. Nova Imagem de Bitmap.bmp

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