VETOR /VBA

LEANDROFS 26/04/2013 17:47:15
#422586

Boa noite, sou novo no forum.
Estou tentando fazer uma macro para automatizar a tarefa de ler algumas células e enviar para outro programa o seu conteúdo.
Segue parte dele:

Dim linha, coluna
Dim codItem(3) As Integer
Dim item(3) As Integer

Sub Digitar3()
AppActivate [Ô]sem[Ô] [ô]abre bloco de notas
Application.Wait Now + TimeValue([Ô]00:00:01[Ô])


For linha = 6 To Range([Ô]D1[Ô]).Value

For coluna = 3 To Range([Ô]D2[Ô]).Value
SendKeys codItem(coluna).Value
SendKeys [Ô]~[Ô]
SendKeys item(linha).Value
SendKeys [Ô]~[Ô]
Next coluna

Next linha

A minha intenção é entrar no 2º for e enviar os textos das linhas e colunas ou seja.
Ele entra no 1º for e está na linha 6, entra na coluna 3 e envia a o coditem na posição 3 (coluna) e envia o item na posição 6 (linha), mas não funciona, dá um erro de qualificador que não entendi o porque de ele não pegar as posições.