[Resolvido]Importar banco para o excel com condição

Bom dia amigos do Forum,

Estou com um problema para importar os dados em uma
planilha do excel, onde eu preciso pular uma linha
cada vez em que o campo "Destino", for diferente.

Criei uma condição para que ela pulasse, mas o que ocorre é

que se a linha de cima está em branco ela pula novamente.

Segue parte final do codigo com o if.

Código:


dim l as Byte
'inicia a variavel da linha
l = 12
'carrega os dados na planilha
While Not rst.EOF

Cells(l, 4).Value = rst.Fields("DataCarreg")
'........
'........
Cells(l, 20).Value = rst.Fields("Observacao")
Cells(l, 21).Value = rst.Fields("Ordem_de_Carregamento")
Cells(l, 19).Value = rst.Fields("Status")
'passa para o proximo registro
' se for igual ao de cima pula uma linha         
If Cells(l - 1, 4) <> Cells(l, 4) Then
l = l + 1
End If
rst.MoveNext
'soma o contador
l = l + 1
Wend


e está acontecendo isso:


Alguem pode dar uma luz?

Sds,

' se for igual ao de cima pula uma linha
If Cells(l - 1, 4) <> Cells(l, 4) and Cells(l, 4)<>"" Then

Um pitaco apenas;

Eu mudava o dim l as Byte para:

dim l as integer, que vai até 32,767
Ou
dim l as long que vai até 2,147,483,647

O range dos Byte vai de 0-255, ou seja se tiver uma tabela com mais de 255, vai dar erro.

Bom dia amigos,

Muito obrigado pela ajuda mas não estou conseguindo o efeito desejado, eu queria que a tabela ao carregar ficasse como abaixo:
https://2img.net/r/ihimizer/img251/1034/tbl2.png

onde cada vez que muda o nome do destino acrescenta uma linha.

Desde já agradeco pela atenção.

Boa tarde Alexandre/JPaulo

Estava um pouco parado nesse codigo, mas vou ter que dar jeito essa semana. rsssss

Alexandre tentei fazer como vc propôs, e mais um monte de testes, mas a linha é acrescentada de forma incorreta.

Acho que deve ter uma maneira pra inserir a linha em branco corretamente.

1 - itajai
2 - itajai
3 - blumenau
4 - blumenau

Bom, a condição vai acrescentar uma linha e blumenau da linha 3 vai pra linha 4, porque blumenau é diferente de itajai.

O problema é que blumenau que foi pra linha 4 é diferente da linha 3 que esta em branco, ai acrescenta uma linha também.

Confesso amigos, parece simples mas estou queimando os neuronios...rssss

Veja o campo (Destino) deste Link

É como eu queria que ficasse

Olá, deixa eu dar uma pitacada tambem.
Por que você não separa as linhas por destino mas ao invés de colocar uma linha em branco, colocando cada bloco de destino com uma cor diferente? Por exemplo: Se destino = Itaja, cor amarelo, se destino = Maripoã, core azul e assim por diante. Você poderia ter uma campo cor na tabela de cidades, assim ao cadastrar nova cidade, cadastra tambem nova cor. Claro que estou imaginando que não se tenha um número excessivo de cidades.

Obrigado pela sugestão amigo, mas já está colorido demais.

Esta planilha é carregada através de um servidor Mysql, e pinta o campo de amarelo dos embarques programados, e vermelho os Embarques em Aberto.

O que pretendo fazer é so separar pelo destino mesmo. Ou seja o porto onde o container vai embarcar.

É apenas uma questão de LayOut, mas a gente entra em cada roubada. rsssssssss

Sds,

Bom dia pessoal,

Depois de beber algumas Skol, consegui o que queria...rssss

Depois de carregar a planilha, fiz um novo laço para inserir

as linhas.

Não sei se é possivel criar um laço dentro de outro laço, não pesquisei, mas se os mestres quiserem comentar, estarei a ouvidos.

Deixo o codigo abaixo como exemplo:

Código:

Sub InseriLinhas()
' r = linha, mcol = coluna, i = variavel do laço
  Dim r As Long, mcol As String, i As Long
 
  r = Cells(Rows.Count, "D").End(xlUp).Row ' contar as linhas da coluna D

  mcol = Cells(r, 4).Value ' setar a variavel da coluna
 ' Iniciar o Laço
  For i = r To 2 Step -1
  If Cells(i - 1, 3).Value = "" Then
  ' não pular a linha do cabeçalho, no meu caso eu tenho a coluna 3 em branco
  'esse IF de cima pode ser comentado alterando o elseif abaixo por IF
  ElseIf Cells(i, 4).Value <> mcol Then
      mcol = Cells(i, 4).Value
        Rows(i + 1).Insert
    End If
  Next i

End Sub


Abraço,