User Profile
doit_2729
Copper Contributor
Joined 3 years ago
User Widgets
Recent Discussions
Count Value and blank cell using today' date criteria
Good day Tech Community, The formula should count the cells based on their value, plus add empty cells to the total cell count if the date is today. I have tried my best but i am not pro so, here i am for help. I would appreciated if someone can help me with this formula Please see the attached file here for details. Thank you,Copy and paste row data based on cell value with date criteria
I have the situation where i would like to copy data based on cell value in Column 1 where the row data should be copy row 13 to the below log for the respectively date to track our ripening log. Currently we are copying data based on the date reference in column 2 however, we have made some changes in our ripening strategy so, as result if we have 2 rooms at different ripening process then the code is not copy and past data to appropriate row. What would be find out come? - We would like to copy data based on column 1 "4A" to the row for the respectively date in column 2 when click on button "Copy Today's data (4A)" and same like for "Copy today's data (4B)" to copy data where is says 4B: Screenshot: code: Private Sub CommandButton1_Click() Dim Rg As Range Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B13].NumberFormat), [B15], xlValues) If Rg Is Nothing Then MsgBox "Today's Date Not Found. Please check the 'Date Received'" Else Rg(1, 2).Resize(1, 13).Value2 = [C13:M13].Value2: Set Rg = Nothing ' Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B12].NumberFormat), [B14], xlValues) ' If Rg Is Nothing Then Beep Else Rg(1, 2).Resize(, 13).Value2 = [C12:M13].Value2: Set Rg = Nothing ' Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B13].NumberFormat), [B14], xlValues) ' If Rg Is Nothing Then Beep Else Rg(2, 2).Resize(, 13).Value2 = [C13:M13].Value2: Set Rg = Nothing End Sub Private Sub CommandButton2_Click() Dim Rg As Range Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B14].NumberFormat), [B16], xlValues) If Rg Is Nothing Then MsgBox "Today's Date Not Found. Please check the 'Date Received'" Else Rg(1, 2).Resize(1, 13).Value2 = [C14:M14].Value2: Set Rg = Nothing ' Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B12].NumberFormat), [B14], xlValues) ' If Rg Is Nothing Then Beep Else Rg(1, 2).Resize(, 13).Value2 = [C12:M13].Value2: Set Rg = Nothing ' Set Rg = Me.UsedRange.Columns(2).Find(Application.Text(Date, [B13].NumberFormat), [B14], xlValues) ' If Rg Is Nothing Then Beep Else Rg(2, 2).Resize(, 13).Value2 = [C13:M13].Value2: Set Rg = Nothing End Sub Sample file attached. PS: Apologies for any inconveniences to understand as i am not technical person to express the situation. However, i would be highly obliged if some one can help me. Thanking youVBA code to copy & paste data as per Date Criteria
Good day Team, I have already posted same question of some other form but it been long time and did not get any response so, I have hope that I will get some result here. I am new to VBA, so trying to execute this code, I am able to run the code to copy data in the row where I want it but I want to run the code for next 2 row as well but don't know how to apply logic to go next available row. As I want to copy data for 3 times for the same date. The code as follows which generate upon button click. With this following colde i am able to copy data from the Row B16 to V16 to B18 to V18 however, how would i copy same data to B19 to V19. Private Sub CommandButton1_Click() Dim Rg As Range Set Rg = Me.UsedRange.Columns(1).Find(Application.Text(Date, [A16].NumberFormat), [A17], xlValues) If Rg Is Nothing Then MsgBox "Today's Date Not Found. Please check the 'Date Received'" Else Rg(1, 2).Resize(, 22).Value2 = [B16:V16].Value2: Set Rg = Nothing End Sub On click "Copy today's Data" button the reading data should copy to the row that that day as i will take readying three time a day (like Morning, Afternoon and night) I hope I am able to explain my query as I am not a tech person but trying my best. I have excel 2016 Windows Thanking you for your help.
