Ajuda em VBA

[tfb100]

olá,

estou fazendo um programa em excel e ele precisa adicionar tabelas, até ai tudo bem, porém por padrão quando se add uma tabela ela recebe o nome de "Plan1" até ai ta legal e cadastra com sucesso.

o problema é: quando eu add outra tabela o nome já não vai se mais "plan1",

o nome se tornara "plan2"

coloquei uma variavel contadora (p) porém ela sempre começa em 1

quando a planilha tiver o nome de "Plan2" ele da pau e não cai no else ali

Do While achou = True

If Sheets("Plan" & p).Name = ("Plan" & p) Then

Sheets("Plan" & p).Name = UCase(Plan1.Range("b5"))

Exit Do

Else

p = p + 1

End If

Loop

queria saber se tem como eu add uma planilha e ja pegar o nome dela?

ex:

Sheets.Add

'eu add a planilha e conseguir pegar o nome dela

obrigado!

[crudo]

Dim SuaPlan as Worksheet

Set SuaPlan = Sheets.Add

MsgBox SuaPlan.Name

[akrauss]

Gostaria de aproveitar a duvida em vba e perguntar:

Tenho alguns dados em uma planilha em excel.

Gostaria de consutar esse dados (para não haver duplicidade) e incluir dados novos que serão informados por textbox's!!!!

como faço isso?

consegui criar o modulo de importação mas não o de consulta:

Segue codigo:

Private Sub CommandButton1_Click()

Dim intLinha As Integer

intLinha = ThisWorkbook.Worksheets("Plan1").Range("A65536").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 1) = TextBox1

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 2) = TextBox2

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 3) = TextBox3

End Sub

obs.: A consulta deve ser feita na propria planilha do excel

grata!

[crudo]

Gostaria de aproveitar a duvida em vba e perguntar:

Tenho alguns dados em uma planilha em excel.

Gostaria de consutar esse dados (para não haver duplicidade) e incluir dados novos que serão informados por textbox's!!!!

como faço isso?

consegui criar o modulo de importação mas não o de consulta:

Segue codigo:

Private Sub CommandButton1_Click()

Dim intLinha As Integer

intLinha = ThisWorkbook.Worksheets("Plan1").Range("A65536").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 1) = TextBox1

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 2) = TextBox2

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 3) = TextBox3

End Sub

obs.: A consulta deve ser feita na propria planilha do excel

grata!

Como você pretende fazer essa consulta? Busca pelo nome e coloca ele no textbox?

Se der coloca um link para download da sua planilha, assim fica mais fácil de entender.

[tfb100]

baa muito obrigado

não conhecia alguns comandos ali, e me foram muito úteis!!!

valeuu!

[akrauss]

então..

O usuario escolhe o mes e o ano atraves do combobox e digita um valor em um txt's ex.: 2.000 (tem como colocar um mascara, ou coisa parecida?, pois os dados tem que ser formatados [para o usuario visualizar tb] e inseridos da planilha como dinheiro ( R$ 999.999,99)!

Antes de salvar a informação na planilha o sistema deve efetuar um consulta e verificar se o mes e o ano escolhido ja foi atribuido algum valor, pois não pode ter duplicidade

qualqer duvida me add no msn e eu explico melhor caso não tenha entendido

Grata

[email protected]