Dante Amor

Aquí otra fórmula a considerar: =IZQUIERDA(A2;LARGO(A2)-SI(ESERR(DERECHA(A2)+1);0;3)) --- Aplicando la fórmula en la macro: Sub QuitarNumeros() With Range("B2:B" & Range("A" & Rows.Count).End(3).Row) .Formula =...

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 =...

Te comparto una explicación: Sub test() Dim Ary As Variant Dim r As Long ' 'Almacena en memoria, en una matriz "Ary" el valor de los dados 'desde la celda A2 y de la columna B hasta celda con datos de la columna A Ary = Range("A2:B" & Range("A" &...

. Ho la y bienvenido a TodoExpertos: Puedes poner la información relevante. - Dónde están los valores, cómo se llama la hoja, en cuál columna, en qué fila empiezan. - Cómo se llama el otro libro, en cuál hoja, en cuál columna, en cuál fila inicial.

No es necesario un textbox. En la celda donde quieres la fecha, simplemente pon la función: =Hoy( ) En la celda pon el formato que deseas.

En la variable 'cad' tendrás las iniciales: Sub test() Dim texto As String, cad As String Dim i As Long ' texto = "Medios Tecnicos de Mto" 'aquí va el string original ' texto = " " & Trim(texto) For i = 1 To Len(texto) If Mid(texto, i, 1) = " " Then...

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í...

Aquí otra macro a considerar. El proceso lo realiza en memoria. Sub CopiarColumna() Dim a As Variant, b As Variant Dim i As Long, j As Long, k As Long, m As Long If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False a = Range("A2:O" &...

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 '...