Este fórum está sendo desativado

[glaubermoraes]

Fala galera,

preciso copiar um texto de uma outra pasta de trabalho, e colar na primeira celula vazia da coluna A e em seguida colar outro texto na primeira celula vazia da colua C.

Estou fazendo assim:

Range("A1048576").End(xlUp).Offset(5, 0).Value = "MOD " + i

mais está dandos tipos incompativeis.

Como posso fazer?

[Sandman]

boa tarde glauber, cara sempre que preciso localizar a proxima celula vazia faço da seguinte forma, ex:

Plan1.Range("a1").select

While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend

no final desse loop vc estara com o cursor posicionado na celula vazia, isso se for na vertical, se for na horizontal é só mudar o segundo parametro do Offset ficaria assim:

While ActiveCell.Value <> ""
ActiveCell.Offset(0,1).Select
Wend

espero que isso ajude

[daniexcel]

eu tenho um codigo que utilizo aqui tambem
de repente, é uma outra forma que pode ser util

Código: Selecionar todos

Sub colar()


'intervalo a ser copiado
    Sheets("_tmp").Visible = True
    Sheets("_tmp").Select
        Range("A2:c2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
            
'local onde os dados serão copiados, sempre na ultima linha disponivel
    Sheets("Plan1").Visible = True
     Sheets("Plan1").Select
    ULINHA = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
    Cells(ULINHA + 1, "a").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1").Select

                
                
      Sheets("Plan1").Select
      
       MsgBox "Os dados foram copiados", 64

End Sub

[glaubermoraes]

Fala galera valeu pela ajuda ai.

preciso realmente só localizar a ultima e atribuir o valor a ela que no caso é "MOD" + i

i é o valor do loop for