[Resolvido]manipular linhas da tabela para preencher valores vazios

grandes mestres!

tenho a seguinte planilha (vendas_compradores)  que tem que ser importada para o access (guia atual) e transformada na guia (ajustado) como podem observar na coluna H não existem valores, como deverá ser uma rotina em vba onde deverá ser pego o dado da linha acima e colar na linha caso esteja vazia e assim sucessivamente?

Você irá importar do Excel para o Access? E somente dever ser verificado isso na coluna H? A primeira linha sempre terá alguma coisa ou pode acontecer dela estar vazia tambem? Nesse caso, de onde deverá colar o dado?

correto a importação será do excel para o access, a primeira linha sempre estará preenchida
somente na coluna H ocorre isso, claro que o objetivo é aprender a logica na manipulação do dados e caso seja necessário ajustar para as demais colunas,
obrigado pela atenção.

Você pode usar algo semelhante a isso:

Código:

' Criando os objetos que representarão o Excel e os números
Dim oApp As Object, nCell As Double, R As Integer

' setando o objeto como Excel
Set oApp = CreateObject("Excel.Application")

' Abrindo o arquivo no objeto criado
oApp.workbooks.Open "C:\Caminho\Nome do arquivo.xls"

' Definindo a janela como oculta. Se quiser que fique visível, coloque True no lugar de False
oApp.Visible = False

' Ativando a planilha a ser trabalhada. Se o nome dela for outro, coloque-o no lugar de "Plan1"
oApp.Worksheets("Plan1").Activate

' Igualando a variável nCell ao número da última linha preenchida na planilha
nCell = oApp.Worksheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row

' Para R igual a 2 até a última linha preenchida, se a linha da coluna H
' estiver vazia, será preenchida com o valor da linha anterior (R - 1)
    For R = 2 To nCell
        If oApp.ActiveSheet.Range("H" & R) = "" Then
              oApp.ActiveSheet.Range("H" & R) = oApp.ActiveSheet.Range("H" & R - 1)
        End If
    Next

    Msgbox "Dados atualizados com sucesso"

oApp.Application.Quit
Set oApp = Nothing

Não se esqueça de marcar a referência ao Microsoft Excel.

valeu pela dica! estou estudando a rotina e em breve retorno
obrigado!

criquio,

fiz um breve teste e os ajustes foram alterados, achei bacana a opçao de salvar em outra planilha, estou criando outras situações para que não haja outras duvidas
em breve retorno.


valeu!

criquio,

na planilha funcionou perfeitamente, como seria a adaptação do codigo se fosse uma tabela no bd, ou seja, tivesse importado a mesma planilha e aplicado a rotina ajustando ou criando um tabela no bd?

obrg.

A intenção não é importar essa planilha para o banco de dados? Seria então só fazer o procedimento acima na planilha e logo depois importá-la já arrumada.

bom dia!

a intenção foi cumprida a contento, apenas fiquei curioso no caso de manipular os dados em uma tabela ja existente no bd, caso seja necessário devo abrir outro tópico?

boa semana pra todos!

Não costumamos excluir dados de tabelas, mas quando for mesmo necessário, podes usar o CurrentDb.Execute com a cláusula SQL DELETE passando o filtro WHERE IsNull(NomeDoCampo). Há vários tópicos sobre esses assuntos no fórum.

deixe-me fazer entender, caso tenha uma planilha que ja tenha sido importada e apresente os campos vazios como deverá ser o ajustes dos campos? via access/vba

obrg.

após muita dor de cabeça a duvida permanece, se tivesse importado a mesma planilha e aplicado a rotina ajustando ou criando um tabela no bd como seria a manipulação dos dados?

devo abrir outro tópico?

obrigado!

obrigado pela ajuda!

Talvez seja algo assim que esteja querendo, supondo que a tabela tenha 5 campos e você quer atualizar do segundo até o quinto:

Código:

Dim rs As Recordset, N As Integer, C1 As String, C2 As Date, C3 As Double, C4 As String

Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

rs.MoveFirst

Do While Not rs.EOF

    C1 = rs(1)
    C2 = rs(2)
    C3 = rs(3)
    C4 = rs(4)

    rs.MoveNext
    rs.Edit

    For N = 1 To 5
        If rs(N) = "" Then
            rs(N) = "C" & N
        End If
    Next

    rs.Update

Loop

rs.Close
Set rs = Nothing


Lembrando que você deve colocar os tipos certos dos campos no lugar de String, Date, Double...

Já tinha resolvido?