Search:
Type: Posts; User: pike
Search:
Search took 0.01 seconds.
-
or
Sub test()
Dim strlFilePathName As String, dbRow As Long, dbCol As Long, dbArray
strlFilePathName = "L:\15\186507.CSV"
With Workbooks.Open(Filename:=strlFilePathName)
...
-
http://www.excelfox.com/forum/showthread.php/2359-Delete-row-by-vba
-
the same assignment ?
http://www.vbaexpress.com/forum/showthread.php?65786-Copy-paste
-
Is this a cross post or the same assignment ?
https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1222571-delete-row-by-vba...
-
Is this a cross post or the same assignment ?
https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1222571-delete-row-by-vba
-
No worries,, thanks for posting
-
Hi,
or
=INDEX(Report!$D$2:$D$82,MATCH(1,INDEX((Report!A$2:A$82=B5)*(Report!$C$2:$C$82=A5),0),0))
few different ways
-
Hello,
In cell C5=LOOKUP(2,1/(Report!A$2:A$82=B5)/(Report!$C$2:$C$82=A5),Report!$D$2:$D$82)
-
try,,,
Private IsArrow As Boolean
Private Sub ComboBox1_Change()
Dim i As Long
With Me.ComboBox1
If Not IsArrow Then .List = Range("YourList").Value
If .ListIndex = -1 And...
-
or
Option Explicit
Private Sub ListView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
Dim nodTemp As...
-
Hi luca90
can you adapt this API code for Treeview to listview? Listview has a hittest function
Module code
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function...
-
Hi luca90,
do you mean in treeview?
-
Hi BettyCrocker,
The highlight first line will be yellow to indicates error in routine.
If you scroll down the actual error line will be highlight too in blue.
which line is highlighted blue?
-
-
to be more specific for userform code with form is named frm
Option Explicit
Public Event OnEnter(ctrl As msforms.Control)
Public Event OnExit(ctrl As msforms.Control)
Private oXitClass As...
-
Better to use a userform than the troublesome date picker
Help of reputable freebees about I use this one
http://www.excel-it.com/excel_datepickers.html
-
is this what you are after?...
Userform code
Option Explicit
Public Event OnEnter(ctrl As msforms.Control)
Public Event OnExit(ctrl As msforms.Control)
Private oXitClass As CtlExitCls
-
besides
Public Sub CRestoreFilters()
Dim w As Worksheet
' Dim filterArray()
Dim currentFiltRange As String
Dim col As Integer
you will need to dimension currectFiltRange
Option...
-
Is the Public FilterArray() dimensioned as a variant?
Has the filterarray been redim(1 to 3,1 to 3) in a procedure?
-
Hello,
to access the limit of the array just use
For col = 1 To UBound(filterArray)
-
Its a class formula by DonkeyOte
Basically as the formula is drag down in the column it compare the list to the target list.
The REPT("Z",255) is looking at the last string in the drag down list...
-
Hi,
You will want the formula in the sheet somewhere like in the attached workbook
-
hi,
one way is with the formula in the helper column to give unique list
B2=LOOKUP(REPT("Z",255),CHOOSE({1;2},"",INDEX($A$2:$A$30,MATCH(TRUE,INDEX(ISNA(MATCH($A$2:$A$30,$B$1:$B1,0)),0),0))))
and...
-
hope this helps.. you can do some crazy stuff with scattered charts
-
no, it was an alternative.
You can go to File> options > general> personalise your copy of microsoft office >office theme
you can pick white grey or dark grey theme
This will change the colour...
-
Hello,
something like this syntax in the worksheet module maybe better to high light the column and Row, but depends on the sheet format
Private Sub Worksheet_SelectionChange(ByVal Target As...
-
or
Dim rngNullString
Set rngNullString = Intersect(ws.Columns("A"), ws.Columns("A")).Find("")
If rngNullString.Row < ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Then
Set...
-
Hello,
Maybe ,,,,
Option Explicit
Private Sub cmdAdd_Click()
Dim LastRow As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng As Range
Dim rgnSearch As Range
-
Hi,
If the textbox on a userform then
Private Sub TextBox1_Change()
Me.TextBox1.Text = Format(Me.TextBox1.Value, "0.00")
End Sub
-
Hi NateBrie,
Its can be solved with APIs
this is an old snippet of syntax form msdn to try
Option Explicit
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias...
-
-
can you attach a picture ? Its doesn't sound quite right if the scroll bar is for the tools box
-
hi dynomo
try..
Set wb1 = Workbooks("Initial Category List - Final Version.xlsx")
Set wb2 = Workbooks("Combined product ListUpdate1Macro.xlsm")
Rri = 251
With wb1.Sheet1
...
-
Hi Waka
you can use the IFF statment to determine if a comma is required
Dim xItem As Variant
Dim allstr As String
With Me
For Each xItem In .List10.List
allstr...
-
Hi Skywriter
something like ...
Sub LetterPattern()
Dim x As Long, z As Long, nRow As Long
For nRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
' {"EO-EI-PU-UA-V-FML-STD-WC-J-S-B-OL"}
...
-
Hi skywriter
.Pattern = "([A-Z]+\s?[A-Z]{0,2}, [A-Z]+\s?[A-Z]{0,1}) (.+) (WATER MGMNT|POLICE|GENERAL SERVICES|CITY COUNCIL) (\d+)"
is looking for 4 substrings consisting of...
-
WorkHorse
In the attached zip file the validation list is in cells B2 and C2 .. with a value from a thrid column in D2
-
WorkHorse
try..=OFFSET(Data!$B$1,MATCH(B2,Data!$A$2:$A$290,0),0,COUNTIF(Data!A2:A290,$B$2),1)
in the example below
-
Kvracing
try ..
Option Explicit
'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox....
-
no problem the service table adjustment by -6 rows and the bill by -24 rows
=IFERROR(INDEX(Table1[Service Date],SMALL(IF($A$15&$C$7=Table1[Room Number]&Table1[Guest Name],ROW(Table1[Service]) -6 ...
|
Click Here to Expand Forum to Full Width
|