[Inserção de dados simples em combobox.]

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

[Inserção de dados a partir de formulário]

Muito obrigado Paulo, resolveu meu problema.

Abraço

[Inserção de dados a partir de formulário]

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

[Macro p/ inserção de dados]

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

[[Ajuda] Instalar Fedora]

Tenta instalar sem a partiçao swap, somente se quiser, pois podem existir varios motivos para a instalação exibir este erro.

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

[[Ajuda] Instalar Fedora]

Primeiramente, deixe o espaço para o Fedora livre, como se seu hd tivesse apenas os 100 gb, entendeu?

Dai é so colocar seu cd/dvd no drive, reiniciar o pc e começar a instalação.

--------------

Bom, Chico eu fiz o seguinte, não criei a partição swap.

A partição swap é a memoria virtual, no meu pc roda muito bem, mas cada caso é um caso.

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).

[[Ajuda] Instalar Fedora]

Sim, consegui.

você precisa de ajuda para instalar?

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

Sim, consegui.

você precisa de ajuda para instalar?

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.

[[Ajuda] Instalar Fedora]

Agora o problema é esse:

ERRO ao Particionar

Não foi possível alocar as partições requisitadas

Pastitioning failed: Não foi possível aloca as partições

como partições primárias.

Not enoungh space left to create partition for /boot.

Aparece sempre que tento criar /boot e /

Caro Vinny, conseguiu resolver este problema?. Ontem fui instalar o Fedora 10 e deu essa mesma mensagem!