Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Sub distribuir_renovaciones()
Dim hoja As Worksheet, fila As Byte, celda As Range
Dim fila_destino As Integer, columna As Byte, destino As String
For Each hoja In Worksheets
If hoja.Name <> "Cartera" And hoja.Name <> "Tfn" And hoja.Name <> "Resumen" And hoja.Name <> "Bajas" And hoja.Name <> "Mantenimiento" And hoja.[e14] <> "" Then
fila = hoja.[e14].End(xlDown).Row
For Each celda In hoja.Range("E14:E" & fila)
destino = "Cartera"
If IsDate(celda.Offset(0, -3)) Then destino = "Bajas"
If Application.CountIf(Worksheets(destino).Range("e:e"), celda.Value) Then
Else
If Sheets(destino).[e6].Value = "" Then
fila_destino = 5Else: fila_destino = Sheets(destino).[e246].End(xlUp).Row
End If
For columna = 1 To 21Sheets(destino).Cells(fila_destino + 1, columna) = hoja.Cells(celda.Row, columna)
Next columna
End If
Next celda
End If
Next hoja
End Sub
Sub distribuir_renovaciones()
Dim hoja As Worksheet, fila As Byte, celda As Range
Dim fila_destino As Integer, columna As Byte, destino As String
For Each hoja In Worksheets
If hoja.Name <> "Cartera" And _
hoja.Name <> "Tfn" And _
hoja.Name <> "Resumen" And _
hoja.Name <> "Bajas" And _
hoja.Name <> "Mantenimiento" And _
hoja.[e14] <> "" Then
fila = hoja.[e14].End(xlDown).Row
For Each celda In hoja.Range("E14:E" & fila)
destino = "Cartera"
If IsDate(celda.Offset(0, -3)) Then destino = "Bajas"
If Application.CountIf(Worksheets(destino).Range("e:e"), celda.Value) Then
Else
If Sheets(destino).[e6].Value = "" Then
fila_destino = 5Else
fila_destino = Sheets(destino).[e246].End(xlUp).Row
End If
For columna = 1 To 21Sheets(destino).Cells(fila_destino + 1, columna) = hoja.Cells(celda.Row, columna)
Next columna
End If
Next celda
End If
Next hoja
End Sub