Cometarios en excel

Vaya necesito ayuda anteriormente me dijeron como lograr sacar los comentarios de una celda y copiarlos en celdas de otra hoja.
Algo debe de andar mal aquí. Tengo la siguiente rutina, pero en la fila en negrita me marca el error: "Se ha producido el Error 91 en tiempo de ejecución:
Variable de objeto o bloque with no establecido.
Si me dijeran en que la estoy regando les quedaría totalmente agradecido.
Por su ayuda y sobre todo por su tiempo muchas gracias desde ya! Aquí el code
Sub CopiarAHoja()
Application.ScreenUpdating = False
Sheets("Ruta101").Select
Sheets("Ruta101").Range("A1").Select
Selection.EntireRow.Copy
Sheets("hoja1").Select
Sheets("hoja1").Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
MsgBox ActiveCell.Address
Sheets("Ruta101").Select
Sheets("Ruta101").Range("a2").Select
While ActiveCell <> ""
Selection.EntireRow.Copy
Sheets("hoja1").Select
ActiveSheet.Paste
Sheets("Ruta101").Select
MsgBox ActiveCell.Address
Variable=Activecell.Offset(0,6).Comment.Text
Sheets("Hoja1").Range("A3").Value = ActiveCell.Offset(0, 6).Comment.Text
MsgBox ActiveCell.Offset(0, 6).Address
acitvesheet.Offset(1, 0).Select
Wend
End Sub
Saludos
ETC

1 Respuesta

Respuesta
1
No veo donde esta las negritas, sin embargo copie tu codigo
a mi me marco el error en variable=activecell.offset(0,6).comment.text
en donde asigno la valor de variable al comentario de  la sexta columna de la celda activa,
pero si esta celda no tiene comentario, entonces marca el error.
por lo que debes validar que tenga comentario antes de pasarlo a la variable.
Sub CopiarAHoja()
Dim variable As Comment   ' Se agregó
Application.ScreenUpdating = False
Sheets("Ruta101").Select
Sheets("Ruta101").Range("A1").Select
Selection.EntireRow.Copy
Sheets("hoja1").Select
Sheets("hoja1").Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
MsgBox ActiveCell.Address
Sheets("Ruta101").Select
Sheets("Ruta101").Range("a2").Select
While ActiveCell <> ""
Selection.EntireRow.Copy
Sheets("hoja1").Select
ActiveSheet.Paste
Sheets("Ruta101").Select
MsgBox ActiveCell.Address
Set variable = ActiveCell.Offset(0, 6).Comment
If Not variable Is Nothing Then ' Aqui verifica que la celda tenga comentarios
Sheets("Hoja1").Range("A3").Value = ActiveCell.Offset(0, 6).Comment.Text
MsgBox ActiveCell.Offset(0, 6).Address
Else
MsgBox ("La celda " & ActiveCell.Address & " no tiene comentarios")
End If
ActiveCell.Offset(1, 0).Activate
Wend
End Sub
'Saludos y no olvides de cerrar la pregunta
Tu solución me parece fantástica y seguro que funciona.. no había entrado, porque estaba centrado en ese problema. Y si tienes razón, marca ese error cuando no existe comentario alguno, lo que yo he hecho es poner un On Error Resume Next y me he aligerado la vida.
Muchas gracias!
Saludos
ETC

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
1 respuesta

Macro, que termine el proceso cuando la celda esta vacía

Hice una macro que se ejecuta hasta un numero de veces, ¿La pregunta es se puede hacer que se ejecute hasta la celda vacía? Copio la macro. Sub Macro2() ' ' Macro1 Macro ' ' Acceso directo: CTRL+e Application.ScreenUpdating = False For i = 1 To 500...
1 respuesta

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

Ingr datos en userform y guardarlos en otro libro

Tengo este código que copie de alguna pregunta la cual me resulta muy útil, sin embargo, quisiera que al capturar los datos desde el libro donde abro el userform los guarde en otro libro. Esto lo uso para una lista de clientes. Saludos cordiales....
2 respuestas

Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja. Tengo una hoja en la que se han introducido una serie de registros. Quisiera copiar en otra hoja sólo aquellas filas...
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta