WAGNERFERRASSI

Boa noite, Tive um problema com meu pendrive com dados importantes, que passou para o formato RAW. Após várias tentativas de recuperar os dados, resolvi formatar sem sucesso através do gerenciador de discos. Então consegui formatar pelo diskpart na esperança de conseguir recuperar os arquivos que estavam no pendrive, sem sucesso. Só que agora o pendrive mostrar o espaço disponível 1.47mb, alguém poderia me explicar o que houve, e como recuperar a capacidade original o pendrive, e se possível recuperar os arquivos que estavam no pendrive. Sem mais, desde já agradeço.

Boa noite, Alguém poderia me ajudar a entender o que está acontecendo com a planilha?. Ela tem 3 abas de um formulário, e só está salvando os dados no BD somente da aba 1, as outras informações estão em branco no BD. 'Cadastro Public Sub Cadastrar() 'Call menu_acao_1 linha = 32 If shtCADASTRO.Range("GuiaAba") = 1 Then 'Restrição - Código ou Nome em Branco' If shtCADASTRO.Range("CGes0") = "" Then MsgBox "Número Cadastro Faltando", vbIformation, "Cadastro Negado" Exit Sub End If If shtCADASTRO.Range("CGes8") = "" Then MsgBox "Verifique o Nome", vbIformation, "Cadastro Negado" Exit Sub End If If shtCADASTRO.Range("CGes9") = "" Then MsgBox "Verifique a Data de Nascimento", vbIformation, "Cadastro Negado" Exit Sub End If '2ª Restrição - Código Já Cadastrado Do Until shtBDCad.Cells(linha, "A") = "" If shtBDCad.Cells(linha, "A") = shtCADASTRO.Range("CGes0") Then MsgBox "Código do Cliente já está Cadastrado", vbInformation, "Cadastro Negado" Exit Sub End If linha = linha + 1 Loop 'Sem restrição, Salvar 'Call menu_acao_2 Do Until shtBDCad.Cells(linha, "A") = "" linha = linha + 1 Loop For a = 0 To 36 shtBDCad.Cells(linha, "A").Offset(0, a) = shtCADASTRO.Range("CGes" & a).Value Next MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Gestantes" Exit Sub 'Cadastro de Antecedentes ElseIf shtCADASTRO.Range("Guia") = 2 Then Do Until shtBDCad.Cells(linha, "A") = "" If shtBDCad.Cells(linha, "A") = shtCADASTRO.Range("CGes0") Then For a = 37 To 56 shtBDCad.Cells(linha, "A").Offset(0, a) = shtCADASTRO.Range("CGes" & a).Value Next MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Gestantes" Exit Sub Else MsgBox "Este 'XXXXXX", vbInformation, "Cadastro Negado" Exit Sub End If linha = linha + 1 Loop 'Cadastro Info Bancarias Else Do Until shtBDCad.Cells(linha, "A") = "" If shtBDCad.Cells(linha, "a") = shtCADASTRO.Range("CGes0") Then For a = 57 To 62 shtBDCad.Cells(linha, "A").Offset(0, a) = shtCADASTRO.Range("CGes" & a).Value Next MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Gestantes" Exit Sub Else MsgBox "Este 'XXXXXX", vbInformation, "Cadastro Negado" Exit Sub End If linha = linha + 1 Loop End If End Sub Sem mais, agradeço.