Jump to content
Fórum Script Brasil

JoséA

Membros
  • Content Count

    114
  • Joined

  • Last visited

Community Reputation

0 Neutro

About JoséA

Perfil

  • Gender
    Male
  • Location
    Cel. Fabriciano/MG

Recent Profile Visitors

1291 profile views
  1. Obrigado Jose A. 

    Resolveu meu problema tambem....

     

  2. JoséA

    List Box

    'QUANDO O ITEM É CLICADO NO LISTBOX, FOCA NA CÉLUAL CORRESPONDENTE Private Sub listBox1_Click() Dim Employee As Variant Dim Name As String Dim firstaddress As String Employee = Empty 'SE PRECISAR MAIS DE 500 LINHAS É SÓ ALTERAR ABAIXO With ActiveSheet.Range("a1:a500") Name = ListBox1.Value Set Employee = .Find(what:=Name, LookIn:=xlValues) If Not Employee Is Nothing Then Employee.Rows.EntireRow.Select Else Exit Sub End With 'FECHA O FORM QUANDO CLICA NO NOME 'Unload Me Set Employee = Nothing
  3. JoséA

    Filtro

    Mostre o que já tem pronto :rolleyes:
  4. Para lançar datas na plan utilize a função CDate: CDate(campodata.Value)
  5. Há algo aquí: http://www.tomasvasquez.com.br/forum/viewt...f=22&t=1594
  6. Mostra o seu arquivo... Feliz Ano Novo à todos. :wub:
  7. JoséA

    VERIFICAR DATA ATUAL

    O importante é que deu certo. :unsure:
  8. JoséA

    VERIFICAR DATA ATUAL

    Tente assim... Sub Data() Cells.Find(What:=CDate(Date), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate End Sub
  9. Porque na sua macro há uma instrução para selecionar uma área da Plan "Análise MOV" Sheets("Análise MOV").Cells(i, "C").Select Para resolver o caso insira que ative a Plan "Análise MOV" e depois retorne para Plan desejada. Sub InsereLinha() Dim i As Long For i = 50007 To 1 Step -1 If Sheets("Análise MOV").Cells(i, "C") = Sheets("Config").Cells(3, "I") Then Sheets("Análise MOV").Select Sheets("Análise MOV").Cells(i, "C").Select Selection.EntireRow.Insert Sheets("Config").Cells(3, "I").Copy Selection.PasteSpecial Paste:=xlPasteValues Sheets("Config").Cells(3, "J").Copy ActiveCell.Offset(0,
  10. Penso que esse tópico poderá lhe ajudar. :blink: http://www.babooforum.com.br/forum/index.p...vb/page__st__20
  11. JoséA

    SOMA

    Mostar como esta fazendo...
  12. Tem vários fóruns que disponhem de muito material para download, confira: http://www.vbaexcelforum.com/ http://info.abril.com.br/forum/viewforum.php?f=149 http://www.tomasvasquez.com.br/forum/index.php http://www.babooforum.com.br/forum/index.p...owerpoint-word/ http://forum.clubedohardware.com.br/microsoft-office/f48 http://tudosobrexcel.com/excel_forum/index...e2fcddeaaf98323 http://social.msdn.microsoft.com/Forums/pt/vbapt/threads dentre outros...
  13. Segue um exemplo com alteração utilizando o controle ListBox... http://www.4shared.com/document/uAMIZxp0/ListboxAlterar.html
×
×
  • Create New...