Problemas de inicialização - Windows XP

Esta dica é do grande amigo Sames Davis e vou deixar registrado para não ficar procurando toda hora no Google...



A inicialização do Windows necessita da MBR que é a sigla para Master Boot Record, ou Registro Mestre de Boot.
O MBR fica no setor 0 do HD e armazena as descrições das partições e informa o BIOS durante a inicialização ( Boot ).

Sem MBR, nada de partições do disco rígido e se ela estiver corrompida, o Windows não irá funcionar.

Algumas causas em um caso de corrupção da MBR:

* Vírus;
* Desligamento direto no estabilizador;
* Pico de energia;
* Falta de energia;
* HD danificado

Segue um pequeno passo a passo de como tentar corrigir:
1. Dê boot com o cd do Windows;
2. Tecle R ( reparação ) para entrar no console de recuperação;
3. Se for solicitado em qual sistema deseja se conectar, escolha a opção do Windows;
4. Irá aparecer uma tela preta ( DOS ) , digite os seguintes comandos para corrigir
5. Digite FIXBOOT e confirme com Y
6. Digite FIXMBR e confirme com Y
7. Digite EXIT para reiniciar o micro
8. Se o problema ainda continuar, entre novamente no console de recuperação
9. Desta vez, além do FIXBOOT e FIXMBR, digite CHKDSK C: /P /R
10. Espere +/- 20 minutos para que seja feita a correção ( esse tempo é para HD de 80GB )
11. Caso o problema ainda persista, tente salvar os dados usando um cd do Linux ou Hiren's CD
12. Caso não seja possível acessar o HD, a solução será reinstalar o Windows.
Sames Davis

Dica de livro

Tempos atrás, eu emprestei este livro de um amigo para dar uma olhada e achei que era muito complexo para um principiante como eu.
Hoje com um pouco mais de experiência, vejo o livro com outros olhos e recomendo para quem quer se aprofundar no VBA do Excel e também para tê-lo como fonte de consulta.

Listar arquivos de uma pasta

Já era tempo de começar a postar dicas de VBA...
"Abrindo" a nova fase, segue um código que eu uso para listar e catalogar meus mp3's.
Código bem simples e com alguns comentários para facilitar o entendimento:

Sub lista_arquivos()
    Dim pasta As String
    Dim linha As Integer
    Dim arquivo As String
    linha = 1
        
    'Pega o caminho completo da pasta
    pasta = InputBox("Digite o caminho da pasta")

    'Cabeçalho
    Cells.ClearContents
    Cells(linha, 1) = "Nome do Arquivo"
    Cells(linha, 2) = "Tamanho"
    Cells(linha, 3) = "Data/Hora"
    Range("A1:C1").Font.Bold = True
    linha = linha + 1

    'Lista o primeiro arquivo da pasta
    'arquivo = Dir(pasta, 7)
    arquivo = Dir(pasta, 7)
    Cells(linha, 1) = arquivo
    Cells(linha, 2) = FileLen(pasta & arquivo)
    Cells(linha, 3) = FileDateTime(pasta & arquivo)

    'Lista os arquivos restantes
    Do While arquivo <> ""
        arquivo = Dir
        If arquivo <> "" Then
            linha = linha + 1
            Cells(linha, 1) = arquivo
            Cells(linha, 2) = FileLen(pasta & arquivo)
            Cells(linha, 3) = FileDateTime(pasta & arquivo)
        End If
    Loop
End Sub

Substituir o asterisco numa planilha

Esta pergunta foi feita num dos grupos de discussão que participo e vou deixar registrado aqui.

Ao substituir um determinado caracter, basta clicar em Editar > Substituir, preencher os campos na caixa de diálogo que se abre e em seguida executar.

O "problema" é quando se precisa substituir um caracter "curinga" como o asterisco. Nesses casos, o Excel entende que é para substituir tudo (*) e o resultado não sai como desejado.

Para essas situações particulares, basta colocar um til (~) antes do asterisco.

Veja na figura.

:-)

VBA - Como encontrar a última linha preenchida nuna coluna?

Esta é mais uma daquelas que tem mil e uma maneiras de fazer, vou mostrar apenas uma delas.
Quem programa em VBA, principalmente nos casos de inserção de dados, sempre precisa saber onde está o último dado da coluna para gravar o novo valor na célula logo abaixo.
Como descobrir qual é a última célula preenchida de uma coluna?
Veja a função abaixo:

Function ultima_linha()
Dim linha As Long
linha = 2
Do While linha <> 0
linha = linha + 1
Loop
ultima_linha = linha
MsgBox ultima_linha
End Function

"Trocando em miúdos"...
Enquanto o tamanho do texto da célula for maior que zero (o que significa que a célula está preenchida com algum valor), incremente 1 no contador (que se chama "linha") e execute o comparativo na próxima linha.
Como inicia em 2, no momento em que o tamanho do texto da célula for igual a zero, o procedimento é encerrado e a linha em branco é a que o contador indicar.

:-)

Comparando planilhas

É comum comparar planilhas cujos cabeçalhos de linha ou coluna são iguais, mas os dados referem-se a períodos diferentes.

Uma forma rápida de se fazer isso, é abrir as duas planilhas e usar CTRL + TAB se estiverem em pastas diferentes ou CTRL + PgDown/Up se estiverem na mesma pasta.

Para facilitar ainda mais, o Excel oferece o recurso de comparar lado a lado no menu "Janela".

A opção "rolagem sincronizada" torna a tarefa ainda mais fácil e rápida.

Por onde já passei e trabalhei...

Números ordinais - cultura inútil ou não???

Estava pensando, quando chegasse à publicação da 200ª dica, como escrever ou ler "200ª"?
Segue abaixo:

1º = primeiro
2º = segundo
3º = terceiro
4º = quarto
5º = quinto
6º = sexto
7º = sétimo
8º = oitavo
9º = nono
10º = décimo
20º = vigésimo
30º = trigésimo
40º = quadragésimo
50º = qüinquagésimo
60º = sexagésimo
70º = septuagésimo
80º = octogésimo
90º = nonagésimo
100º = centésimo
200º = ducentésimo
300º = trecentésimo
400º = quadringentésimo
500º = qüingentésimo
600º = seiscentésimo ou sexcentésimo
700º = septingentésimo
800º = octingentésimo
900º = nongentésimo ou noningentésimo
1000º = milésimo

de 2000 em diante, lê-se o dois milésimo ou o segundo milésimo e assim por diante.

Assim, seu eu estiver vivo ainda na 3367ª dica, poderei dizer tranquilamente:

"Terceiro milésimo, trecentésima sexagésima sétima dica!"...

Inútil?
Que tal criar uma função para retornar o ordianal a partir do cardinal?
Mais inútil ainda?
Alguma utilidade deve ter!

;-)

Soma rápida

Não sei já se postei esta dica, mas se não... ai vai:

Para obter rapidamente a soma de um intervalo, basta selecioná-lo e conferir o valor na barra de status.

Outras opções estão disponíveis, clique com o botão direito sobre mesma barra de status para conferir o que está disponível.

O bom é que, mesmo aplicando o Auto Filtro, os valores são calculados somente sobre os dados que estão visíveis.

;-)

Definindo o caminho (VB/VBA)

Para evitar a alteração do caminho de um arquivo dentro de um código toda vez que o aplicativo muda de pasta, basta usar um recurso muito útil do VB ou do VBA: o Path.
No Excel: ThisWorkbook.Path
No Access: CurrentProject.Path
No Word: ThisDocument.Path
No VB6: App.Path

Assim, pode-se mudar o aplicativo de pasta sem ter de alterar o código em função dessa mudança.

;-)

Copiar rapidamente planilhas dentro da mesma pasta

Antes de mais nada, vamos esclarecer uma coisa: uma PASTA contém várias PLANILHAS. A maioria das pessoas utiliza o termo PLANILHA para se referenciar à uma PASTA. Isto era verdadeiro na época das primeiras planilhas que trabalhavam uma planilha por arquivo. Como atualmente todos os programas já manipulam tranqüilamente várias planilhas no mesmo arquivo, é bom ter o conceito bem fixado na mente para não fazer confusão na hora de trabalhar.Bem, vamos então à dica.

Para copiar uma planilha dentro da mesma pasta, o procedimento usual é clicar com o botão direito em cima da planilha, selecionar "Mover ou Copiar", selecionar o local onde ela vai ficar, marcar a opção "Criar uma cópia" e depois clicar em OK.

A operação é simples quando se precisa copiar uma ou duas planilhas, mas à medida em que a quantidade de planilhas vai aumentando, a demora e o aumento dos cliques no mouse aumentam proprocionalmente.

Aí é que entra a tecla CTRL (Control) para facilitar a vida do usuário.

Basta mantê-la pressionada enquanto se arrasta a planilha de lugar como se fosse movê-la e uma cópia será criada. Depois é só renomear. Muito útil quando se controla coisas do tipo "uma planilha para cada dia do mês" ou "uma planilha para cada mês do ano".

Volto a repetir, quanto mais agilidade o usuário tiver em operações simples, mais tempo ele terá para focar a análise dos dados, o que na minha opinião é muito mais importante.

;-)