Pergunte aqui
0

Acessar a 1ª celula vazia de uma coluna

perguntadas 2016-12-12 12:26:43 +0200

imagem do gravatar de muca

updated 2018-11-27 20:11:24 +0200

Como ir para a primeira celula sem dados de uma referia coluna. A exemplo do excel:

Sub VaiVazia() Dim i As Integer i = 1 Do While Range("H" & i).Value <> "" i = i + 1 Loop Range("H" & i).Select End Sub

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2016-12-12 16:36:10 +0200

updated 2016-12-22 01:31:45 +0200

feito pelo gravador de macro:

sub PriVazia
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$Planilha1.$H$1" '<=== ACERTAR ENDERECO ==<<
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
end sub

A indica no post faltou a declaração no inicio no Modulo informando a necessidade do Suporte a VBA

REM  *****  BASIC  *****
Option VBASupport 1 '<= Obrigatório declarar esta informação no inicio do Modulo


Sub EncontrarPrimeiraVazia
    Dim I As Integer
        I = 1
    Do While Range("B" & I).Value<>""   '<=== ACERTAR COLUNA, aqui esta B ==<<
        I = I + 1
    Loop
    Range("B"& I).Select    '<=== ACERTAR COLUNA, aqui esta B ==<<
End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigado Gilberto pela colaboração. Ficou perfeito.

imagem do gravatar de mucamuca ( 2016-12-12 18:43:09 +0200 )editar

Oi @muca, dei uma alterada na Macro, havia chance de um possível erro, se a coluna em questão só houvesse a 1a. célula preenchida. Considerei que a coluna esta com preenchimento continuo, sem vazios ou branco no meio da coluna.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-12-13 00:50:50 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-12-12 12:26:43 +0200

Lidas: 1,039 vezes

Última atualização: Dec 22 '16