Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem w/ vb -control
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.Count Sheets(i).Select If ActiveSheet.Range("b1") = DateUpdateTextBox.Value Then ActiveSheet.Range("b18:c18").Copy ActiveWorkbook.Sheets("Rollup").Activate ActiveWorkbook.Sheets("Rollup").Unprotect Range("f2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.PasteSpecial xlPasteValues Else End If Next End Su -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem w/ vb -control
The problem is that the vba doesnt care about if you can
make it match. Do you work for a circus by the way! Roll Up Roll Up -----Original Message----- Please Help! I have a textbox where a user can type a date and a calculate button a user can press to look at all sheets in workbook and if the date in the textbox matches a date in a cell on a worksheet then it copies text from the sheet and pastes it in another location. My problem is, I cannot make my vba recognize that the date in the 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.Count Sheets(i).Select If ActiveSheet.Range("b1") = DateUpdateTextBox.Value Then ActiveSheet.Range("b18:c18").Copy ActiveWorkbook.Sheets("Rollup").Activate ActiveWorkbook.Sheets("Rollup").Unprotect Range("f2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.PasteSpecial xlPasteValues Else End If Next End Sub --- Message posted from http://www.ExcelForum.com/ . |
#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 |
Reply |
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 |