Allex66sandro

Olá, gostaria de saber se existe algum meio por VBA para bloquear a planilha para ser editada em um único PC?

Uso método "proteger planilha", é bem eficaz, mas como tenho várias abas a editar, as vezes acabo esquecendo de colocar a senha antes de fechar. Queria saber se tem como fazer algo assim, que dê para bloquear todas as abas para que possa ser editada somente em um IP.

Desde já agradeço.

@Edson Luiz Branco Muito Obrigado, era exatamente o que procurava, valeu mesmo!!!

Gostaria de saber se tem como eu unir esses dois comandos, pois os dois tem o mesmo nome e dá erro quando se aplica na planilha, já tentei de diversas formas mas não resolveu.

PRIMEIRO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$44" Then Exit Sub
If Target.Value = 0 Then
    Rows("45").EntireRow.Hidden = True
    Rows("46").EntireRow.Hidden = True
    Rows("47").EntireRow.Hidden = True
    Rows("48").EntireRow.Hidden = True

End If 

End Sub

SEGUNDO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$49" Then Exit Sub
If Target.Value = 0 Then
    Rows("50").EntireRow.Hidden = True
    Rows("51").EntireRow.Hidden = True
    Rows("52").EntireRow.Hidden = True
    Rows("53").EntireRow.Hidden = True

End If

End Sub

Os códigos são iguais, porém só muda a célula q foi alterada e onde vai alterar.

Se alguem souber me ajudar agradeço

@AfonsoMira poderia me ajudar? só conheço o básico dos comandos 

Agradecido

@AfonsoMira

Só mais uma dúvida antes de fechar o tópico, eu consigo com essa mesma fórmula, usar outro intervalo da mesma Aba?

Exemplo:

Ocultar do A5:A17 (como já foi feito)

e mais abaixo:

Ocultar do A20:A10, com valores da célula A18 

@AfonsoMira

2 minutos atrás, Allex66sandro disse:

@AfonsoMira

Só mais uma dúvida antes de fechar o tópico, eu consigo com essa mesma fórmula, usar outro intervalo da mesma Aba?

Exemplo:

Ocultar do A5:A17 (como já foi feito)

 

e mais abaixo:

Ocultar do A20:A10, com valores da célula A18 

 

na hora de colocar na planilha principal aparece esse erro, como resolver? alterei os dados para linha e coluna que preciso

EDIT.: CONSEGUI RESOLVER O PROBLEMA NO NÚMERO DAS LINHAS MUITO OBRIGADO AJUDOU MUITO!!!!

Olá, gostaria de saber se tem algum jeito de eu exibir somente o número de linhas q eu informar.

Ex.: na célula B2, eu colocar 3, automaticamente deixar visível somente as linhas 4:5 e ocultar do 6:11 e assim conforme a quantidade for alterada

Coloquei um anexo para caso fique melhor de entender. 

Qualquer ajuda é bem vinda

Obrigado

Modelo.xlsx

Olá, gostaria de saber se alguem poderia me ajudar, pois é a primeira vez que faço esse tipo de serviço. 

É o seguinte: tem um cliente que quer que eu atomatize a planilha dele inteira usando VBA, (Tela de Login, botão exportar, botão limpar, botão cadastro)

porém não sei o valor que posso cobrar por esse tipo de serviço? cobraria por hora? por comando? ou um preço fixo?

Se alguém puder ajudar agradeço

Olá pessoal, estou começando agora na área de freela e recebi um orçamento porém não sei quanto cobrar, se alguém tiver alguma noção de quanto cobrar agradeço

"formatação de conteúdo com substituição de aproximadamente 350 páginas em arquivo existente em Word e/ou PDF"

Ps.: Pensei em cobrar 0,80 centavos por página, está no preço?

Olá amigo, tenho um sistema parecido talvez te ajude, como AUX1 e AUX2 terão acesso as mesmas abas eu bloqueio somente as que não é pra ter acesso, talvez consiga adaptar a sua.

Modelo tela Login.rar

@osvaldomp @osvaldomp

2 horas atrás, osvaldomp disse:

 

Experimente:

 

Sub Macro2()
 Dim ws As Worksheet
  Set ws = Workbooks("banco de dados 6.9.xlsm").Sheets("10")
  Workbooks.Add
  ws.[A1:G40].Copy [A1]
End Sub

 

ou, se a planilha ativa ao rodar o código for a planilha 10, utilize o código abaixo

Sub Macro3()
 Dim ws As Worksheet
  Set ws = ActiveSheet
  Workbooks.Add
  ws.[A1:G40].Copy [A1]
End Sub

Como eu faria para manter a mesma largura das colunas?

@osvaldomp

Gente to tentando criar uma macro que cria uma nova planilha e copia os dados da atual para a nova mas ela dá erro. Cria a "PASTA 1" e depois que salvo e fecho ela não cria novamente uma "PASTA 1" ela cria uma "PASTA 2" e não da pra colar. A parte em vermelho é que está dando erro apos criar a "PASTA 2"

Sub Macro1()
'
' Macro1 Macro
'

'
    Workbooks.Add
    Windows("banco de dados 6.9.xlsm").Activate
    Sheets("10").Select
    Range("A1:G40").Select
    Selection.Copy
    Windows("Pasta1").Activate
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
End Sub

Se alguém souber como corrigir ou tiver um meio mais simples agradeço
 

@Patropi olha, ficou bom assim. Porém vou explicar melhor do que gostaria:

Na hora que eu Digitar "S" na coluna G, gostaria que debitasse o valor que tem na coluna D do saldo devedor.

Ex.:

Se eu digitar S em G8, faria com que o saldo restante fosse E2-G8

E assim em todas as outras

Agradeço por me ajudar

Olá gente. 

To criando uma planilha para um controle pessoal, e fiz uma fórmula mas não estou conseguindo aplicar ela a todos os campos (Planilha em anexo)

Gostaria que a fórmula calculasse do D7 ao D16 no mesmo sentido que fiz ela calcular no D7

A fórmula é 

=SE(G7="S";D2-D7;D2)

Agradeço desde já

clube do hardware.xlsx

Obrigado amigo, me ajudou muitooo!!!!

@Midori Estou aprendendo agora sobre VBA,  rs 

Fiz como você disse só não entendi essa parte

14 minutos atrás, Midori disse:

Para retornar é só usar: Planilha.Activate

Poderia me dar uma melhor explicação? 

Obrigado

Olá preciso de uma ajuda rápida.

Tenho uma planilha com 11 abas, todas elas tem um botão que redireciona para a "11". Gostaria de colocar um botão na "11" que retornasse a planilha que foi pra lá.

Ex.: estava na 3, apertei e fui pra 11, quando apertar na 11 retornar para a 3.

Procurei em fóruns e não achei nada parecido

@Vics respondendo as suas perguntas:

Essas colunas é para estar tudo na mesma folha?

*Somente as colunas H, I e K gostaria que não aparecesse se for possível, pois esses dados são mais para controle. Aí queria que fosse tudo na mesma folha

Retrato ou paisagem? (Paisagem fica melhor, obviamente)

*No modo paisagem 

Cada vez que você apertar o botão imprimir, vai imprimir todas as linhas?

*gostaria de imprimir somente 05 linhas a mais do que as que estão congeladas, porque eu coloco os itens de acordo com o que vou precisar e nunca passa disso. E como tem quase 4 mil itens se fosse sempre imprimir todas as linhas iria gastar muita folha.

Agradeço a ajuda

ai está o modelo. é basicamente desse jeito so que com uns 3000 itens

modelo de planilha.xlsx

Olá pessoal, 

Estou com o seguinte problema e gostaria de ver se alguem pode me ajudar:

* Tenho uma planilha com 10 colunas (de B até K)*

gostaria de criar uma macro que permitisse imprimir as colunas: B, C, D, E, F, G e J; porém com umas 08 linhas somente a cada vez que apertar o botão

*se possível ter algum tipo de visualização antes da impressão pra ver se os dados estão corretos

*Esqueci de mencionar que as linhas 1 a 4 estão congeladas então teria de imprimir essas 4 e mais 4 que aparecesse na tela

Agradeço a ajuda

Se precisar anexo o modelo da planilha

Só mais uma dúvida, será que tem como aparecer a tela de impressão antes de imprimir direto?

Tenho uma planilha e gostaria de criar um botão para impressão, porém como tem muitas colunas gostaria de um VBA para ajustar todas as colunas em uma página.

Se possível imprimir a área selecionada também