none
Lançar dados no excel através de vba RRS feed

  • Pergunta

    1. Caro amigo, venho aqui encarecidamente pedir sua ajuda...
       eu criei um pequeno controle de estoque aqui para o setor do almoxarifado da empresa que trabalho
      eu tô querendo fazer os lançamentos de entradas e saídas de produtos nas planilhas correspondentes em VBA,
      eu criei um userform e queria um  codigo onde percorreria toda a planilha e localizasse o produto e armazenasse as informações na data informada, mas confesso que não sei como.

      Por isso gostaria de sua ajuda, se fosse possível.

      Eis AQUI a planilha que eu criei

    • Editado Elionaldo quarta-feira, 27 de junho de 2012 21:59
    quarta-feira, 27 de junho de 2012 21:59

Respostas

  • Adapte a rotina abaixo para sua necessidade:

    Sub Exemplo()
        Dim s As String
        Dim lRow As Long
        
        s = "CALDO DE CARNE"
        
        lRow = EleOf(s, Sheets("Estoque").Columns("B"))
        
        If lRow > 0 Then
            MsgBox s & " existe na coluna B de 'Estoque' e seu unitário " & _
              "médio unitário é de " & Sheets("Estoque").Cells(lRow, "E")
        Else
            MsgBox s & " não existe na coluna B de 'Estoque'."
        End If
        
    End Sub
    
    Function EleOf(ByVal vTermo As Variant, ByVal vVetor As Variant) As Long
        'Retorna o número da linha ou coluna de uma célula numa linha ou coluna.
        'Se vVetor for uma Variant(), retorna o índice do elemento no vetor.
        'Caso não seja encontrada nenhuma ocorrência, é retornado 0.
        On Error Resume Next
        Select Case TypeName(vVetor)
            Case "Range"
                If vVetor.Columns.Count = 1 Then
                    'vVetor é uma coluna
                    EleOf = WorksheetFunction.Match(vTermo, vVetor, 0) + vVetor.Row - 1
                ElseIf vVetor.Rows.Count = 1 Then
                    'vVetor é uma linha
                    EleOf = WorksheetFunction.Match(vTermo, vVetor, 0) + vVetor.Column - 1
                End If
            Case "Variant()"
                EleOf = WorksheetFunction.Match(vTermo, vVetor, 0)
        End Select
    End Function


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 28 de junho de 2012 02:32
    Moderador