Chico Xavier

Caros, dúvida básica mas não consigo resolver de jeito algum. Tenho um formulário com vários text-boxs e um como-box que me trará dados de nomes de equipe. Ex: AR, AT, BMB. Dados simples. Porém não consigo trazer esses dados para o meu combobox. Já tentei adicionar tb em RowSource do combox, me diz valor de propriedade não e valido. Fiz um teste simples em outra pasta de trabalho e consegui. O código encontra-se assim: Private Sub UserForm1_Initialize() Dim bd As Database Dim rs As Recordset Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "EXCEL 8.0") Set rs = bd.OpenRecordset("Prod-Acompanhamento$", dbOpenDynaset) If Me.TextBox1 = "" Then Me.TextBox1 = "-" End If If Me.ComboBox1 = "" Then Sheets("Plan2").Activate Me.ComboBox1.RowSource = "Plan2!A2:A9" End If If Me.TextBox3 = "" Then Me.TextBox3 = "-" End If If Me.TextBox4 = "" Then Me.TextBox4 = "-" End If If Me.TextBox5 = "" Then Me.TextBox5 = "-" End If If Me.TextBox6 = "" Then Me.TextBox6 = "-" End If If Me.TextBox7 = "" Then Me.TextBox7 = "-" End If If Me.TextBox8 = "" Then Me.TextBox8 = "-" End If If Me.TextBox9 = "" Then Me.TextBox9 = "-" End If If Me.TextBox10 = "" Then Me.TextBox10 = "-" End If If Me.TextBox11 = "" Then Me.TextBox11 = "-" End If Dim CADASTRO(1 To 11) CADASTRO(1) = UCase(Me.TextBox1) CADASTRO(2) = UCase(Me.ComboBox1) CADASTRO(3) = UCase(Me.TextBox3) CADASTRO(4) = UCase(Me.TextBox4) CADASTRO(5) = UCase(Me.TextBox5) CADASTRO(6) = UCase(Me.TextBox6) CADASTRO(7) = UCase(Me.TextBox7) CADASTRO(8) = UCase(Me.TextBox8) CADASTRO(9) = UCase(Me.TextBox9) CADASTRO(10) = UCase(Me.TextBox10) CADASTRO(11) = UCase(Me.TextBox11) Dim UserForm1 As Object Dim L, I Set UserForm1 = Plan1.Cells(1, 1).CurrentRegion L = Plan1.Range("A65536").End(xlUp).Row + 1 For I = 1 To 11 Plan1.Cells(L, I).Value = Trim(CADASTRO(I)) Next I MsgBox "CADASTRADO", vbInformation, " COM SUCESSO" ThisWorkbook.Save End Sub Já tentei com: With ComboBox1 .AddItem "Acre" .AddItem "Ceará" .AddItem "Maranhao" End With com: Dim r As Range For Each r In ThisWorkbook.Worksheets("Prod-Equipe").Range("A2:A9").Rows Me.ComboBox1.AddItem Next r porém os dados não vem. Acredito que não deva estar referenciando esses dados corretamente. Agradeço um help nessa situação. Atenciosamente, Francisco Xavier

Muito obrigado Paulo, resolveu meu problema. Abraço

Olá a todos, Fiz um formulário para inserção de dados. O código já insere os dados na planilha, porém essa planilha já contém dados anteriormente inseridos e ele insere os dados nas linhas de cima, sobrescrevendo dados anteriores. Gostaria de inserir esses dados à partir do último dado inserido, na coluna A da planilha. Ex: útlimo dado esteja na linha 34, inserir dados novos na linha 35 começando na coluna A. O código está assim: Private Sub CommandButton1_Click() Dim bd As Database Dim rs As Recordset Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "EXCEL 8.0") Set rs = bd.OpenRecordset("Prod-Acompanhamento$", dbOpenDynaset) If Me.TextBox1 = "" Then Me.TextBox1 = "-" End If If Me.TextBox2 = "" Then Me.TextBox2 = "-" End If If Me.TextBox3 = "" Then Me.TextBox3 = "-" End If If Me.TextBox4 = "" Then Me.TextBox4 = "-" End If If Me.TextBox5 = "" Then Me.TextBox5 = "-" End If Dim CADASTRO(1 To 5) CADASTRO(1) = UCase(Me.TextBox1) CADASTRO(2) = UCase(Me.TextBox2) CADASTRO(3) = UCase(Me.TextBox3) CADASTRO(4) = UCase(Me.TextBox4) CADASTRO(5) = UCase(Me.TextBox5) Dim UserForm1 As Object Dim L, I Set UserForm1 = Plan1.Cells(1, 1).CurrentRegion L = UserForm1.Rows.Count + 1 For I = 1 To 5 Plan1.Cells(L, I).Value = Trim(CADASTRO(I)) Next I MsgBox "CADASTRADO", vbInformation, " COM SUCESSO" ThisWorkbook.Save End Sub Já tentei alguma alterações porém não surtiram efeito. Solicito um help na alteração do código para inserção na linha vazia após último dado. Atenciosamente, Francisco Xavier

Bom dia, Sou iniciante em VBA e tenho uma dúvida ao que parece simples: tenho uma planilha que contém alguns dados. No cabeçalho dessa planilha inseri um botão "Inserir dados" para a inserção de dados. Porém quero que a inserção desse novo dado seja na célula vazia após o último dado da primeira coluna da planilha. Tentei o código: Sub inserir_dados() Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True End Sub porém ele só insere na última célula vazia quando clico na coluna que eu quero, e não na primeira. Quero a inserção na coluna A. Atenciosamente, Francisco Xavier

O problema é que só consigo criar uma partição, seja ela /, /boot ou swap. A partir da segunda não deixa.

Isso mesmo que to fazendo Vinny. 100 gb ocupados pelo vista e os outros 49 gb estão como espaço não alocado. A instalação está sendo feita nesses 49 gb. Porém só me deixa criar uma partição, a partir da seguna ele me gera a mensagem de erro! Tenho que ter no minimo três (swap, / e /boot).

Quero sim Vinny. Deixei uma partição de 100 gigas pra windows e outra de 49 pra linux. Porém dá a mesma mensagem que apareceu pra você. Como formatar essa partição pra instalação? Ou existe algum outro jeito? Abraço Coloco primeiramente uma partição de 512 mb para swap, e ele aceita. Porém quando vou criar /(30gb) e /boot(100mb), gera esse mensagem.

Aparece sempre que tento criar /boot e / Caro Vinny, conseguiu resolver este problema?. Ontem fui instalar o Fedora 10 e deu essa mesma mensagem!