Excel selection

 https://www.mrexcel.com/board/threads/need-message-box-to-display-cell-or-range-of-cells-selected.303592/

Sub audiencia()

'

' audiencia Macro

'

' Acceso directo: CTRL+w

'

'https://blog.excelforo.com/2014/05/vba-diferencias-entre-usedrange-y.html

'https://www.mrexcel.com/board/threads/need-message-box-to-display-cell-or-range-of-cells-selected.303592/

'https://www.excel-avanzado.com/7687/compacion-entre-range-y-cells.html

'http://elsabiodeexcel.blogspot.com/2018/05/hojas-de-trabajo-worksheets-vs-hojas-sheets-VBA.html

'https://excelchamps.com/vba/activate-workbook/

 'https://www.mrexcel.com/board/threads/need-message-box-to-display-cell-or-range-of-cells-selected.303592/

 'MsgBox "You have highlighted cell " & Selection.Address

 

 'https://www.mrexcel.com/board/threads/need-message-box-to-display-cell-or-range-of-cells-selected.303592/

 'Dim indCell As Range

 'For Each indCell In Selection

 '   MsgBox indCell.Address & " " & indCell.Value

 'Next indCell

 

 'https://www.mrexcel.com/board/threads/need-message-box-to-display-cell-or-range-of-cells-selected.303592/

 'MsgBox "Left column =" & vbTab & Selection.Column & vbCrLf & _

 '   "Columns selected =" & vbTab & Selection.Columns.Count & vbCrLf & _

 '   "Top row =" & vbTab & Selection.Row & vbCrLf & _

 '   "Rows selected = " & vbTab & Selection.Rows.Count

 

  

 Dim lC As Integer, nC As Integer, lR As Integer, nR As Integer

 lC = Selection.Column

 nC = Selection.Columns.Count

 lR = Selection.Row

 nR = Selection.Rows.Count

 

 'limpiar la hoja de destino

 Workbooks("audiencias_1.xlsm").Worksheets("Hoja2").Cells.Clear

 

 Range(Cells(lR, lC), Cells(lR + nR - 1, lC + nC - 1)).Copy Destination:=Workbooks("audiencias_1.xlsm").Sheets("Hoja2").Range("A1")

 

 Dim lRR As Integer, lCC As Integer

 lRR = 1

 lCC = 1

 'https://excelchamps.com/vba/activate-workbook/

 Workbooks("audiencias_1.xlsm").Activate

 Sheets("Hoja2").Activate

 Sheets("Hoja2").Range(Cells(lRR, lCC), Cells(lRR + nR - 1, lCC + nC - 1)).Select

 'Range("A1:J15").Select

 

    ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range(Cells(lRR, lCC + 1), Cells(lRR + nR - 1, lCC + 1)), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range(Cells(lRR, lCC + 2), Cells(lRR + nR - 1, lCC + 2)), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Hoja2").Sort

        .SetRange Range("A1:J15")

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

 

 'dividir

  Range(Cells(lRR, lCC + 9), Cells(lRR + nR - 1, lCC + 9)).Select

 Selection.TextToColumns Destination:=Range(Cells(lRR, lCC + 9), Cells(lRR, lCC + 9)), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

        :="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _

        TrailingMinusNumbers:=True

        

 'interno

 Range(Cells(lRR, lCC + 9), Cells(lRR + nR - 1, lCC + 9)).Select

 Selection.Copy

 Range(Cells(lRR, lCC + 4), Cells(lRR, lCC + 4)).Select

 ActiveSheet.Paste

    

 'pasar temporalmente la columna de la corte solicitante

 Range(Cells(lRR, lCC + 5), Cells(lRR + nR - 1, lCC + 5)).Select

 Selection.Copy

 Range(Cells(lRR, lCC + 7), Cells(lRR, lCC + 7)).Select

 ActiveSheet.Paste

    

'colocar en la columna correcta la sala

Range(Cells(lRR, lCC + 6), Cells(lRR + nR - 1, lCC + 6)).Select

Selection.Copy

Range(Cells(lRR, lCC + 5), Cells(lRR, lCC + 5)).Select

ActiveSheet.Paste

    

'colocar en la columna correcta la corte solicitante

Range(Cells(lRR, lCC + 7), Cells(lRR + nR - 1, lCC + 7)).Select

Selection.Copy

Range(Cells(lRR, lCC + 6), Cells(lRR, lCC + 6)).Select

ActiveSheet.Paste

Range(Cells(lRR, lCC + 10), Cells(lRR + nR - 1, lCC + 10)).Select

Application.CutCopyMode = False

Selection.Copy

Range(Cells(lRR, lCC + 7), Cells(lRR, lCC + 7)).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

'a mayusculas el texto

Range(Cells(lRR, lCC + 4), Cells(lRR + nR - 1, lCC + 7)).Select

Dim Rng As Range

For Each Rng In Selection.Cells

If Rng.HasFormula = False Then

Rng.Value = UCase(Rng.Value)

End If

Next Rng

'alinear a la derecha la fecha

Range(Cells(lRR, lCC + 2), Cells(lRR + nR - 1, lCC + 3)).Select

Application.CutCopyMode = False

With Selection

        .HorizontalAlignment = xlRight

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

End With

Dim i As Integer

i = 1

For Each cell In Range(Cells(lRR, lCC), Cells(lRR + nR - 1, lCC))

  cell.Value = i

  i = i + 1

Next cell

Columns("I:AGX").Select

Range("J1").Activate

Selection.Delete Shift:=xlToLeft

End Sub

Cambiar minusculas a mayusculas en excel macro

https://www.youtube.com/watch?v=vxGXA2-odyg

Sub cambiarseleccion()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub

Power Pivot

Opciones->Complementos:
Administrar -> Complementos COM-> Ir... Microsoft Office PowerPivot for Excel 2010 (ponerle check)-> Aceptar

Buscarv y buscarh

BUSCARH Busca en la fila superior de una matriz y devuelve el
valor de la celda indicada
BUSCARV Busca en la primera columna de una matriz y se
mueve en horizontal por la fila para devolver el valor
de una celda

Excel expediente

=SI(LARGO(B4)>=23, MED(B4,6,5)&"-"&MED(B4,2,4),TEXTO(RECORTAR(MED(B4,1,ENCONTRAR("-",B4)-1)),"00000")&"-"&RECORTAR(MED(B4,ENCONTRAR("-",B4)+1,5)))

Excel seleccionar rapidamente datos

https://www.youtube.com/watch?v=dZNlL5239Do

word advertencia de seguridad las macros se han desabilitado

http://temporaexcel.blogspot.pe/2013/03/DeshabilitarHabilitarMacrosExcel.html

BuscarV

https://www.youtube.com/watch?v=TONErtDwpPo
https://exceltotal.com/tutorial-excel-2010-funcion-buscarv/

que signfica RC[-1]

Es simple, RC proviene de Row y Column (es decir Fila y Columna) y el valor entre corchetes "[]" es el desplazamiento a la celda actual, si es negativo es para la izquierda y si es positivo para la derecha.

Entonces en el caso de RC[-2] significa que a la celda actual te desplazas dos columnas menos y RC[-3] es 3 columnas menos; Ejemplo: si te encuentras en la celda D10, RC[-2] significa que te desplazas 2 celdas menos en columnas (es decir a la izquierda), a la celda B10, con el mismo ejemplo con RC[-3] significa que te desplazas 3 celdas menos en columnas (a la izquierda), es decir a la celda A10. 

Mostrar la pestaña Programador o llamada ficha programador office 2007, 2010,2013

otra fuente
http://www.gmayor.com/installing_macro.htm

EN TODAS LAS VERSIONES QUE HE PROBADO FUNCIONA  con la conbinacion ALT + F11 o mediante pasos seria como sighe

Mostrar la ficha Programador o ejecutar en modo para programadores en office 2013 y 2010

Mostrar la pestaña Programador

La pestaña Programador no se muestra de forma predeterminada, pero puede agregarla a la cinta cuando desee hacer lo siguiente:

• Escribir macros.
• Ejecutar macros previamente grabadas.
• Usar comandos XML.
• Usar controles ActiveX.
• Crear aplicaciones para usar con programas de Microsoft Office.
• Usar controles de formularios en Microsoft Excel.
• Trabajar con ShapeSheet en Microsoft Visio.
• Crear nuevas formas y galerías de símbolos en Microsoft Visio.

Una vez que aparezca la pestaña, esta permanecerá visible a menos que desactive la casilla o deba reinstalar un programa de Microsoft Office.

Mostrar la pestaña Programador

1. Haga clic en la pestaña Archivo.
2. Haga clic en Opciones .
3. Haga clic en Personalizar cinta de opciones.

1. En Personalizar la cinta de opciones y Fichas principales, active la casilla Programador.

-----------------------------------------------------------------------------------------------------------------

Mostrar la ficha Programador o ejecutar en modo para programadores en office 2007

Debe mostrar la ficha Programador o ejecutar en modo para programadores cuando vaya a escribir macros, ejecutar macros que haya grabado previamente, o crear aplicaciones para utilizar con programas de Microsoft Office.

Haga lo siguiente en estos programas de Microsoft Office:

Word, Excel o PowerPoint

1. Haga clic en el botón de Microsoft Office  y, a continuación en Opciones de Nombre de programa, donde Nombre de programa es el nombre del programa que está utilizando, por ejemplo, Opciones de Word.
2. Haga clic en Más frecuentes y, a continuación, active la casilla de verificación Mostrar ficha Programador en la cinta de opciones.
   NOTA   The Ribbon is part of the interfaz de usuario de Microsoft Office Fluent

Outlook

1. En el menú Herramientas, haga clic en Opciones.
2. En la ficha Otros, haga clic en Opciones avanzadas, y seleccione la casilla de verificación Mostrar ficha Programador en la cinta de opciones.

Visio

1. En el menú Herramientas, haga clic en Opciones.
2. En la ficha Opciones avanzadas, en Opciones avanzadas, seleccione la casilla de verificación Ejecutar en modo para programadores.

Limitar área de trabajo en Excel

http://exceltotal.com/como-limitar-el-area-de-trabajo-en-excel/

MSGBOX en VBA

http://exceltotal.com/la-funcion-msgbox-en-vba/

Uso de collection y comparacion de cadenas

Principal uso de collection
http://vbadud.blogspot.com/2008/11/how-to-use-collections-in-excel-vba.html

http://www.lawebdelprogramador.com/foros/Visual_Basic_para_Aplicaciones/973620-Comparacion_de_dos_cadenas.

http://www.mrexcel.com/forum/excel-questions/485383-define-list-values-within-visual-basic-applications-code.html

http://stackoverflow.com/questions/5702362/vba-collection-list-of-keys

http://www.wiseowl.co.uk/blog/s239/collections.htm

http://www.codeproject.com/Tips/697011/A-simple-List-class-for-VBA-projects

http://blogs.itpro.es/exceleinfo/2011/06/06/uso-de-for-each-next-en-vba-excel/

http://www.mundoprogramacion.com/vb/vb_novatos.htm#novato03

http://www.slideshare.net/LATOCHI/programacin-con-visual-basic-para-aplicaciones-en-excel-programacin-puraconexcel