Acrescentando Um Valor A Variavel...

[Guest - Thiago Camargo -]

Nesta sub rotina o botão insere dados numa planilha excel, em que o usuário dá o número das coordenadas que devem ser inseridas...

Como fazer uma rotina em que o usuario não precise inplementar isso, ou seja eu declaro que as coordenadas iniciais serão 1 e a cada valor inserido esta coordenado vá aumentando de 1 em 1... tipo a variavel coordenada inicie com um e depois fazermos tipo assim... coordenada = coordenada + 1... ajudem por favor!

Private Sub Bot_copy_Click()

Dim Num_pt, Num_med, endereco As Integer

Dim adr, bdr As String

Num_med = Range("A36")

Num_pt = Range("A38")

If (Num_pt = 1) Then

endereco = 10 + Num_med + Num_pt

adr = "D" + Format(endereco)

ElseIf (Num_pt = 2) Then

endereco = 10 + Num_med + (Num_pt - 1)

adr = "H" + Format(endereco)

Else

endereco = 10 + Num_med + (Num_pt - 2)

adr = "L" + Format(endereco)

End If

If Sheets("TLARAD_cal").Range(adr) = "" Then

Sheets("Dados").Range("D48:D49").Select

Selection.Copy

Sheets("TLARAD_cal").Select

Sheets("TLARAD_cal").Range(adr).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

Application.CutCopyMode = False

Sheets("Dados").Select

Range("B15").Select

Application.CutCopyMode = False

Else

a = MsgBox("Campo já preenchido ! Verifique o n° do ponto a calibrar !", 0, "Atenção !")

End If

End Sub

[Rafael Portal]

Olá, estou fazendo alguma coisa parecida, mas não entendi o que você quer fazer... Tipo... você quer que a em cada registro ele mude de linha????

Rafael Portal

[Graymalkin]

Essa rotina é chamada mais de uma vez? Se for, você pode usar uma variável estática para manter o valor, exemplo:

static coordenada

Abraços,

Graymalkin

[Gedi]

Tente usar a propriedade "Cells" do excell, caso não fique claro procure no help do VBA dentro do Excell essa propriedade.

Exemplo:

Dim X as integer

For X = 1 to 10

'Selecionando linha por linha da coluna 1

Cells(X, 1).value

'Selecionando coluna por coluna da linha 1

Cells(1, X).Value

Next