I have a column with dates i want it to highlight the dates like 7 days old, 15 days old, one month old, 2 months old, 3 months old, 6 months old, 1 year old.
attached is the workbook
Posts by Baig1984
-
-
I have a column with dates i want it to highlight the dates like 7 days old, 15 days old, one month old, 2 months old, 3 months old, 6 months old, 1 year old.
attached is the workbook
-
Re: Error! Could not get the column property, Invalid argumnet
Any update from so called moderators or admins... Atleast ban me... But the problem is most of so called admins dnt even have solution so just they become sarcastic to avoid the topic
___________________________________
Further context, this post originally said "What is ur problem??" -
Re: Error! Could not get the column property, Invalid argumnet
Kindly Tell me the way to delete membership of this forum. Rather than helping a new joiner people here likes to show bossy attitude. if u r admin it ll b a pleasure if u remove me from this forum.
Thanks a lot -
Re: Error! Could not get the column property, Invalid argumnet
If excel file required let me knw i ll attach
________________________________________________________________________
For context:
This post text originally was something like "No Help???? :(" and was posted 2 hours after
the thread was started - hence comment in next post. -
i get above error while i tried to add a new column to a database i increased column count to 13 also and tried to name it also to M but still same error i got a template with 12 columns that can add delete and search data but after adding
Column it adds data but when i try to display it by clicking in listbox it shows above error also. Working on it since long time but all in vain
I m beginner of excel vba. Original Code for listbox given below I want to increase record to more columns like father's name date of birth etc Nd display same like previous records in textboxes by adding more text boxes.The column headers of the page as follows :
– First Name
– Company
– Address
– City
– Country
– State
– ZIP
– Phone
– Fax
– Email
– Web
– Estimated Revenue
First we have created 12 units textboxes that to enter data into this columns. There are labels on their side.
We put 4 units main buttons. buttons and their codes are as follows:
Codes of this buttons :
Code
Display MorePrivate Sub CommandButton1_Click() ‘SAVE Button Dim sonsat As Integer If TextBox1.Value = “” Then MsgBox “Please enter a First Name.”, vbExclamation TextBox1.SetFocus Exit Sub End If If TextBox2.Value = “” Then MsgBox “Please enter a Company Name.”, vbExclamation TextBox2.SetFocus Exit Sub End If If TextBox3.Value = “” Then MsgBox “Please enter an Adress.”, vbExclamation TextBox3.SetFocus Exit Sub End If If TextBox10.Value = “” Then MsgBox “Please enter an Email.”, vbExclamation TextBox10.SetFocus Exit Sub End If If TextBox12.Value = “” Then MsgBox “Please enter Estimated Revenue.”, vbExclamation TextBox12.SetFocus Exit Sub End If If Not IsNumeric(TextBox12.Text) Then MsgBox “Please enter a Numeric Value.”, vbExclamation TextBox12.SetFocus Exit Sub End If sonsat = Sheets(“Data”).[a65536].End(3).row + 1 Cells(sonsat, 1) = TextBox1 Cells(sonsat, 2) = TextBox2 Cells(sonsat, 3) = TextBox3 Cells(sonsat, 4) = TextBox4 Cells(sonsat, 5) = TextBox5 Cells(sonsat, 6) = TextBox6 Cells(sonsat, 7) = TextBox7 Cells(sonsat, 8) = TextBox8 Cells(sonsat, 9) = TextBox9 Cells(sonsat, 10) = TextBox10 Cells(sonsat, 11) = TextBox11 Cells(sonsat, 12) = TextBox12 MsgBox “Registration is successful” ListBox1.List = Sheets(“Data”).Range(“a2:l” & [a65536].End(3).row).Value ‘For refresh listbox TextBox14.Value = ListBox1.ListCount End Sub Private Sub CommandButton2_Click() ‘CHANGE Button Dim sonsat As Integer If ListBox1.ListIndex = -1 Then MsgBox “Choose an item”, vbExclamation Exit Sub End If sonsat = ListBox1.ListIndex + 2 Cells(sonsat, 1) = TextBox1.Text Cells(sonsat, 2) = TextBox2.Text Cells(sonsat, 3) = TextBox3.Text Cells(sonsat, 4) = TextBox4.Text Cells(sonsat, 5) = TextBox5.Text Cells(sonsat, 6) = TextBox6.Text Cells(sonsat, 7) = TextBox7.Text Cells(sonsat, 8) = TextBox8.Text Cells(sonsat, 9) = TextBox9.Text Cells(sonsat, 10) = TextBox10.Text Cells(sonsat, 11) = TextBox11.Text Cells(sonsat, 12) = TextBox12.Text MsgBox “Item has been updated” ListBox1.List = Sheets(“Data”).Range(“a2:l” & [a65536].End(3).row).Value ‘For refresh listbox End Sub Private Sub CommandButton3_Click() ‘ DELETE Button Dim sil As Integer If ListBox1.ListIndex = -1 Then MsgBox “Choose an entry”, vbExclamation End If If ListBox1.ListIndex >= 0 Then cevap = MsgBox(“Entry will be deleted. … Are you sure ?”, vbYesNo) If cevap = vbYes Then sil = ListBox1.ListIndex + 2 Sheets(“Data”).Rows(sil).Delete End If End If For a = 1 To 12 Controls(“textbox” & a) = “” Next ListBox1.List = Sheets(“Data”).Range(“a2:l” & [a65536].End(3).row).Value TextBox14.Value = ListBox1.ListCount End Sub Private Sub CommandButton4_Click() ‘CLEAR Button Dim del As Control For Each del In UserForm1.Controls If TypeName(del) = “TextBox” Or TypeName(del) = “ComboBox” Then del.Text = “” ElseIf TypeName(del) = “ListBox” Then del.Value = “” End If Next del TextBox14.Value = ListBox1.ListCount End Sub 'We’ve added a listbox to bottom of the form. 'We fill the listbox with the following code: ListBox1.List = Sheets(“Data”).Range(“a2:l” & [a65536].End(3).row)