TRES inputbox para llenar al colocar la letra A en cualquier fila de la columna BCD y los datos en REPORTE
Quisiera que al colocar la letra A en cualquier fila de las columnas B, C, D
Me salgan 3 inputbox con preguntas:
¿Quién dio permiso?
¿Dio constancia?
¿Cuándo se presenta?
Y con la fecha de hoy (date)
Los datos que vayan en una hoja llamada REPORTE
Y los datos se vayan almacenando, cuando digo se vaya almacenando que creen una especie de historial osea una sobre otra y así.
Es para una lista de asistencia.
1 respuesta
Prueba con lo siguiente y lo adaptas según tu necesidad.
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fila As Integer, Columna As Integer, UltimaFila As Integer
Dim Permiso As String, Constancia As String, Cuando As String
Columna = Target.Column
If Columna = 2 Or Columna = 3 Or Columna = 4 Then
Fila = Target.Row
If Cells(Fila, Columna) = "A" Then
With Sheets("Reporte")
UltimaFila = .Range("A" & Rows.Count).End(xlUp).Row
Permiso = InputBox("¿Quién dio permiso?")
.Cells(UltimaFila + 1, 1) = Permiso
Constancia = InputBox("¿Dio constancia?")
.Cells(UltimaFila + 1, 2) = Constancia
Cuando = InputBox("¿Cuándo se presenta")
.Cells(UltimaFila + 1, 3) = Cuando
.Cells(UltimaFila + 1, 4) = Date
End With
End If
End If
End Sub
----------------------------------
