Copia muchos archivos a variadas carpetas según el nombre del archivo a copia y carpeta destino
Hola
Te cuento que funciono bien y pude realizar y a futuro me será mas fácil mi trabajo
Lo que se hizo fue erutar el disco k: que hera virtual y se compartía con otros carpeta.
Gracias por tu ayuda, sin esta estaría copiado los archivos uno a uno.
Espero no abusar de tu ayuda, ¿Me podría ayudar con otro proyecto?.
1 Respuesta
Gracias
es lo siguiente: en una hoja están copiados los registros de mantención de equipos durante todo el año de enero a diciembre.
Cada mes va aumentado según las mantenciones, pero se registra los mese en columna y necesito se distribuya según el mes. adjunto parte de tabla
Letra según estado y condición:
CERR+SVIDA=E
CERR+GENERAL=J
ENPRG+SVIDA=P
ENPRG+GENERAL=X
estado condición mes
cerr svida 1
enprg general 2
cerr general 3
cada registro se repetirá tanto como equipos se mantenga en el mes y el estado esta dado si el equipo fue mantenido o no, la candicion esta dada por el tipo de equipo, y el mes numero según el mes de mantención.
necesito una macro que se posesione en la columna estado linea uno lea celda y después salte a la columna condición lea la celda y después salte a columna mes y lea celda
En la misma hoja y linea tengo los mes en columna : ENE FEB MAR .. esto es lo que tengo que llenar según datos de la linea.
Según la base :se debe copiar la letra "E" en ENE
En el caso de segunda linea se debería copiar "X" en FEB
y asi por todas las lineas hasta la ultima línea.
No existen celdas en blanco en los estado, condición, mes
Y en promedio mensual son 1200 lineas.
Te anexo la macro, las columnas de mes ENE, FEB ..., deben empezar en la columna D
'***Macro***
Sub estado()
'Por.daM
Dim estado, condicion, ec As String
Dim mes As Integer
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
For i = 2 To ufila
estado = Cells(i, 1)
condicion = Cells(i, 2)
mes = Cells(i, 3)
ec = estado & condicion
Select Case ec
Case "CERRSVIDA"
Cells(i, 3 + mes).Value = "E"
Case "CERRGENERAL"
Cells(i, 3 + mes).Value = "J"
Case "ENPRGSVIDA"
Cells(i, 3 + mes).Value = "P"
Case "ENPRGGENERAL"
Cells(i, 3 + mes).Value = "X"
End Select
Next
End Sub
'***Macro***Saludos.dam
Sigo a tus órdenes con mucho gusto, no olvides cerrar la pregunta.
