alguien que me pueda asesorar sobre un código a traves de una macro que me permita concatenar los varias celdas con caracteres siempre y cuando se cumpla una condición con otras celdas con números.
es decir si el las celdas de G51:G54, tienen valor numérico concatene la cadena de caracteres que tenga H1:H54, del archivo RO_SECHU a CONTROLROSECHU,
Sub CopiarCeldas()
Dim Orig, Dest, i&, uf&
Dim wbDest As Workbook
Dim wsOrigen As Worksheet, wsDest As Worksheet
Set wsOrigen = Worksheets("RO_SECHU")
Set wbDest = Workbooks.Open(ThisWorkbook.Path & "\CONTROLROSECHU.xlsx")
Set wsDest = wbDest.Sheets("Reporte_Diario")
uf = wsDest.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 0 To UBound(Orig)
wsDest.Range(Dest(i) & uf) = wsOrigen.Range(Orig(i))
Next i
Buena tarde, amigos del Foro ..
alguien que me pueda asesorar sobre un código a traves de una macro que me permita concatenar los varias celdas con caracteres siempre y cuando se cumpla una condición con otras celdas con números.
es decir si el las celdas de G51:G54, tienen valor numérico concatene la cadena de caracteres que tenga H1:H54, del archivo RO_SECHU a CONTROLROSECHU,
Sub CopiarCeldas()
Dim Orig, Dest, i&, uf&
Dim wbDest As Workbook
Dim wsOrigen As Worksheet, wsDest As Worksheet
Application.ScreenUpdating = False
Orig = Array("A37", "D5", "D7", "D17", "A23", "I13", "I15")
Dest = Array("K", "A", "E", "H", "J", "I", "G")
Set wsOrigen = Worksheets("RO_SECHU")
Set wbDest = Workbooks.Open(ThisWorkbook.Path & "\CONTROLROSECHU.xlsx")
Set wsDest = wbDest.Sheets("Reporte_Diario")
uf = wsDest.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 0 To UBound(Orig)
wsDest.Range(Dest(i) & uf) = wsOrigen.Range(Orig(i))
Next i
wsDest.Range("M" & uf) = Application.Sum(wsOrigen.Range("G51:G54"))
wbDest.Close True
Set wsOrigen = Nothing: Set wbDest = Nothing: Set wsDest = Nothing
Erase Orig, Dest
Application.ScreenUpdating = True
End Sub
RO_SECHU.xlsm
CONTROLROSECHU.xlsx