Como fazer a base de dados contar iniciar a partir da célula "C4"

[lpeixoto92]

Olá pessoal, por algumas questões de trabalho, preciso fazer com que a base dados inicie na célula "C4" de uma planilha, consegui fazer ele iniciar na coluna "C" mas não na linha "4".

Obrigado desde já.

[srobles]

lpeixoto92,

Como você está fazendo a contagem de células / linhas da sua base de dados?

Com laços do tipo For => Next, While => Wend... Enfim, como?

Para se iniciar a contagem á partir da linha 4, caso esteja utilizando um laço For => Next, pode-se utilizar algo como segue :

Código: Selecionar todos

For contLinhas = 4 to ActiveSheet.UsedRange.Rows.Count
      'Insira seu código aqui
Next

Caso esteja utilizando um laço While => Wend, você deverá declarar uma variável do tipo Integer (Inteiro), ex:

Código: Selecionar todos

Dim vLinha As Integer

vLinha = 4

While Cells(vLinha, "C") <>""
      vLinha = vLinha +1
      Cells(vLinha , "C").Select
Wend

     Cells(vLinha,"C") = valorDoCampoDoSeuForm

Abs

[lpeixoto92]

Muito obrigado Saulo,

Acredito que o trecho responsável pelo carregamento dos dados esté em:

Código: Selecionar todos

Public Function ProcuraIndiceRegistroPodId(ByVal id As Long) As Long
    Dim i As Long
    Dim retorno As Long
    Dim encontrado As Boolean

    i = indiceMinimo
    With wsCadastro
        Do While Not IsEmpty(.Cells(i, colNOTA))
            If .Cells(i, colNOTA).Value = id Then
                retorno = i
                encontrado = True
                Exit Do
            End If
            i = i + 1
        Loop
    End With

    'caso não encontre o registro, retorna -1
    If Not encontrado Then
        retorno = -1
    End If

    ProcuraIndiceRegistroPodId = i
End Function

Vou tentar aplicar o que você informou, muito obrigado!

[srobles]

lpeixoto,

Esta Function que disponibilizou, busca um registro com base em um parâmetro informado anteriormente, vide o trecho i = indiceMinimo. Logo esta função retorna os dados contidos no registro cujo número é este indiceMinimo.

Se possível, disponibilize seu modelo compactado (.zip, .rar) , para que possamos analisar e melhor lhe ajudar.

Abs

[lpeixoto92]

Putz Saulo,

Eu jurava que eu tinha anexado o modelo no primeiro comentário. Desculpe! Segue em anexo o modelo. Ficarei eternamente grato se conseguir me ajudar com isto!

Obs: Consegui adaptar o código para a base de dados ser ficar na mesma de consulta (preciso que seja desta forma).

[srobles]

lpeixoto92,

Desculpe a demora amigo.

Segue em anexo seu modelo, editado e com as alterações comentadas.

Abs