Concatenar celulas
 
Notifications
Clear all

Concatenar celulas

3 Posts
3 Usuários
0 Reactions
94 Visualizações
(@souzadenilson)
Posts: 99
Estimable Member
Topic starter
 

Boa noite. Na macro abaixo estou tentando adaptar para que ao rodar a macro ela concatena duas celulas e depois ela copia e cola como valores.

Faltou algum comando.

Sub Atualiza_lançamentos()

' Atualiza_Lançamentos Macro
' Atualiza Lançamento de Entradas e Saidas de Material de Embalagem
' Gravado por Denilson Roberto de Souza

Dim w As Worksheet
Dim senha As String
senha = "acerf15"
Set w = Planilha4
Dim ulinha As Long

'w.Activate
'On Error Resume Next
'If w.ProtectContents = True Then

'w.Unprotect senha

'End If

ulinha = w.Cells(Cells.Rows.Count, 1).End(3).Row
On Error Resume Next
For I = 2 To ulinha

w.Cells(I, "a") = w.Cells(I, "f") & "-" & w.Cells(I, "b")
Range(Selection, Selection.End(xlDown)).Select
Next I

'Range("a2").Select
'ActiveCell.Formula = "=iferroR(vlookup(D4,cadastro!A:B,2,0),""PRODUTO NÃO CADASTRADO"")"
'Range("a2").Select
'Selection.End(xlDown).Select
'lin = ActiveCell.Row
'rg = "a2:a" & lin
'ActiveCell.Value = ActiveCell.Value
'Range("a2").Select
'i = 1'*****
'Selection.AutoFill Destination:=Range(rg), Type:=xlFillDefault
'Range("a2:a" & lin).Select
'Selection.Copy
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
'Application.CutCopyMode = False

'cont = 2
'Do Until IsEmpty(Cells(cont, 2))
'If IsError(Cells(cont, 2)) Then
'Cells(cont, 2) = " "
'End If
'cont = cont + 1
'Loop

'w.Protect senha

End Sub

 
Postado : 22/04/2025 9:33 pm
(@osvaldomp)
Posts: 899
Prominent Member
 

Sugestão: deixe a sua macro de lado por um momento, anexe o seu arquivo Excel e descreva com exatidão o que você deseja obter como resultado.

Osvaldo

 
Postado : 23/04/2025 12:49 pm
(@souzadenilson)
Posts: 99
Estimable Member
Topic starter
 

Boa noite. Consegui resolver

 
Postado : 23/04/2025 7:43 pm

Deixar uma resposta

Nome do Autor

E-mail do Autor

Título *

Tamanho máximo permitido do arquivo é 2MB

 
Prévia 0 Revisões Salvo