Ir ao conteúdo
  • Cadastre-se

silcarsc

Membros Juniores
  • Total de itens

    10
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre silcarsc

  • Data de Nascimento 01-11-1980 (37 anos)

Informações gerais

  • Cidade e Estado
    maringá paraná
  1. Ola pessoal, consegui resolver, vou postar o código abaixo para quem precisar desta ajuda, demorei muito para conseguir este código, não sou bom em VBA. Sub copiar_colar() If Selection.Count > 1 Then Exit Sub Select Case ActiveSheet.Name Case "plan1" If Application.Intersect(Selection, Range("b3:b100")) Is Nothing Then Exit Sub Case "plan2" If Application.Intersect(Selection, Range("B3:B100")) Is Nothing Then Exit Sub End Select Selection.Copy Sheets("plan3").Select Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub
  2. Olá pessoal preciso de ajuda preciso de um código VBA para copiar e colar especial, tenho um arquivo do excel que contem a plan1, plan2 e plan3, preciso copiar qualquer célula deste intervalo especifico, plan1 de (b3:b100), plan2 de (b3:b100) e colar na plan3 na célula b2, a segunda colagem vai para célula b3 e assim por diante, esta copia precisa ser limitada nas células b3 até b100 da plan1 e da plan2 se for de outra área não pode copiar. Resumindo vou copiar e colar uma célula de cada vez, para copiar clico em qualquer célula deste intervalo b3 até b100 da plan1 e da plan2 aperto o botão e colar na plan3 na célula b2 para baixo. desde já agradeço quem puder me ajudar.
  3. Olá pessoal estou precisando de ajuda, tenho uma planilha que nas células Exemplo: A1:A5 e G1:G5 é uma área que existe formulas e não pode ser alterada, a planilha esta protegida, preciso desta macro para uma melhor proteção, se a pessoa conseguir desproteger a planilha e clicar em uma destas células a macro vai proteger novamente. A macro que vai ser acionada já tenho.
  4. Olá pessoal estou precisando de ajuda, tenho uma planilha que nas células Exemplo: A1:G5 é uma área digitável, preciso de uma macro que não pode ser acionada nesta área, nas demais celulas tem que acionar, veja a função desta macro abaixo. -Protege a planilha -Oculta barra de titulos -Oculta guia da planilha Acontece que nesta área a macro não pode ser acionada para que o clique do mouse não fique pesado e a tela não fique piscando em cada clique na célula. Veja abaixo a macro que estou usando nesta planilha. Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False 'protege a planilha ActiveSheet.EnableSelection = xlUnlockedCells ActiveWindow.DisplayHeadings = False 'oculta barra de titulo ActiveWindow.DisplayWorkbookTabs = False 'oculta guia da planilha End Sub Agradeço a sua ajuda.
  5. Urgente: Olá pessoal tudo bem, estou precisando de ajuda tenho uma planilha em Excel para cadastro de contatos que outras pessoas vão usar, é protegida e contem formatações e fórmulas, alguns campos liberado para digitar ex: na plan1 A5:Q1000 posso somente digitar para que as formatações não seja alterada, acontece que abro outra planilha copio e cólo na plan1 nos campos liberado, dai bloqueia os campos liberados e altera todas as formatações que tenho nesta planilha, gostaria que isso não acontecesse, por exemplo um codigo na plan1 via VBA que só pudesse colar valores ou não colar de nenhuma outra planilha, internet, word e outros. Outra hipótese seria um código que protegesse as formatações, alguém pode me ajudar por favor?
  6. Caso resolvido Olá osvaldo funcionou perfeito, que maravilha essa tua ajuda, fiquei muito contente desculpe o transtorno pelo meu erro, seu codigo estava certissimo minha falha foi que eu estava executando a macro sem o botão, sou novo no forum, como faço para postar que o caso foi resolvido?
  7. Olá osvaldo obrigado pela sua resposta rápida, deu erro nesta linha With ActiveSheet.Shapes(Application.Caller) Obs: será que é por causa da minha versão, estou usando excel 2007 e 2010.
  8. Olá amigos do forum por favor preciso de ajuda. tenho uma planilha no excel e preciso controlar o zoom em apenas um botão. tenho uma macro que da zoom na tela inteira outra macro que diminue o zoom da tela inteira em 20% quero alternar com um clique a tela inteira, com outro clique diminuir 20%. veja as duas macro abaixo que ja estou usando com dois botão. Quem souber por favor me ajude. Sub AJUSTAR_TELAR() Range("c1:m1").Select ActiveWindow.zoom = True Range("A1").Select Dim maisZoom As Long maisZoom = ActiveWindow.zoom maisZoom = maisZoom + 5 If maisZoom <= 400 Then ActiveWindow.zoom = maisZoom End If End Sub Sub ZoomOut() 'Diminui Tela Dim menosZoom As Long menosZoom = ActiveWindow.zoom menosZoom = menosZoom - 20 If menosZoom >= 20 Then ActiveWindow.zoom = menosZoom End If End Sub
  9. silcarsc

    Email duplicado

    gostaria de saber se tem como fazer com que cada e-mail que eu enviei de uma conta do hotmail seja enviada uma cópia desse mesmo e-mail ´´sigilosamente`` para outro endereço? Gostaria de fazer isso tanto com mensagens enviadas quanto com as recebidas, tenho senha desse e-mail se alguem souber me ajude.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×