Comentario anidado filas variadas en vba
Quisiera un ayuda como vera en la imagen la macro si me cumple una parte de lo que deseo el cual es los comentarios cada 3 filas tienen una relación me gustaría que el comentario diga el nombre de
Usuario& fecha de una celda referente & hora de una celda referente & dato de la celda todo estos dentro del comentario como se observa la fecha que toma es la que esta eb la columna I y la hora igual pero deseo que avance conforme pasa cada celda y que no llene comentario a las celdas vacías
El problema es que la hora no me aumenta ni un poco y me figura la misma hora quisiera que avance de 3 en 3 segundos pero no avanza
Como ve el tiempo no me avanza y me aparece el mismo para toda esta fila que deben tener la misma fecha pero la hora debe avanzar de poco en poco.
Adjunto mi macro para ver si me puede ayudar en este asunto y si pudiera abreviarla muchísimas gracias.
Sub comentario_anidado() n = Sheets(1).Cells(4, "W") x = Int(Rnd * 10) a = (n - 1) * 40 + n + 6 For i = 7 To 34 Step 3 hora = TimeValue(Cells(i + 1, 9)) + TimeValue("00:00:" & Format(x, "00")) Usuario = Application.UserName & " " & Format(Cells(i, 9).Value, "yyyy-mm-dd") & " " & _ Format(hora, "h:mm:ss am/pm") Cells(i, 3).AddComment Cells(i, 3).Comment.Text Text:=Usuario & " " & Cells(i, 3).Text Cells(i + 1, 3).AddComment Cells(i + 1, 3).Comment.Text Text:=Usuario & " " & Cells(i + 1, 3).Text Cells(i + 2, 3).AddComment Cells(i + 2, 3).Comment.Text Text:=Usuario & " " & Cells(i + 2, 3).Text Cells(i, 4).AddComment Cells(i, 4).Comment.Text Text:=Usuario & " " & Cells(i, 4).Text Cells(i, 5).AddComment Cells(i, 5).Comment.Text Text:=Usuario & " " & Cells(i, 5).Text Cells(i, 6).AddComment Cells(i, 6).Comment.Text Text:=Usuario & " " & Cells(i, 6).Text Cells(i, 7).AddComment Cells(i, 7).Comment.Text Text:=Usuario & " " & Cells(i, 7).Text Cells(i, 8).AddComment Cells(i, 8).Comment.Text Text:=Usuario & " " & Cells(i, 8).Text Cells(i + 1, 8).AddComment Cells(i + 1, 8).Comment.Text Text:=Usuario & " " & Cells(i + 1, 8).Text Cells(i, 9).AddComment Cells(i, 9).Comment.Text Text:=Usuario & " " & Cells(i, 9).Text Cells(i + 1, 9).AddComment Cells(i + 1, 9).Comment.Text Text:=Usuario & " " & Cells(i + 1, 9).Text Cells(i, 11).AddComment Cells(i, 11).Comment.Text Text:=Usuario & " " & Cells(i, 11).Text Cells(i + 1, 11).AddComment Cells(i + 1, 11).Comment.Text Text:=Usuario & " " & Cells(i + 1, 11).Text Cells(i + 2, 11).AddComment Cells(i + 2, 11).Comment.Text Text:=Usuario & " " & Cells(i + 2, 11).Text Cells(i, 12).AddComment Cells(i, 12).Comment.Text Text:=Usuario & " " & Cells(i, 12).Text x = x + 3 Next End Sub