May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Private Sub Command1_Click() Dim kk As Long For kk = 1 To MSHFlexGrid1.Rows - 1 If MSHFlexGrid1.TextMatrix(kk, 1) = MSHFlexGrid1.TextMatrix(kk, 0) Then ' MSHFlexGrid1.TextMatrix(kk, 1) = Format(CDate(Format(MSHFlexGrid1.TextMatrix(kk, 0), "0000-00-00 00:00")) + DateAdd("n", 1, Time())) End If Next kk End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|how to know if my Checkbox is True in VB6.0?||9||68|
|Zip Folders Using Chilkat Routines||1||86|
|VBA: copy range dynamically based on config sheet v3||6||53|
|Macro problems with Excel file||6||52|
Join the community of 500,000 technology professionals and ask your questions.