bacter582

Como estas amigo Suponiendo que la lista de nombres de archivo están en la columna1 con este código puedes generar los archivos que necesitas. Si quieres antes de probar cambia el 200 por un numero más pequeño Saludos Bacter No olvides finalizar la...

Como estas amigo, lo probé de esta manera y funciona. Pruébalo y me comentas. Saludos bacter Sub informe() Miarchivo = Application.GetOpenFilename("mis archivos planos,*.txt") Workbooks.OpenText Filename:=Miarchivo, Origin:= _ xlMancintosh,...

Como estas amigo Creo que algo así te puede ayudar Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim password As String If Sh.Name <> "Hoja_base" Then password = InputBox("introduzca su contraseña") If password = Sh.Name Then Sh.Activate...

Prueba con esta rutina Te agrega nuevas hojas con una numeración Sub NUEVA() ' ' NUEVAA Macro ' Sheets.Add After:=Worksheets(Worksheets.Count) Sheets(Sheets.Count).Name = "NOTA(" & Worksheets.Count & ")" End Sub

Como estas amigo, revise tu archivo y le hice las siguites modificaciones Ahora puedes escribir en las celdas c8 y c10 y ademas al borrar el contenido de c5 borra el contenido de c8 y c10. Espero te ayude. No olvides finalizar la pregunta. Saludos...

Intentalo Dándole pegado especial texto unicode.

Espero estés bien, Disculpa la tardanza en la respuesta, me estoy mudando y no he tenido internet. Si solo deseas hacer eso no es necesario una macro con la opción buscar - remplazar, lo puedes hacer, en buscar escribes la palabra sueño y la casilla...

Como estas amigo Mediante un macro lo puedes hacer Aquí te anexo uno que compara el tipo de fuente, el tamaño y el estilo. Compara la celda a1 con la a2 y pone el resultado en a3. Espero te sirva. Saludos Bacter No olvides finalizar la pregunta. Sub...

Con este código puedes refrescar los datos de tu tabla dinámica en una hoja protegida. Allí también puedes colocar cualquier otro código que necesites que se ejecute con la hoja desprotegida. Saludos No olvides finalizar al pregunta. Bacter Private...

Con esta macro pasas los comentarios de las primeras 50 filas de la columna1 a las primeras 50 filas de la columna2. Espero te sirva. Saludos Bacter Sub comem() On Error Resume Next For i = 1 To 50 Cells(i, 2).Value = Sheets("hoja1").Cells(i,...