Hi Jyothi, Here is the link to find more details about ComboBox. Combo Box Regards
Hi, I would like to know more details about your query.
There are a few activities that you can't perform on Microsoft Excel worksheets or workbooks through the Microsoft Excel installable...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/listing.jpg[/img]
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/screen.png[/img]
Dear sir Still have one more writing problem, it is taken only first rown of the invoice, second row is...
Thanks for the help. I have resolved the above isued. by giving following "Scrap items - "& VLOOKUP(B11,INDIRECT(SELECT&"!B:C"),2,0) I used...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/05/Untitled.jpg[/img]
I have tested the following code for any input and it works fine.
Dim iRow As Long, iChar As Integer, Char1 As String, Char2 As Boolean, Char3 As String
For iRow = 1 To 10
For iChar = 1 To Len(Cells(iRow, 1)) - 3
Char1 = Mid$(Cells(iRow, 1), iChar, 1)
Char2 = IsNumeric(Mid$(Cells(iRow, 1), iChar + 1, 3))
Char3 = Mid$(Cells(iRow, 1), iChar + 4, 1)
If Char1 = "D" And Char2 = True Then
If Char3 = "F" Then
Cells(iRow, 2) = Mid$(Cells(iRow, 1), iChar, 5): Exit For
Cells(iRow, 2) = Mid$(Cells(iRow, 1), iChar, 4): Exit For
As you can see in the picture below, the string in column B is the output of my code and in column C is the output of PNRao’s code.
Here is an alternative code. Since I don’t know your layout data, it’s hard for me to put sub routine InsertColumnDate and RemoveColumnDate in a single program. So you have to run these two sub-routines alternately, just make sure you run sub-routine InsertColumnDate first and RemoveColumnDate afterward.
Dim StartDate As Date, EndDate As Date, Days As Integer, iDay As Integer
StartDate = "1/1/2016"
EndDate = "1/5/2016"
Days = EndDate - StartDate
Columns("A").Resize(, Days + 1).EntireColumn.Insert 'Change the Columns("A") accordingly
For iDay = 0 To Days
Cells(1, iDay + 1) = StartDate + iDay 'Change the row index 1 accordingly
Dim iCol As Integer
On Error GoTo Finish
For iCol = 1 To 16384
iDel = iDel + 1
If Not Cells(1, iCol + 1) - Cells(1, iCol) = 1 Then 'Change the row index 1 accordingly
Columns("A").Resize(, iDel).EntireColumn.Delete 'Change the Columns("A") accordingly