Home |
Search |
Today's Posts |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem w/ vb -control
Try using the Format and CvDate functions in conjunction so your comparing apples to apple
Dim dt1 as Date dt2 as Dat dt1 = Format(CvDate(ActiveSheet.Range("b1")), "mmddyyyy") dt2 = Format(CvDate(DateUpdateTextBox.Value ), "mmddyyyy") If dt1= dt2 The You might want to do an IsDate test first also ----- Adresmith wrote: ---- Please Help I have a textbox where a user can type a date and a calculate button user can press to look at all sheets in workbook and if the date in th textbox matches a date in a cell on a worksheet then it copies tex from the sheet and pastes it in another location My problem is, I cannot make my vba recognize that the date in th textbox matches the date in the cell (even when they do Thanks in advance for your help My code is below Private Sub CalculateButton_Click( For i = 3 To Sheets.Coun Sheets(i).Selec If ActiveSheet.Range("b1") = DateUpdateTextBox.Value The ActiveSheet.Range("b18:c18").Cop ActiveWorkbook.Sheets("Rollup").Activat ActiveWorkbook.Sheets("Rollup").Unprotec Range("f2").Selec D If IsEmpty(ActiveCell) = False The ActiveCell.Offset(1, 0).Selec End I Loop Until IsEmpty(ActiveCell) = Tru ActiveCell.PasteSpecial xlPasteValue Els End I Nex End Su -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Problem with control tag and populating speadsheet | Excel Discussion (Misc queries) | |||
problem with checkbox control | Excel Worksheet Functions | |||
Control sizing problem | Excel Programming | |||
Repost- problem with calender control | Excel Programming | |||
problem with calender control | Excel Programming |