Victor Rodriguez

No he entendido muy bien tu pregunta, pero para seleccionar las dos columnas te valdrá este código: Sub copiar() Dim Col As Integer Dim Col2 As Integer Dim Rango1 As Integer Dim col3 As Integer 'encuentra la columna con datos de derecha a izquierda...

Fíjate que justo esas dos líneas son las únicas que tienen coma y G... algo debe tener que ver

Creo que esto te valdrá Sub formato() Range("a2:a10000").Select Selection.NumberFormat = "dd/mm/yyyy" End Sub

Podrías poner el código para que lo viéramos. Así de principio parece que tu contador empieza a contar por la fila 1 y cuando encuentra una celda vacía se para. Para evitar esto, se selecciona un fila muy lejana y se "tira" hacia arriba hasta...

¿Has pensado en activar el control de cambios? https://support.office.com/es-es/article/Activar-y-desactivar-el-control-de-cambios-96169f55-89c3-4fe4-a502-333e426ba9b1

Por ejemplo si la celda predeterminada fuese A1, la macro sería: Sub celda() Range("A1").Select Do ActiveCell.Offset(2, 0).Select ActiveCell.Offset(0, 8).Value = ActiveCell.Value Loop Until ActiveCell.Value = "" End Sub

Prueba así: Sub recorrecol() Dim col As Integer Dim name As String Dim grupo As Integer b = ActiveSheet.name col = 4 name = Sheets(b).Cells(3 , col) grupo = Sheets(b).Cells(col , 2) If grupo > 1 Then Range(grupo).Select Sheets("Sheet1").Select...

Si he entendido bien, solo debes concatenar las filas de cada columna A-U que en su fila V correspondiente tenga la condición Puedes hacer en una columna auxiliar un =SI(V=condicion;Concatenar(celda superior columna auxiliar;celda columna);celda...

Deberás copiar la tabla y utilizar la función sumar. Si. Conjunto con dos condiciones, el peso y el destino

No veo la funcionalidad de ChDir en tu código, ya que cuando guardas el libro ya le indicas la ruta completa en depositfile. Yo lo borraría