Search results

Glad to help, and thanks for the feedback. :)

Try this in the ThisWorkbook event. Private Sub Workbook_Activate() Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False...

As far as I understand your question give this a try: Sub CreateButton() ActiveSheet.Range("N" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select With Selection .Offset(0, -3).Font.Color = RGB(0, 176, 80) .Offset(0, -3).Font.Bold = True .Offset(0, -3).ClearComments...

Glad to help, and thanks for the feedback. :)

a starter

I never use rowsource to populate a listbox but list then it wil work but without a small example?

Try this Private Sub T_40_Change() On Error Resume Next lijst = [Table1].value arg = 0 For i = 1 To UBound(lijst) If InStr(1, lijst(i, 2), T_40, vbTextCompare) > 0 Then arg = arg + 1 End If Next i ReDim nwlijst(arg - 1, 40)...

What is the column number in your sheet where you want to search? How is de listbox populated?

Try Sub TrimExample1() Dim Rng As Range Set Rng = Sheets("Sheet1").ListObjects(1).Range For Each Cell In Rng Cell.Value = Trim(Cell) Next Cell End Sub

According to your question that means that some of your cells in certain columns are also half filled.

Without an example? Something like this? Adapt to your needs Private Sub UserForm_Initialize() Dim rngDB As Range, rng As Range Dim sWidth As String Dim vR() As Variant Dim n As Integer Set rngDB = Range("a1:ab1") For Each rng In rngDB...

Glad to help,thanks for the feedback :)

Private Sub LB_00_Click() For i = 0 To 9 Me("T_0" & i) = LB_00.Column(i) Next For i = 10 To 11 Me("T_" & i) = LB_00.Column(i) Next End Sub Give your texxboxes, simple names like T_00 , T_01 and so on In this example the listbox is named LB_00

Sure I made a table from your sheet (with the name newdata_tbl) I changed your textboxes to T_00 ,T_01 en T_02 and your listbox to Lb_00 (then is easy to use them in a loop,as you can see in the lisbox (Lb_00) click event. Click in the listbox and see what happens. I forgot to tell, a listbox...

@ antonio,welcome to Chandoo. please use code tags if you post code. Click the 3 dot and use </> to put your code between code tags.

Does this help? see green cells

Example.

=(D6*9)-5

Hi, try thiss code. Private Sub CommandButton1_Click() Dim lrow_v As Long With Sheets("NEW DATA") lrow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 .Cells(lrow, 1).Resize(, 3).Value = Array(TextBox1.Value, TextBox2.Value...

Glad to help., an.d thanks for the feed back:)

Show how ,you are still living in la la land

Like this, enter the ammount without currencysymbol en press enter or tab

Like this? enter ammount without currency symbol and push test.

Glad to help :)

Private Sub cmdDelete_Click() Set ws = Worksheets("Items") Set Rng = [SK] Set fnd = Rng.Find(What:=ListView1.SelectedItem, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) ws.Rows(fnd.Row).Delete End Sub Make a defined name range (first column in your Listview) in Formulas -> Name manager...