Gostaria de uma ajuda em macros

[wilherme]

Bom dia pessoal sou iniciante nisso ainda e não sei bem como fazer e gostaria de umas dicas de como fazer isso:

Elaborar uma Macro:

Cadastro de turma até 10 aluno(nome da turma, serie da turma,numero da sala dessa turma)

importe dados de um aluno(nome, sobrenome, data de nascimento, endereço completo, serie a cursar)

Ao importar o esses dados que virão em formato excell, o sistema deverá calcular a idade do aluno automaticamente,

adicionar uma foto e inserilo em uma turma previamente cadastrada(combo).

Ao terminar o cadastro do aluno quero que isso seja gravado em outra aba dentro da turma correepondente.

Os dados nessa outra aba serão (numero do aluno(id crescente), nome)

Estou tentando mas não consigo estou bastante confuso ainda.

Att:

Wilherme Constantinov Mattos

[wilherme]

Porque ninguém me ajuda?

Bom dia pessoal sou iniciante nisso ainda e não sei bem como fazer e gostaria de umas dicas de como fazer isso:

Elaborar uma Macro:

Cadastro de turma até 10 aluno(nome da turma, serie da turma,numero da sala dessa turma)

importe dados de um aluno(nome, sobrenome, data de nascimento, endereço completo, serie a cursar)

Ao importar o esses dados que virão em formato excell, o sistema deverá calcular a idade do aluno automaticamente,

adicionar uma foto e inserilo em uma turma previamente cadastrada(combo).

Ao terminar o cadastro do aluno quero que isso seja gravado em outra aba dentro da turma correepondente.

Os dados nessa outra aba serão (numero do aluno(id crescente), nome)

Estou tentando mas não consigo estou bastante confuso ainda.

Att:

Wilherme Constantinov Mattos

[zinhovba]

Tente se basea nesta planilha..e dpois vejamos como podemos implementar o restante..

http://www.4shared.com/document/8_wFTAfK/M...SPORTEII_2.html

Att..

[wilherme]

Tenho essa tela:

Na tela aluno ele se cadastra e vai inserir uma foto dele, ate ai tudo bem...

Na tela escola clico no botão importar e me traz todas as informações do espectivo aluno menos a foto dele...

Como faço para importar a foto junto?

Wilherme Constantinov Mattos

[JoséA]

Mostre o seu arquivo...

[wilherme]

Como assim: mortrar meu arquivo?

[wilherme]

O que será que esta errado no meu codigo fonte?

Codigo da minha tela de CadastroEscola

**************************************************

Private Sub ImpExcel()

Dim xlWorkSheet As Excel.Worksheet

'Dim dataAtual As Date

'Dim dataNasc As Date

Dim xl As New Excel.Application

Dim xlw As Excel.Workbook

Dim idade As Long

'Abrir o arquivo do Excel

Set xlw = xl.Workbooks.Open(Application.GetOpenFilename(fileFilter:="xls Files (*.xls), *.xls"))

'xlWorkSheet = xlw.Worksheets("Plan1")

'Definir qual a planilha de trabalho

xlw.Sheets("Plan1").Select

'Exibe o conteúdo da célula na posição 2,3

' variavel = xlw.Application.Cells(2, 3).Value

'MsgBox xlw.Application.Worksheets(1).txtNome.Text

'dataAtual = Now.Date

'dataNasc = Parse.Date(txtNascimento.Text)

'Preenche os TextBox do formulário a partir dos dados do arquivo excel importado

TextBox5.Text = xlw.Application.Worksheets(1).TextBox1.Text

TextBox6.Text = xlw.Application.Worksheets(1).TextBox2.Text

TextBox8.Text = xlw.Application.Worksheets(1).TextBox4.Text

TextBox1.Text = xlw.Application.Worksheets(1).TextBox5.Text

TextBox7.Text = 2011 - (Mid(xlw.Application.Worksheets(1).TextBox3.Text, 7, 10))

' Image2.Picture = xlw.Application.Workbooks(1).Image1.Picture

'Image2.Picture = LoadPicture(xlw.Application.Worksheets(1).Image1)

'Image2.Picture = xlw.Application.Worksheets(1).Image1.Text ' aaaaaa

' Fechar a planilha sem salvar alterações

' Para salvar mude False para True

xlw.Close False

' Liberamos a memória

Set xlw = Nothing

Set xl = Nothing

End Sub

Private Sub CommandButton12_Click()

ImpExcel

End Sub

'Private Sub CommandButton1_Click()

Private Sub CommandButton_Seleciona_Click()

Exibe_Caixa_Dialogo

End Sub

End Sub

Private Sub CommandButton_Click()

Exibe_Caixa_Dialogo

End Sub

****************************************************************

Codigo da minha tela CadastroAluno

****************************************************************

Private Sub CommandButton_Seleciona_Click()

Exibe_Caixa_Dialogo

End Sub

Sub Exibe_Caixa_Dialogo()

Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker)

With CaixaDialogo

.Title = "wilherme"

.InitialView = msoFileDialogViewPreview

.AllowMultiSelect = False

If .Show = -1 Then

EnderecoImagem = .SelectedItems(1)

Image1.Picture = LoadPicture(.SelectedItems(1))

End If

End With

End Sub

Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

Private Sub CommandButton5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

TextBox2.Activate

End If

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

'Private Sub CommandButton4_Click()

Private Sub UserForm1_Initialize()

AtualizaListaEstados

CadastroCodigo = Dados.Range("CodCalc").Value + 1

TextBox_Codigo.Value = CadastroCodigo

AtualizaComboBoxPesquisa

End Sub

Private Sub CommandButton5_Click()

End

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

TextBox2.Activate

End If

End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

TextBox3.Activate

End If

End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

TextBox4.Activate

End If

End Sub

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

TextBox5.Activate

End If

End Sub

Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then

CommandButton1.Activate

End If

End Sub

***********************************************************************

[JoséA]

Tu disponibilizastes imagens, sugiro que mostre a planilha que tens pronto. :rolleyes:

[João.Neto]

Esse código pode te dar uma ajudar, se eu endendi direito o teu problema:

Image1.Picture = LoadPicture("d:\1.bmp")