James Bond

Vivo en Monterrey ¿cuál es tu inquietud o duda que no pueda ser resuelta por este medio?

Prueba con esta macro Sub copiarypegar() filas = Range("z2").CurrentRegion.Rows.Count With Range("ay2").Resize(filas, 1) .Formula = "=z2" .Value = .Value End With End Sub

La imagen es el resultado de la formula, si el caracter inicial es un / entonces solo eliminara es caracter en caso de no tenerlo entonces la dejara igual.

Prueba esta macro, te llenara la columna AW con la cantidad de datos que tengas en la columna AV y ademas te pondra 2 decimales Sub formular() filas = Range("av2").CurrentRegion.Rows.Count With Range("aw2").Resize(filas, 1) .Formula = "=av2/v2-1"...

Yo hice para mis materias un sistema en Excel donde por cada curso se genera una hoja y en cada una se agregan los alumnos de ese curso, posteriormente otra parte del sistema me permite moverme entre ellas para ponerle tareas, participaciones,...

Modifique tu macro le añadi un iferror ahora cada que tengas un espacio en blanco la macro en vez de error pondra un espacio vacio Sub Ranking() Dim Celda As Range Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, 2).End(xlUp).Row For Each...

Este es un ejemplo que puedes adaptar a tus necesidades Sub COPIAR() Sheets("HOJA2").Range("A2:A9").Value = Sheets("HOJA1").Range("A2:A9").Value End Sub

Pon este modulo en tu useform, al dar un click en cualquier parte del formulario este se cerrara, si te da problemas usa el evento doubleclick() Private Sub UserForm_Click() UserForm1.Hide End Sub

Este es el resultado de la macro y esta es la macro Sub posicionar() Dim UNICOS As New Collection FILAS = Range("A1").CurrentRegion.Rows.Count Set tabla = Range("A3").Resize(FILAS - 2, 1) For I = 3 To FILAS - 2 fecha = tabla.Cells(I, 1) On Error...

Prueba con estas lineas Sub copia2() Sheets("bd").Range("a2").EntireRow.Insert With Sheets("registro") . Range("b4"). Copy: Sheets("bd"). Range("a2"). PasteSpecial . Range("b6"). Copy: Sheets("bd"). Range("b2"). PasteSpecial . Range("b8"). Copy:...