Midori

@CrazyGladiator Coloque este bloco antes do retrun da função (fora do loop) para pegar a última letra, if(conta==0) novaPlalavra = novaPlalavra + letra; if(conta>0){ conta++; novaPlalavra = novaPlalavra + letra + conta; }

@CrazyGladiator Você está usando WriteLine da forma errada, Tem que ser assim, static void Main(string[] args){ Console.WriteLine(contaLetra("jjjjooaoo")); }

Com essas alterações eu consegui rodar sem erro... Posta o seu código completo.

@CrazyGladiator Remova esta linha, conta = conta; E em Main use WriteLine para exibir a palavra.

Inicie fazendo estas atribuições, string novaPlalavra = ""; string letra = ""; int conta = 0;

Antes de retornar o valor você vai ter que fazer mais uma verificação na variável conta para pegar a última letra

Já tem um tópico sobre isso, veja se ajuda

@josequali Para abrir o pdf, Dim WScript As Object Set WScript = CreateObject("WScript.Shell") WScript.Run """" & wordbusca.Text & """"

Apenas declare essas variáveis na função. novaPalavra será o retorno da função (return novaPalavra).

@CrazyGladiator No For da função use uma variável inteira para contar a quantidade de letras seguidas iguais. Fazendo a comparação você pode ir concatenando a letra e o contador para formar a palavra compactada, if(letra == palavra.Substring(i, 1)){ conta++; }else{ if(conta==0) novaPalavra = novaPalavra + letra; if(conta>0){ conta++; novaPalavra = novaPalavra + letra + conta; } conta = 0; } letra = palavra.Substring(i, 1);

@alissonpb Deixe as declarações fora do escopo do while, main() { int n1, n2, op, r; do { ... E compare assim, while (r == 1); Da outra forma você estava comparando o caractere r com 1.

Essa sub deve ser chamada pela Start, veja se isso está sendo feito corretamente. Quando a sub Tempo está em execução não vejo motivo para parar apenas selecionando outra aba. Para entender melhor o problema teria que verificar a planilha.

Para inserir um delay use a função Wait no For, p.ex Application.Wait Now + TimeValue("00:00:01") Assim vai acontecer um delay de 1 segundo em cada ciclo.

Considerando as colunas 7 e 8 Sub ExcluirLinhas() Dim L, C As Long L = 2 Do Until Cells(L, 7) = "" If Cells(L, 7) <> Cells(L, 8) Then Cells(L, 1).EntireRow.Delete C = C + 1 L = L - 1 End If L = L + 1 Loop If C Then MsgBox C & " linhas excluídas" End Sub

@josequali Para abrir o arquivo do word coloque no botão do formulário, Dim Doc As Object Set Doc = CreateObject("Word.Application") Doc.Documents.Open wordbusca.Text Doc.Visible = True

@Tazio Cavalheiro Viadana Tente automatizar esse processo com macro. Veja se este tópico ajuda,

@josequali Se entendi qual é o problema isso acontece quando a planilha da macro em execução não está ativa. Para evitar esse erro você pode usar ThisWorkbook, ThisWorkbook.Worksheets("Teste").Range("A1") = "Valor" Assim a macro vai sempre pegar a planilha/aba correta. Sem ThisWorkbook a macro vai procurar a aba Teste em qualquer planilha que estiver ativa.

@misterjohn Esse código é macro/VBA do Excel.

@Ismael Souza Em Format use apenas Date, sem Month, mes = UCase(Format(Date, "MMMM"))

@Ismael Souza Pode ser assim, mes = UCase(Format(Month(Date), "MMMM"))

@Gilberto_Silva Você não fez como eu expliquei no último post. Veja que eu modifiquei a Sub ExcluiPlanilhas, agora ela tem um parâmetro que espera um array com os nomes das planilhas. E assim não tem como rodar, a função Filter tem parâmetros predefinidos, veja a sintaxe dessa função: Filter(sourcearray, match, [ include, [ compare ]]) Quando usei essa função passei Exceto para sourcearray, P.Name para match e vbTextCompare para compare. Use a última Sub que postei, não precisa alterar basta passar os nomes das planilhas como argumento da função assim, Call ExcluiPlanilhas(Array("Base de Dados,Controle de Conciliação,COLAR BALANCETE (CSV),BALANCETE"))

@Gilberto_Silva Acrescentando um parâmetro na Sub ExcluiPlanilhas é possível informar as planilhas que não devem ser excluídas, Sub ExcluiPlanilhas(Exceto As Variant) Dim P As Worksheet Dim R As Range Set R = ThisWorkbook.Worksheets("BALANCETE").[A:A] For Each P In ThisWorkbook.Worksheets If R.Find(What:=P.Name, LookAt:=xlWhole) Is Nothing Then If UBound(Filter(Exceto, P.Name, , vbTextCompare)) = -1 Then Application.DisplayAlerts = False P.Delete Application.DisplayAlerts = True End If End If Next P End Sub Quando chamar a sub informe os nomes das planilhas, p.ex. Call ExcluiPlanilhas(Array("Balancete,X,Y"))

@Gilberto_Silva Você pode usar uma Sub para chamar as outras, Sub Executar() Call InsereHiperlinks Call CONCILIAR_CONTAS Call ExcluiPlanilhas End Sub

@josequali Use ThisWorkbook e informe o nome da guia em Worksheets, p.ex Me.Txt1.Value = ThisWorkbook.Worksheets("Guia1").Range("A1").Value ... Me.Txt2.Value = ThisWorkbook.Worksheets("Guia2").Range("A1").Value

Para carregar o option você usar For Each no frame e comparar o caption com o valor da célula, p.ex Dim OptIncidente As Object ... For Each OptIncidente In Frame1.Controls If OptIncidente.Caption = [A1] Then OptIncidente.Value = True End If Next OptIncidente Aí faço uma comparação simples com A1, mas você pode adaptar para o seu caso...