Crear una variable de posición de celda dinámica
Expertos quisiera crear una posición de celda para que cuando la macro detecte que tiene un valor (en este caso un a fecha) le sume 1 de manera para registrar la fecha del día (hoy) en la columna siguiente a la derecha.
Mi idea es la siguiente...
sub boton1() Column = 9 + n ActiveCell.Select If IsEmpty(Selection.Offset(0, Column)) Then n = 0 Else n = 1 Selection.Offset(0, Column).Value = Date 'Registro la fecha que se baja el producto del stock end sub
1 Respuesta
Mmm, no entendí
Y si mejor lo explicas con imágenes
Procura que en las imágenes se vean las filas y las columnas de excel
Pon una imagen antes de la macro, explica qué dato vas a poner
Y en otras imágenes pon el después de la macro, explica qué datos se actualizaron y por qué.
¿Quieres qué la macro se ejecute en automático cuando captures la fecha?
Quiero que la macro detecte cuando en la celda de la columna "M" haya una fecha escrita. Cuando la celda este vacía registre la fecha de hoy, y cuando esa celda ya tenga una fecha entonces debe registrar la fecha de hoy en la columna "N" y así sucesivamente siempre desplazandose a la derecha si la celda ya tiene una fecha. nota: no siempre esta en la celda M:2 depende de una búsqueda anterior en la columna D por eso uso el método offset contando 9 columnas a la derecha hasta llegar a la columna M.
Selection.Offset(0, Column)
En tu imagen no se ven las filas
¿La macro es automática o vas a presionar un botón?
Tampoco pusiste la imagen o imágenes con los resultados esperados.
No trates de explicarme con código, por eso no te preocupes, yo encontraré la solución. Solamente explica lo que deseas obtener.
Pero intentemos con lo siguiente.
Pon la macro en un botón.
Sub Poner_Fecha() fila = ActiveCell.Row If Cells(fila, "M").Value = "" Then Cells(fila, "M").Value = Date Else uc = Cells(fila, Columns.Count).End(xlToLeft).Column + 1 Cells(fila, uc).Value = Date End If End Sub
Selecciona la fila en donde quieres poner la fecha.
