Últimos mensajes - Powered by IBM
- 2. [ Möchten Sie Illuminati beitreten?.]/a// ...
- Ayuda Macro Colorear filas
- Lista desplegable excel
- FUNCIONA PARA SALTO DE LINEA DEPENDINDO DE UNA ...
- Como eliminar celdas en blanco en filas?
- Ir a otra celda según contenido
- Cuantos días Lunes hay en un mes usando VBA
- macro para imprimir pantalla
- Encontar el máximo dentro de grupos
- Error al restar 9.57 - 9.54 en excel
Palabras claves
¡ Hola !
Necesito optimizar esta macro para dar formato a un excelll
Soy nuevo programando macros, y esto es muy sencillo, pero no sé como hacer para que sea más rápido con alguna condicion que se me escapa.
Como veis, depende de que encuentre un valor para pintar toda la fila hasta el final!
Os dejo el codigo...
Sub IMPORTA_TXT_VODAFONE()
Dim FName As Variant
' FName = Application.GetOpenFilename("Text files(*.txt),*.txt")
' FName será la variable que guarde el archivo de texto a leer
FName = Application.GetOpenFilename()
If FName <> False Then
Workbooks.OpenText Filename:=FName, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=False
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Range("A1").Select
' Aplicamos formato a linea FACT_CAB
[A:A].Find(What:="FACT_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea FACT_DAT
[A:A].Find(What:="FACT_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea IDCL_CAB
[A:A].Find(What:="IDCL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea IDCL_DAT
[A:A].Find(What:="IDCL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea AVPG_CAB
[A:A].Find(What:="AVPG_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea AVPG_DAT
[A:A].Find(What:="AVPG_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea RCFE_CAB
[A:A].Find(What:="RCFE_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCFE_DAT
[A:A].Find(What:="RCFE_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCFE_DAT"
If (Cells(Filt, 5) = "Total") Or (Cells(Filt, 4) = "Cuotas, Tarifas Planas y Cargos") _
Or (Cells(Filt, 4) = "Descuentos") Or (Cells(Filt, 4) = "Ajuste hasta Consumo Mínimo") Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
End With
ElseIf Cells(Filt, 4) = "Total (Base imponible)" Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599963377788629
End With
Else
End If
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RIMP_CAB
[A:A].Find(What:="RIMP_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RIMP_DAT
[A:A].Find(What:="RIMP_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato al rango RCLL_CAB
[A:A].Find(What:="RCLL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCLL_DAT
[A:A].Find(What:="RCLL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCLL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCME_CAB
[A:A].Find(What:="RCME_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCME_DAT
[A:A].Find(What:="RCME_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCME_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCDA_CAB
[A:A].Find(What:="RCDA_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCDA_DAT
[A:A].Find(What:="RCDA_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCDA_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCTL_CAB
[A:A].Find(What:="RCTL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCTL_DAT
[A:A].Find(What:="RCTL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCTL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
' Aplicamos formato a linea RDES_CAB
[A:A].Find(What:="RDES_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea RDES_DAT
[A:A].Find(What:="RDES_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea AHCM_CAB
[A:A].Find(What:="AHCM_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea AHCM_DAT
[A:A].Find(What:="AHCM_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea DCFC_CAB
[A:A].Find(What:="DCFC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea DCFC_DAT
[A:A].Find(What:="DCFC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea DCFL_CAB
[A:A].Find(What:="DCFL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCFL_DAT
[A:A].Find(What:="DCFL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DCFL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DCUC_CAB
[A:A].Find(What:="DCUC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCUC_DAT
[A:A].Find(What:="DCUC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato al rango DCUL_CAB
[A:A].Find(What:="DCUL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCUL_DAT
[A:A].Find(What:="DCUL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DCUL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DDNC_CAB
[A:A].Find(What:="DDNC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DDNC_DAT
[A:A].Find(What:="DDNC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DDNC_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DDNL_CAB
[A:A].Find(What:="DDNL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DDNL_DAT
[A:A].Find(What:="DDNL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DDNL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNTV_CAB
[A:A].Find(What:="DNTV_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNTV_DAT
[A:A].Find(What:="DNTV_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNTV_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNTD_CAB
[A:A].Find(What:="DNTD_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNTD_DAT
[A:A].Find(What:="DNTD_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNTD_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DSVA_CAB
[A:A].Find(What:="DSVA_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DSVA_DAT
[A:A].Find(What:="DSVA_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DSVA_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNAD_CAB
[A:A].Find(What:="DNAD_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNAD_DAT
[A:A].Find(What:="DNAD_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNAD_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
End If
End Sub
Necesito optimizar esta macro para dar formato a un excelll
Soy nuevo programando macros, y esto es muy sencillo, pero no sé como hacer para que sea más rápido con alguna condicion que se me escapa.
Como veis, depende de que encuentre un valor para pintar toda la fila hasta el final!
Os dejo el codigo...
Sub IMPORTA_TXT_VODAFONE()
Dim FName As Variant
' FName = Application.GetOpenFilename("Text files(*.txt),*.txt")
' FName será la variable que guarde el archivo de texto a leer
FName = Application.GetOpenFilename()
If FName <> False Then
Workbooks.OpenText Filename:=FName, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=False
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Range("A1").Select
' Aplicamos formato a linea FACT_CAB
[A:A].Find(What:="FACT_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea FACT_DAT
[A:A].Find(What:="FACT_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea IDCL_CAB
[A:A].Find(What:="IDCL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea IDCL_DAT
[A:A].Find(What:="IDCL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea AVPG_CAB
[A:A].Find(What:="AVPG_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea AVPG_DAT
[A:A].Find(What:="AVPG_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea RCFE_CAB
[A:A].Find(What:="RCFE_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCFE_DAT
[A:A].Find(What:="RCFE_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCFE_DAT"
If (Cells(Filt, 5) = "Total") Or (Cells(Filt, 4) = "Cuotas, Tarifas Planas y Cargos") _
Or (Cells(Filt, 4) = "Descuentos") Or (Cells(Filt, 4) = "Ajuste hasta Consumo Mínimo") Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
End With
ElseIf Cells(Filt, 4) = "Total (Base imponible)" Then
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599963377788629
End With
Else
End If
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RIMP_CAB
[A:A].Find(What:="RIMP_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RIMP_DAT
[A:A].Find(What:="RIMP_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato al rango RCLL_CAB
[A:A].Find(What:="RCLL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCLL_DAT
[A:A].Find(What:="RCLL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCLL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCME_CAB
[A:A].Find(What:="RCME_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCME_DAT
[A:A].Find(What:="RCME_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCME_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCDA_CAB
[A:A].Find(What:="RCDA_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCDA_DAT
[A:A].Find(What:="RCDA_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCDA_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango RCTL_CAB
[A:A].Find(What:="RCTL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango RCTL_DAT
[A:A].Find(What:="RCTL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "RCTL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
' Aplicamos formato a linea RDES_CAB
[A:A].Find(What:="RDES_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea RDES_DAT
[A:A].Find(What:="RDES_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea AHCM_CAB
[A:A].Find(What:="AHCM_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea AHCM_DAT
[A:A].Find(What:="AHCM_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea DCFC_CAB
[A:A].Find(What:="DCFC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato a la linea DCFC_DAT
[A:A].Find(What:="DCFC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato a la linea DCFL_CAB
[A:A].Find(What:="DCFL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCFL_DAT
[A:A].Find(What:="DCFL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DCFL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DCUC_CAB
[A:A].Find(What:="DCUC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCUC_DAT
[A:A].Find(What:="DCUC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Range("A1").Select
'Aplicamos formato al rango DCUL_CAB
[A:A].Find(What:="DCUL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DCUL_DAT
[A:A].Find(What:="DCUL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DCUL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DDNC_CAB
[A:A].Find(What:="DDNC_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DDNC_DAT
[A:A].Find(What:="DDNC_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DDNC_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DDNL_CAB
[A:A].Find(What:="DDNL_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DDNL_DAT
[A:A].Find(What:="DDNL_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DDNL_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNTV_CAB
[A:A].Find(What:="DNTV_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNTV_DAT
[A:A].Find(What:="DNTV_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNTV_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNTD_CAB
[A:A].Find(What:="DNTD_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNTD_DAT
[A:A].Find(What:="DNTD_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNTD_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DSVA_CAB
[A:A].Find(What:="DSVA_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DSVA_DAT
[A:A].Find(What:="DSVA_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DSVA_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
'Aplicamos formato al rango DNAD_CAB
[A:A].Find(What:="DNAD_CAB", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262
End With
Range("A1").Select
'Aplicamos formato al rango DNAD_DAT
[A:A].Find(What:="DNAD_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
Filt = ActiveCell.Row
ColT = ActiveCell.Column
While ActiveCell = "DNAD_DAT"
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Filt = Filt + 1
Cells(Filt, ColT).Select
Wend
Range("A1").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
End If
End Sub
Preguntas similares
- Ayuda con esto!!!
- Ayuda con esto por favor
- Ayuda con esto por favor
- Alguna ayuda con esto....gracias
- Necesito ayuda con esto por favor
- Ayuda con esto!
- Alguna ayuda con esto
- me ayuda con esto
- me ayuda con esto
- AYUDA con esto ---->>>> _C=E1mara_Reflex_Nikon_FE-10?
Busqueda sugerida :