Desculpem reviver o tópico, mais consultando as regras foi informado que poderia fazê-lo após um período de tempo sem resposta.

Como tiveram várias aberturas de tópico bem próximas à minha, alguns podem não ter visto...

Alguém sabe resolver este meu problema com loop?

Arthur, eu realmente não entendi (ainda) o que realmente deseja. Apesar de claro para vc que vive a necessidade, nem sempre fica claro para um leigo ou leitor externo; se possivel poste um pequeno exemplo (compactado) de seu form com a rotina e os campos e planilha envolvida, para que possamos "visualizar" o descrito em seu tópico, assim ficará muito mais facil e rápido obter um retorno

Sim Reinaldo, vou tentar postar um exemplo, enquanto eu não vou até minha mesa vou tentar explicar de outra maneira.

Meu problema básicamente é o seguinte:

1- Gostaria de saber como eu posso fazer para definir os nomes dos textboxes e labels como variáveis.

Ex: possuo várias labels nomeadas txtData1 txtData2 e assim vai... Gostaria de fazer algo do tipo:

Dim Data
Data=txtData
Dim n as integer
n=1

de modo que eu conseguisse efetuar um loop para conferir se Data+n.Caption=20/02/2012 ( por exemplo ).

E caso essa relação seja verdadeira, fazer:

Dim Roteiro
Roteiro=txtRoteiro

Roteiro+n.value="Parabéns"

Acho que talvez assim tenha ficado mais fácil o entendimento...

Básicamente minha dúvida é: como definir uma variável para o NOME de uma textbox, e não o valor dela... Para conseguir reconhecer qual será o último textbox visível de uma sequência...

Arthur, se a questão é criar Variáveis para os Controles, seria da seguinte forma :

possuo várias labels nomeadas txtData1 txtData2 e assim vai..

Aqui criamos as Variáveis
Dim stxtData1
Dim stxtData2

Aqui jogamos para as Variaveis os valores dos Controles :
stxtData1 = txtData1.Text
stxtData2 = txtData2.Text

Como disse que quer os Caption, então seria assim :
stxtData1 = txtData1.Caption
stxtData2 = txtData2.Caption

Uma obs importante, acima você diz "txtData1 txtData2", se os mesmos se referirem ao Controle do Tipo TextBox, este controle não tem a Propriedade "CAPTION".

[]s

Ah sim Mauro,

então na definição da Variável eu não coloco nenhum " As Object " né?

E só coloquei o nome txtData1 Data2, na verdade é label, era só pra agrupar todos os dados no mesmo grupo...

Colocando uma variável com integer, e a cada loop integer +1 teria jeito.

Pois você informou acima a variável xtxtData1, eu gostaria que o 1 fosse tratado como uma variável também, para facilitar a macro...

para isso eu uso xtxtData+n ou xtxtData&n ?

Arthur, você está querendo efeutar um Loop nos Controles, então não confunda as Propriedades "Caption com Name" :

Caption = é o Valor que atribuimos ao Controle
Name = Especifica o nome de um controle ou um objeto.

Então se entendi corretamente, o tópico abaixo é o que está procurando :
contar textBox
viewtopic.php?f=10&t=1759&hilit=Controls

É só adaptar ajustando o tipo do controle.

[]s

Sim Mauro, eu vou usar os controles, entendi oque você tinha falado.

O caption seria usado no comando IF

Pois é no caption desta label que está a data ( gerada por outro macro ), se esta data fosse igual a data final ( localizada em uma textbox ) ai sim o comando do loop seria executado, entendeu?

Muitíssimo obrigado pelo suporte, vou conferir o tópico citado...

Grande Mauro, segui o tópico que você enviou e é basicamente o que preciso, mais estou com muita dificuldade para adaptar...

Tentei de todas as maneiras mas não consegui, então vou importuná-los amigos...

Pelo que entendi nesta rotina ela vê o valor do textbox e se estiver vazio não conta, se estiver preenchido conta.

Tudo bem, mas meu problema é um pouco mais embaixo... Eu preciso adaptar esta rotina de maneira que ao acontecer o seguinte:

if DNA+i.caption = recebeout.value then
DNB+i.value = "Este é o último campo do Roteiro "

Onde DNA = txtData ( uma série de labels, denominadas txtData1, txtData2, txtData3 ) que recebem em suas captions as datas da viagem.
Onde DNB = txtRoteiro ( uma série de textboxes que são preenchidas com o roteiro referente a data )

Estão alinhadas frente a frente DNA e DNB de forma que na linha 1 do formulário tenho:

txtData1 e txtRoteiro1

eu precisava que esta rotina citada fosse adaptada para não só contar, mas ao verificar essa função if, pegar o i ( número da label ) e usar esse mesmo i na textbox, de forma que se a última data está na txtData7 ele automaticamente preenche a txtRoteiro7 com o valor que eu quero...

Acho que consegui me expressar melhor, desculpem mesmo pela ignorância no excel parceiros!

.

Arthur, em primeiro lugar peço que observe as Regras do forum quanto a dar Ups :
Nossas Regras
viewtopic.php?f=7&t=203

• POSTAGENS
Evite postagens seguidas desnecessárias e não faça "UP" para agilizar as respostas, se dentro de um prazo razoável não houver respostas revise o solicitado.

E sua última msg foi ontem a tarde, acho um espaço de tempo curto para estarmos cobrando por alguma resposta, e é logico, lenbre-se que toda a ajuda é voluntária.

Segundo, eu até entendi que quer fazer um Loop nos controles, mas realmente tentei compreender suas rotinas, em algumas partes você diz TextBox outras é Label, e seguir as nomenclaturas que deu a cada é um é de confundir.
Eu parto do principio que qdo estou criando algo, dou nome aos controles que o identifiquem, mas sempre acompanhado das iniciais que representam a qual controle estou me referindo, tipo : txtData para mim é um TextBox e você tem na rotina inicial txtData1 que acredito ser um textbox, depois você diz que tem uma série de labels, denominadas txtData1, txtData2, txtData3, que para mim seriam lblData1, lblData2, lblData3, e ainda temos algumas instruções como : DataINICIAL = recebeIN.Text, Datafinal = recebeOUT.Text, DNN, DNM, DNA, alias para esta última foi definino um valor fixo : DNA = "txtData", ou seja o texto "txtData".

Melhor parar por aqui, acho que já deu para entender, que dependendo de como está a rotina, só a analise da mesma conseguimos entender sem precisar de um modelo, por estas razões que acabamos nos perdendo dentro das rotinas e por consequencia não temos o resultado esperado.

Então, faça o seguinte, monte um exemplo reduzido, com os nomes de controles ajustados para que se possa identifica-los nas rotinas sem ter de ficar procurando em um formulário onde está e de que tipo é, explane melhor o que pretende e poste para podermos analizar melhor.

Lembrando sempre, que toda a ajuda é voluntária e tambem depende de tempo disponivel, então peço que tenha paciência.

[]s

Olá Mauro, entendi o posicionamento em relação aos nomes, na verdade eu nomeei de txtData as labels pois em um outro formulário já havia um comando de ao clicar no botão abrir esse segundo formulário do roteiro e preencher os textboxes ( antes eram textboxes ), no entanto pelo fato dos mesmos serem textboxes estava tendo um conflito em relação à disposição do texto dentro das mesmas ( estava muito para a esquerda, mesmo tendo colocado textalign center ), por isso troquei para labels, mas teria que trocar muitos nomes no outro formulário, e coloquei os nomes da maneira que estavam antes. Mil perdões...

Em relação ao up eu entendo e não dei up em nenhum post meu aqui no portal, entendo perfeitamente a questão da ajuda, e pra falar a verdade o trabalho aqui na agência está tão abarrotado hoje que só vi a sua postagem pelo forumplus notificator. Realmente não entendi o porque do assunto, mas entendo perfeitamente o que foi falado, acho que estou postando muito ultimamente, meu desejo é ajudar tanto quanto sou ajudado aqui no fórum, sempre tento abrir as novas postagens e se souber, compartilho o que sei, no entanto há dúvidas que nem sei por onde passam ( e ainda sou muito inciante em vba ), peço desculpas, mas em relação a up tenho certeza que não o efetuei, sempre frequento fórums e esse é o tipo de coisa consensual e indesejável a todos.

Quanto ao problema, vamos lá, vou tentar simplificar ao máximo. Vou trocar os nomes para ficar de melhor entendimento ( sei que fiz bobagem ao nomear as labels, por isso vou tentar mudar os nomes )

Esquema Simplificado do Formulário:

recebeIN
recebeOUT

lblData1 txtRoteiro1
lblData2 txtRoteiro2
lblData3 txtRoteiro3

Exemplo com valores:

20/01/2012 ( recebeIN )
23/01/2012 ( recebeOUT )

20/01/2012 Começo de Nossos Serviços, apresentação no aeroporto ( txtAeroporto ) com embarque para ( txtDestino ) , Hospedagem no hotel ( txtHotel ).
21/01/2012 Livre
22/01/2012 Livre
23/01/2012 Livre

- Porquê desse formato? Já consegui colocar em prática um comando para preencher as labels com as datas do destino inicial até o final.
-Coloquei também um comando que testa a data contida nas labels e se esta data for superior a data final, ele muda a visibilidade da label para false.
-Se os textboxes txtRoteiro estiverem vazios, ao apertar o botão salvar ele automaticamente muda o valor de todos para Livre.
-Por fim, no primeiro txtbox ( txtRoteiro1 ) coloquei também um comando que o preenche automáticamente falando quais serviços serão fornecidos no ato do embarque, e início da hospedagem.

O código que estou querendo é justamente para detectar qual é o último txtRoteiro visível ( que corresponde à última data da viagem ), para colocar um código que o preencha automáticamente como no primeiro campo dizendo: "Fim de nossos serviços, translado do hotel até o aeroporto...etc"

Eu já pensei em várias alternativas, e peço desculpas novamente por não ter explicitado minhas intenções iniciais, agora vejo que pode ter uma saída mais simples para resolver meu problema, e eu estava insistindo em um loop complexo.

Na verdade eu quero verificar qual é o último campo disponível para digitação ( o último visível ), eu tinha pensado em fazer essa verificação automática usando um comando que testasse as labels 1 por 1 para saber qual caption possui o mesmo valor da textbox nomeada recebeOUT ( referente a data final da viagem ), e como eu tinha nomeado as lblData e txtRoteiro da mesma linha com o mesmo NÚMERO, pensei que pudesse usar isso.

Agora que expliquei melhor, e peço novamente desculpas pela minha falta de atenção, será que vocês conseguem me ajudar a pensar em uma alternativa amigos?

Me retificando:

Mauro, você possuia a plena razão em ter mencionado os ups, assim que terminei de postar a minha última postagem ( acima ) chequei a primeira página do post, realmente possui um tópico com um ponto (.) realmente não entendi o porque disto ter aparecido, mas minha sócia informou ( atrasada, para variar ) que estava acessando o site de uma consolidadora parceira nossa para cotar uma passagem aérea, e ao abrir o mozilla em meu notebook de trabalho, as abas que estavam abertas: facebook, planilhando e google, foram restauradas, e ela tentou digitar o endereço do site e não percebeu que ao apertar o enter tinha selecionado sem querer o botão de resposta rápida ( imagino eu que tenha sido isto que tenha acontecido, ela tenha postado por engano, pois o relato dela foi o seguinte:

Arthur: Leila, você mecheu no meu computador hoje mais cedo?
Leila: Ah arthur, eu fui entrar no site da tourstar e a tela travou e eu apertei enter até ela parar de funcionar, isso que dá ficar mudando esse teclado pra inglês

)

Peço desculpas novamente, como não tinha acontecido, vou tomar cuidado para que nem esse tipo de acidente aconteça novamente, peço desculpas pelo constrangimento Mauro.

Arthur, minha obs do "UP" alem da razão que citou "tipo de coisa consensual e indesejável a todos", é tambem pelo fator que não só neste forum como em qq outro, qualquer contribuição é voluntária, e normalmente temos muitos colegas que estão sempre a disposição, e muitos solicitantes acham que teem de ter uma resposta imediata, que o pessoal tem 100% de tempo livre, eu acredito que imaginem isto, pelo fato de algumas duvidas serem solucionadas praticamente em tempo real, mas o que eles não veem é que muitos casos necessitam de uma analise mais criteriosa, e que tambem podemos não saber, eu mesmo neste forum no tóico do Maublue, não soube de imediato resolver a questão dele, e o próprio deu uma luz com uma sugestão que encontrou na Net, então fui atras, pesquisei, realizei vários testes com as soluções que encontrei, até chegar a umaresolução satisfatória, e isto levou alguns dias, então nem sempre se tem como dar uma resposta imediata, alem de que temos outros casos em que estamos trabalhando.

De qualquer forma, peço que não me entenda mau, a intensão não foi de chamar a sua atenção em particular, sei que não é de ficar dando "UPs", e sim, somente mostrar que temos este item nas regras, e calhou de ser em um "UP" em um tópico seu, que não teria como sabermos se foi outra pessoa que acabou fazendo isto.

Sendo assim, espero que aceite minhas desculpas, se te constrangi de alguma forma.

[]s

Arthur, voltando a sua questão, a intensão eu até entendi, mas veja bem, qdo não temos um exemplo para nos basear, eu leio e releio e procuro mentalizar as ações, que dependendo não precisamos de um modelo, e qdo possivel até crio um exemplo, e apesar de você explicar mais uma vez, ainda não consegui chegar a um denominador, então vamos lá :

Você disse :
Temos um comando para preencher as labels com as datas do destino inicial até o final.
Um comando que testa a data contida nas labels e se esta data for superior a data final, ele muda a visibilidade da label para false.
-Se os textboxes txtRoteiro estiverem vazios, ao apertar o botão salvar ele automaticamente muda o valor de todos para Livre.
-Por fim, no primeiro txtbox ( txtRoteiro1 ) coloquei também um comando que o preenche automáticamente falando quais serviços serão fornecidos no ato do embarque, e início da hospedagem.

O código que estou querendo é justamente para detectar qual é o último txtRoteiro visível ( que corresponde à última data da viagem ), para colocar um código que o preencha automáticamente como no primeiro campo dizendo: "Fim de nossos serviços, translado do hotel até o aeroporto...etc"
Pergunto : Quantos TextBox com o nome txtRoteiro temos ? São textbox ou Labels ?

Na verdade eu quero verificar qual é o último campo disponível para digitação ( o último visível ), eu tinha pensado em fazer essa verificação automática usando um comando que testasse as labels 1 por 1 para saber qual caption possui o mesmo valor da textbox nomeada recebeOUT ( referente a data final da viagem ), e como eu tinha nomeado as lblData e txtRoteiro da mesma linha com o mesmo NÚMERO, pensei que pudesse usar isso.
Como assim o último campo disponivel para digitação, se acima diz que tem algumas instruções que preenchem automaticamente os campos vazios ?Qual o tipo deste "Campo disponivel" ?
Testar os labels para saber qual tem o mesmo valor do textbox "recebeOUT", e, eu tinha nomeado as lblData e txtRoteiro da mesma linha com o mesmo NÚMERO.

Isso tudo me confundiu, realmente não consegui visualizar, o melhor mesmo seria você montar um modelo simplificado, com dados ficticios e postar, com certeza ficará mais fácil de assimilar e ajudar.

[]s