EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
Olá Carla!
Para se poder responder à pergunta, agradecia que me enviasse um exemplo com as duas folhas em excel, para ver o tipo de inserções a efectuar.
Se não quiser colocar aqui o ficheiro, pode enviar-me por e-mail, que eu considero-o como NDA : mail@exceler.org.
Fico à espera, ok?
Jorge Rodrigues
Olá Diego,
Podes utilizar o denominado Case Select:
exemplo:
Select Case varnum
Case Is False
‘ não faz nada
Case Is = 1234
‘o que pretendes que faça
Case Else
MsgBox “Password incorrecta”Call CloseBook
End Select
Sub CloseBook()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End SubExperimenta, adaptando ao teu caso.
Fica bem.
A variável Linha, está como Integer, tem que estar como Range. Assim, também tens que tirar a parte do código que refere Linha=12 e também a parte Linha = Linha + 1.
Experimenta. se não der, envia-me, por mail, uma folha de exemplo com o teu código, ok?
Fica bem.
Albino,
Experimenta alterar o código de linha: linha = 12, por exemplo, para:
Set Linha= Sheets(“Folha2”).Range(“A” & Rows.Count).End(xlUp).Offset(2, 0)
Assim, acho eu, vai ficar activa a 2ª linha abaixo da última. Se assim for (não testei…), não precisas do código : linha= linha + 1
Experimenta e diz qq coisa, ok?
Boas, GCouto,
O código, VBA, pode ser, como exemplo, o seguinte:
Sub Apaga_Colunas_Se_Contiverem_Domingo()
Dim lColumn As Long
Dim iCntr As Long
lColumn = 30 ‘ aqui podes mudar a quantidade de colunas a verificar
For iCntr = lColumn To 1 Step -1
If Cells(1, iCntr) = “Domingo” Then ‘ Podes mudar o texto
Columns(iCntr).Delete
End If
Next
End SubFica bem e diz qq coisa, ok?
Rdigo25,
Experimenta (mesmo sem caixa de vinculação), com o acrescento na célula X1, ou seja, se esta célula tiver conteúdo, a msg aparece quando digitas valor <15 na célula C26, caso contrário, mesmo que C26 tenha valor <15, nada aparece.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range(“C26”).Value < 15 And Range(“X1”).Value <> “” Then
MsgBox “Atenção!!!! Fora de prazo!!!”
End If
End Sub
Fica bem e diz qq coisa!! ☺
Boas,
Desde que refiras no código, se for número: < (menor que); > (maior que); = (igual a); =< (igual a ou menor que) ou >= (maior que ou igual a)
se for Alfabético ou alfanumérico: = (igual a) ou <> (diferente de), podes utilizar como entenderes.Quanto a parar o VBA (código), se for Private Sub Worksheet_Change(ByVal Target As Range), abarca a planilha toda e, por isso, sempre que existe uma discrepância, o aparecimento da mensagem é automático, mas como é apenas uma mensagem de aviso, julgo que não é importante estar a tentar “inventar”, digo eu ☺☺
Fica bem e diz qq coisa, ok?
Boas,
Experimenta este código,na tua WorkSheet :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range(“C26”) < 15 Then
MsgBox “ATENÇÃO!!!! FORA DO PRAZO”
End If
End Sub
Diz qq coisa, ok?
Boa tarde, Gilney,
Talvez uma macro como a que se segue (envio a planilha com a macro também):
Sub Insere_Linha()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(2).EntireRow.Insert Shift:=xlDown
End SubDiz qualquer coisa, ok?
Fica bem.
PMonica,
Pode ser que te ajude.
Fica bem.
Muito obrigado pelas encorajantes palavras escritas, Jorge Vasconcelos!!!!
Quanto ao resto das questões, vou dar início ao estudo delas, ok??
Um abraço.
JRod
AnnLee,
O John Walkenbach tem um livro, em inglês, intitulado “Excel – Dashboards and Reports”.
Julgo que poderias começar por aí… o link para obtenção do livro (que custa cerca de 28 dólares) é:
Fica bem.
