Ir para conteúdo
Fórum Script Brasil

Marco Freitas

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Tudo que Marco Freitas postou

  1. resolvi o problema: sub exemplo() workbooks("nome do workbook").activate label1.caption=activecell end sub obrigado na mesma
  2. Será que alguém me pode ajudar pessoal?
  3. Bem, tou quase a apresentar a minha tese, e falta-me uma pequena coisinha, espero que me possam ajudar. É assim: tenho dois ficheiros em excel. Um deles tem um botão de acesso a um formulário que está noutro ficheiro excel. Em anexo estão dois ficheiros Excel. O primeiro tem o botao que abre o userform do ficheiro2. Nesse userform o objectivo é que o valor que está no ficheiro 1 apareça ali. Gostaria de saber como faço, para fazer algo do tipo label1.caption=worksheets(activesheet.name).active cell queria que fosse algo dete tipo. O problema e que ao abrir o ficheiro 2, deixa de estar activo :( Por favor ajudem-me que pra semana já apresento a tese FIcheiros Excel
  4. Alguém por favor, estou mesmo a precisar de ajuda.
  5. Olá! Estou a tentar desenvolver duas comboboxes que são dependentes uma da outra, ou seja, quando na primeira seleciono algo na outra a lista muda conforme a selecção na primeira combobox. Eis o código que tenho: Sub UserForm_Initialize() Dim linha As Integer linha = 5 ComboBox1.Clear ComboBox2.Clear With Worksheets("Folha1") Do While .Cells(linha, 1).Value > "" ComboBox1.AddItem .Cells(linha, 1).Value linha = linha + 1 Loop End With 'Este select case serve para de acordo com o que se escolhe na combobox1, preencher e abrir outra combobox (a 2) With Worksheets("Folha1") linha = 4 Select Case ComboBox2.listindex Case 0 'Este é o index em que está o valor na combobox1 Do While .Cells(linha, 2).Value > "" ComboBox2.AddItem .Cells(linha, 2).Value linha = linha + 1 Loop Case 1 Do While .Cells(linha, 3).Value > "" ComboBox2.AddItem .Cells(linha, 3).Value linha = linha + 1 Loop End Select End With End Sub Espero que me ajudem, já tou a desesperar
  6. Parece qe consegui, de qualquer das formas aceitam-se comentários :) Podem usar à vontade Sub line() Const coluna1 As Long = 1 Const coluna2 As Long = 5 Dim i As Long Dim auxiliar As Long linha = InputBox("A partir de qual linha?") k = InputBox("Quantas linhas?") auxiliar = linha For i = 1 To k Step 1 With Application .Range(.Cells(linha, coluna1), .Cells(linha, coluna2)).Select End With Selection.Insert Shift:=xlDown linha = linha + 1 Next i With Application .Range(.Cells(linha, coluna1), .Cells(linha, coluna2)).Copy .Range(.Cells(auxiliar, coluna1), .Cells(linha, coluna2)).Select Selection.PasteSpecial xlPasteAll End With Application.CutCopyMode = False 'Desactiva o método de cópia End Sub
  7. Olá, estou a precisar de ajuda no VBA, pois ainda estou a começar a aprender a trabalhar naquilo. Entretanto fiz um código para adicionar linhas e copiar/colar uma linhas qe contém formulas. No entanto, ao testar, por exemplo, se pedir 7 linhas ele dá umas 100. Não percebo o erro, alguém me pode ajudar? A coluna é fixa, não preciso de adicionar... O código é este: Sub line() Const coluna1 As Long = 1 Const coluna2 As Long = 6 Dim i As Long Dim auxiliar As Long linha = InputBox("A partir de qual linha?") k = InputBox("Quantas linhas?") auxiliar = linha For i = linha To linha + k With Application .Range(.Cells(linha, coluna1), .Cells(linha, coluna2)).Select End With Selection.Insert Shift:=xlDown linha = linha + 1 Next i With Application .Range(.Cells(linha, coluna1), .Cells(linha, coluna2)).Copy .Range(.Cells(auxiliar, coluna1), .Cells(linha, coluna2)).PasteSpecial xlPasteAll End With Application.CutCopyMode = False 'Desactiva o método de cópia End Sub
×
×
  • Criar Novo...