Dante Amor

El valores que se va a concatenar siempre estará a la derecha de la celda activa. Prueba la siguiente: Sub prueba1() With ActiveCell.Offset(0, 1) ActiveCell = Left(.Value, 3) & "-" & Mid(.Value, 4, 11) & "-" & Right(.Value, 3) End With End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Esa instrucción es para hacer una pausa en la ejecución de la macro. Por ejemplo, la siguiente instrucción hace una pausa de 1 segundo. Sleep (1000) ' Espera 1 segundo En tu...

[Ho la y bienvenido a TodoExpertos! Revisa si alguna de las siguientes opciones es lo que necesitas Sub arrastredos() With Range("K" & Rows.Count).End(3) .Copy Range(.Cells(1), Range("K" & Range("B" & Rows.Count).End(3).Row)) End With End Sub Sub...

Si los números de celular los tienes como valores numéricos en las celdas, entonces utiliza la siguiente macro. También funciona con valores tipo texto. Pero con los valores numéricos debo convertirlos a tipo texto, para eso utilizo la columna Z, si...

Cambia estas líneas Fecha = DateSerial(2016, Mes, dia) Set b = h2.Columns("A").Find(Fecha, lookat:=xlWhole) Por estas Fecha = DateSerial(Año, Mes, dia) Set b = h2.Columns("A").Find(Fecha, ,xlvalues, xlWhole) Si todavía no funciona, prueba con estas...

[H o l a y bienvenida a TodoExpertos. ¿En cuál celda tienes la fórmula? Puedes poner aquí la fórmula. También pon aquí una imagen para ver cómo se ve una etiqueta con datos y una etiqueta vacía. Procura que en la imagen se vean las filas y las...

Utiliza la siguiente fórmula =SUMAPRODUCTO(($A$2:$A$7=A11)*($B$1:$E$1=B11)*($B$2:$E$7)) Sigue el siguiente ejemplo:

Hice algunos ajustes al código, prueba con el siguiente: Sub test() Dim hojas As Variant, sh As Variant hojas = Array("Hoja1", "Hoja2") Application.DisplayAlerts = False Application.ScreenUpdating = False Dim lr As Long For Each sh In hojas With...

Pon la siguiente fórmula en B18 y copia hacia abajo =SI(FILAS(B$17:B17)-2<$C$11,FILAS(B$17:B17)-1,"") Nota: si utilizas punto y coma ( ; ) como separador, entonces cambia las coma (, ) por punto y coma ( ; )

Pon aquí la macro para revisarla. (Utiliza el botón para insertar código)