Posts by Robert B

Re: Global Page Numbers Added To Footer

Hi

Go to File, Page Setup select the Header/Footer Tab and click the icon which has 3 + signs in echelon. "&(Pages)" should appear in the relevant box.

HTH

Robert

Re: Changing Date Format In Exel

Hi

are those that are unchanged different, in any respect, to those that were changed?

Not having sight of your workbook makes it difficult to be more helpful, could you post a sample?

Robert

Re: Absolute (positive) Value

Hi

you could try something like

w_1 = Range("E2").Value / Range("E3").Value 


if w_1 < 0 Then
w_1 = w_1*-1
end if

HTH

Robert

Re: Changing Date Format In Exel

Hi

Welcome to the forum.

Select all dates you wish to amend, then use Edit, Replace. Change the selection format to suit

HTH

Robert

Re: Update Table

Hi Scott

I assume you see a message like "You are about to update (n) Rows" followed by another message that there have been a variety of violations and asking if you wish to proceed. My suggestion is that you say you do wish to proceed.

If you are running this query in VB the precede the code with

Do.Cmd Set Warnings False

I hope that makes sense and that I have not totally misundersood your question

Robert

Re: Update Table

Hi

I think you will find that if you select the option to update regardless, the query will have the desired effect

Robert

Re: Copy Ranges Certain Number Of Times

Hi

Try something like (untested)

Dim myRange As Range
Dim i, n As Integer
i = InputBox("Enter iterations")
Set myRange = Range("A1", "D50")
Do Until n = i
myRange.Copy Destination:=ActiveCell.End(xlDown).Offset(1, 0)
n = n + 1
Loop

HTH

Robert

Re: Compare Date Within Date Ranges

Hi

Welcome to the forum

Could you post a sample of your workbook, it will help us to visualise the problem

Robet

Re: Delete Files Via Vba

Hi

you could simply use the Search facility in Windows selecting .bmp as the search parameter type and deleting the results.

HTH

Robert

Re: Primary Keys

Hi

I assume you are adding a column to the table to contain the concatenation, in which case use an Update Query to udate the new column to

[Tbl_Test]![column1] & [Tbl_Test]![column2]

Robert

Re: Revise Ebay's Store Fvf Formula

Hi

You could uncheck the zero values box in Options or put the whole formula inside another IF statement thus

=IF("Formula") = 0, "",("Formula"))

Robert

Re: Data Table: Incorrect Results Inside Table

Hi

Welcome to the forum.

It would be useful if you could post a small sample of your workbook.

Robert

Re: Compare Cells And Flag Mismatches

Hi

try this in I3 and copied down

=IF(A3&" "&B3 =E3,"","Yes")

HTH

Robert

Re: Last Appearing Data In A Sheet

Hi

Another option

Dim R As Long, C As Integer
Dim LC As Range
Set LC = ActiveCell.SpecialCells(xlLastCell)
   R = LC.Row
   C = LC.Column

Robert

Re: Sum Currencies In Same Column

Hi

try this code

Sub MixedCurrency()
Dim k As Double, d As Double
k = 0
d = 0
Do Until ActiveCell = ""
If Left(ActiveCell, 3) = "kwd" Then
k = k + (Right(ActiveCell.Offset(0, 0), Len(ActiveCell.Offset(0, 0)) - 3))


Else


d = d + (Right(ActiveCell.Offset(0, 0), Len(ActiveCell.Offset(0, 0)) - 1))
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = "KWD " & k
ActiveCell.Offset(1, 0) = d
End Sub

This will put the totals in the cells immediately below the last value

HTH

Robert

Re: Subtracting Time From Running Total Of Time

Hi

that should, of course, been

=((B4-C4)*24)+D3

which can then be copied down

Robert

Re: Subtracking Time From Running Total Of Time

Hi

if you can start by replacing the 54.30 with 54.50 in D3 then this will work

=((B6-C6)*24)+D5

I have assumed that the figure 54.30 is a transnumeration of 54h 30m

HTH

Robert

Re: Import Csv As Text Not General

Hi

I have no text files so I can't check this , but I believe that, when importing a text file, the second element of the wizard allows the selection of the field type for each column, at this point can you not choose Text as the format?

Robert

Forget that, a .csv file will open directly into Excel, must read question before answering

Re: Named Range Difficulty

Hi

try this (untested)

Dim LastRow As Long
Dim myRange As Range
LastRow = Range("B6556").End(xlUp)




    Set myRange = Range("A1:A" & LastRow)
    ActiveWorkbook.Names.Add Name:="Name", RefersTo:=myRange

HTH

Robert

Re: Extract Range From Sorted Range

Hi

Use the Macro Recorder to get the basic code and refine the result

Robert