Mauro Meira

Bom Dia Renato Vê se isso resolve Imagem Se não conseguir baixar passe seu e-mail que envio para você. SDS Mauro

Boa Tarde a todos Por favor, preciso de uma função para separar números de uma linha em outras duas linhas como modelo abaixo, quando escolher os números na 1ªlinha, os demais já entraria automaticamente na 2ª linha. Grato Mauro

Bom Dia a Todos Gostaria da ajuda de Vc´s neste arquivo, pequei uma macro que um colega fez pra mim, esta macro faz combinações de números, mas esses valores apresentam na listbox sempre a mesma sequência de números de 1 á ...., eu gostaria que estas combinações fosse através dos números discritos na TextBox4 , segue figura de exemplo e código. Grato a Todos Mauro Public Function Combinacoes(Grupo As Integer, Elementos As Integer) As Long If Elementos < 1 Or Grupo < 1 Or Elementos > Grupo Then Exit Function ' M!/(M-N)!/N! convertida 'Combinações = Factorial(Grupo) / Factorial(Grupo - Elementos) / Factorial(Elementos) Dim T As Double, a As Integer T = 1 For a = 1 To Grupo - Elementos T = T * (a + Elementos) / a Next a Combinacoes = T End Function Public Function GetSeqCombinacoes(Grupo As Integer, Elementos As Integer, NrComb As Long) As Integer() Dim a As Integer, b As Integer, c As Integer Dim N As Double, m As Double, SS() As Integer If NrComb < 1 Then NrComb = 1 If NrComb > Combinacoes(Grupo, Elementos) Then Exit Function N = NrComb - 1: c = Grupo ReDim Preserve SS(Elementos) For a = Elementos To 1 Step -1 For b = c To a Step -1 m = Combinacoes(b - 1, a) If N >= m Then N = N - m SS(a) = b c = b - 1 Exit For End If Next b Next a GetSeqCombinacoes = SS End Function Public Function NumsSeqCombinacoes(Grupo As Integer, Elementos As Integer, NrComb As Long, Optional Separador As String = " ") As String Dim I As Integer, S As String Dim NRS() As Integer NRS = GetSeqCombinacoes(Grupo, Elementos, NrComb) If UBound(NRS) <> Elementos Then Exit Function If Elementos > 0 Then S = NRS(1) For I = 2 To Elementos S = S & Separador & NRS(I) Next I NumsSeqCombinacoes = S End Function 'Formulário Private Sub CommandButton1_Click() ListBox1.Clear Dim I As Long, T As Double Dim N As Integer, E As Integer N = Val(TextBox1.Text) E = Val(TextBox2.Text) T = Combinacoes(N, E) Label6.Caption = T If T > 1000 Then T = 1000 'Limite optional para não sobrecarregar a listbox For I = 1 To T ListBox1.AddItem NumsSeqCombinacoes(N, E, I) Next I End Sub

Bom Dia a Todos Gostaria da ajuda de Vc´s neste arquivo, pequei uma macro que um colega fez pra mim, esta macro faz combinações de números, mas esses valores apresentam na listbox sempre a mesma sequência de números de 1 á ...., eu gostaria que estas combinações fosse através dos números discritos na TextBox4 , segue figura de exemplo e código. Grato a Todos Mauro Public Function Combinacoes(Grupo As Integer, Elementos As Integer) As Long If Elementos < 1 Or Grupo < 1 Or Elementos > Grupo Then Exit Function ' M!/(M-N)!/N! convertida 'Combinações = Factorial(Grupo) / Factorial(Grupo - Elementos) / Factorial(Elementos) Dim T As Double, a As Integer T = 1 For a = 1 To Grupo - Elementos T = T * (a + Elementos) / a Next a Combinacoes = T End Function Public Function GetSeqCombinacoes(Grupo As Integer, Elementos As Integer, NrComb As Long) As Integer() Dim a As Integer, b As Integer, c As Integer Dim N As Double, m As Double, SS() As Integer If NrComb < 1 Then NrComb = 1 If NrComb > Combinacoes(Grupo, Elementos) Then Exit Function N = NrComb - 1: c = Grupo ReDim Preserve SS(Elementos) For a = Elementos To 1 Step -1 For b = c To a Step -1 m = Combinacoes(b - 1, a) If N >= m Then N = N - m SS(a) = b c = b - 1 Exit For End If Next b Next a GetSeqCombinacoes = SS End Function Public Function NumsSeqCombinacoes(Grupo As Integer, Elementos As Integer, NrComb As Long, Optional Separador As String = " ") As String Dim I As Integer, S As String Dim NRS() As Integer NRS = GetSeqCombinacoes(Grupo, Elementos, NrComb) If UBound(NRS) <> Elementos Then Exit Function If Elementos > 0 Then S = NRS(1) For I = 2 To Elementos S = S & Separador & NRS(I) Next I NumsSeqCombinacoes = S End Function 'Formulário Private Sub CommandButton1_Click() ListBox1.Clear Dim I As Long, T As Double Dim N As Integer, E As Integer N = Val(TextBox1.Text) E = Val(TextBox2.Text) T = Combinacoes(N, E) Label6.Caption = T If T > 1000 Then T = 1000 'Limite optional para não sobrecarregar a listbox For I = 1 To T ListBox1.AddItem NumsSeqCombinacoes(N, E, I) Next I End Sub

Bom Dia a Todos Podem me ajudar com uma macro, na verdade duas, gostaria de imprimir 10 vezes a mesma planilha,no entanto, para cada impressão gostaria que apenas a célula "A1" mudasse o texto isso por que esta planilha de todo o conteúdo apenas esta célula “A1” teria esta alteração mas que isso fosse a partir de sua impressão, na impressão normal, e outra macro com esta mesma finalidade em PDF, ou seja, as dez planilhas com alteração na célula “A1” em um único arquivo PDF. Obrigado a Todos Abraço Mauro

Boa Noite Amigos do Forum Venho pedir a ajuda de Vc´s, gostaria de fazer um form com duas textbox para abrir e preencher os campos de senha e usuário, e mais ou menos assim, através desta form quando fosse preenchida os textbox, abre a página da web e já com as caixas de textos da página fosse preenchidas automaticamente já fazendo o login e abrindo a página seguinte, será possível, acredito que sim, já pesquisei no google mas não consegui nada por enquanto. OBS: Este form é no EXCEL dentro de uma planilha. VBA-Excel Grato pela ajuda de todos e principalmente quem conseguir me salvar Abraço a todos Mauro