Dante Amor

Puedes poner aquí tu código para revisarlo.

Si quieres los archivo en diferentes columnas: En la columna A los xml y en la B los pdf Sub ListarArchivos_1() Dim a As Variant Dim Carpeta As String Dim sh As Worksheet Dim ListadoArchivos As Object, archivo As Object Dim n As Long, i As Long, j As...

¿Lo quieres aumentar en una macro o en un nombre de rango? ¿Cuál es el rango inicial? ¿Qué valores tienes en la otra columna? ¿Y cuál sería el rango final? Puedes explicarlo con imágenes.

Aquí otro código a considerar: Sub Copia_Datos_2() Dim sh1 As Worksheet Set sh1 = Sheets("Hoja1") With Sheets("Hoja2") .DrawingObjects("Rounded Rectangle 47").Text = sh1.Range("A1") .DrawingObjects("Oval 48").Text = sh1.Range("B1")...

Para los bordes: h.Range("A5").Resize((Txtfin_y / Txtini_y) + 2, (Txtfin_x / Txtini_x) + 1).Borders.LineStyle = xlContinuous Para los númeroa puedes utilizar Series en lugar de ciclos: Private Sub CommandButton1_Click() Dim h As Worksheet ' Set h =...

No, no es necesario saber inglés. Tienes que tener conocimiento de algún lenguaje de programación. Si no tienes conocimientos de algún lenguaje, entonces puedes aprender desde el principio. Busca en la red el manual GRAN-TUTORIAL-DE-MACROS, ahí...

Prueba la siguiente macro. Tus datos en la Hoja1, los resultados en la Hoja2. Sub Combinar_Celdas() 'Por Dante Amor Dim sh1 As Worksheet, sh2 As Worksheet Dim i As Long, j As Long, k As Long, m As Long, lr As Long Dim are As Range '...

¿Hay qué recorrer la columna H o solamente revisar H3? Puedes poner una imagen y explica.

Pon el siguiente código en los eventos de la hoja. Option Explicit Const texto = "Texto por defecto" ' Private Sub TextBox1_Change() With TextBox1 If .Value = vbNullString Or .Value = texto Then Call inicio Else .Value = Replace(.Value, texto, "")...

Intenta con la funcionalidad de excel: Subtotal. - Selecciona los datos. - Del Menú Datos, selecciona la opción Subtotal: