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]
Thanks a lot PNRao for solution
I think it will be better to upload sample of your workbook with some more data and put some of the expected output
Would you like the results to have the initials of column A if found in column B?
Try this solution
'Class Module Name "clsTextBox"
Public WithEvents MyTextBox As MSForms.TextBox
Private Sub MyTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case vbKey0 To vbKey9
KeyAscii = 0
Private arrTextBoxes() As New clsTextBox
Private Sub UserForm_Initialize()
Dim ctl As Control
Dim n As Long
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
n = n + 1
ReDim Preserve arrTextBoxes(1 To n)
Set arrTextBoxes(n).MyTextBox = ctl
Private Sub UserForm_Terminate()
Can you explain more and it will be useful if you upload sample of your file and put some of the desired output?
You’re welcome. Glad we can offer some help
Try this code
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim x As Integer
Application.ScreenUpdating = False
m = Cells(Rows.Count, 1).End(xlUp).Row
n = Cells(m, 6).Value
For i = n - 1 To 1 Step -1
Range(Cells(m, 1), Cells(m, 7)).Copy
Range("A" & m + x + 1).PasteSpecial xlPasteAll
Range("F" & m + x + 1).Value = i
x = x + 1
Application.CutCopyMode = False
Application.ScreenUpdating = True
This answer accepted by raghuprabhu.
on January 25, 2018 Earned 100 points.
Can you upload sample of your workbook?
I can’t help you anymore. Hope you can find the cause of error on your own
You can create similar file with dummy data I don’t think it is difficult
Can you point to the line that the error occurs at?
This answer accepted by BojanaKiseloski.
on November 18, 2017 Earned 100 points.
It will be better to upload sample of your workbook to see the error ..
Try to declare all the variables in your codes so as to avoid errors
Glad I can offer some help
Dim i As Long
Dim m As Long
m = Cells(Rows.Count, 5).End(xlUp).Row
For i = 2 To m '2 First Row Of Data. I Supposed Row 1 For Headers
If Cells(i, 5) = "Kuwait" And Cells(i, 6) = "Macedonia" Then
Cells(i, 7) = "RP TIME"
ElseIf Cells(i, 5) = "Macedonia" And Cells(i, 6) = "Majami" Then
Cells(i, 7) = "SPOT TIME"
Cells(i, 7) = ""
Can you give more details and attach sample of your workbook with some desired output?