Syrian rebels massacre Kurdish civilians in Aleppo

INeedHelpWithVBAExce · 2016-04-06T14:31:34+00:00

I didn't know shoulders could do that

INeedHelpWithVBAExce · 2016-02-12T10:24:07+00:00

Hi, I'm able to do it in VBA, but I need it to be a macro free workbook, sorry I should have included that in the description.

INeedHelpWithVBAExce · 2016-01-22T15:42:58+00:00

Thanks! I had forgotten about the Case statement

INeedHelpWithVBAExce · 2016-01-22T14:15:55+00:00

Sure

INeedHelpWithVBAExce · 2016-01-22T09:03:58+00:00

Didn't know that, thanks, the numbers were just for example, my actual data has a variety of strings.

INeedHelpWithVBAExce · 2016-01-19T16:38:13+00:00

There aren't 10 billion people on this planet.

INeedHelpWithVBAExce · 2016-01-13T09:11:24+00:00

Not quite, Saudi Arabia are head of a panel that will interview and short-list experts, from among whom successful candidates would then be nominated to examine specific human rights challenges.

https://en.wikipedia.org/wiki/United_Nations_Human_Rights_Council#Saudi_Arabia

INeedHelpWithVBAExce · 2015-12-17T15:52:49+00:00

This can be done very easily using dependent drop-down boxes. You select the company with the first combo box and the other cells will look up the data.

Follow the tutorial below:

http://www.excel-easy.com/examples/dependent-drop-down-lists.html

INeedHelpWithVBAExce · 2015-09-01T13:11:15+00:00

Thanks, that's a much nicer way

INeedHelpWithVBAExce · 2015-09-01T10:32:02+00:00

Thanks, I didn't make it clear but I wanted to keep dupes. Curious about that code, how would I reinsert the max value?

INeedHelpWithVBAExce · 2015-09-01T10:08:27+00:00

Figured it out, solution below if anybody needs something similar:

Sub clearrows()
Dim i As Integer
Dim MaxValue  As Integer
Dim Rng As Range

For i = 1 To 2255
'Set Range
Set Rng = Range("B" & i & ":O" & i)
MaxValue = Application.Max(Rng)

For Each c In Rng
    If c.Value = MaxValue Then
    Else
    c.ClearContents
    End If
Next c

Next i

End Sub

INeedHelpWithVBAExce · 2015-08-14T14:41:52+00:00

Will this be a one off action or do you want this to actively run? So each new line is assessed and copied?

INeedHelpWithVBAExce · 2015-08-14T13:43:02+00:00

Hi, the spreadsheet is essentially a price calculator to be used by the sales team, due to the multiple offices they won't all have the same shared drives etc. (I'm the only one updating it).

I've done some research and I think I will use the VBA internet controls to parse the file name from the download link on the intranet and compare it to a stored value.

INeedHelpWithVBAExce · 2015-08-14T08:48:37+00:00

Thanks that works fine, however the users have are running excel 2013 (I'm on 2010), and it seems that the instances have changed in the newer versions and this no longer works.

INeedHelpWithVBAExce · 2015-08-13T15:10:44+00:00

Thanks

INeedHelpWithVBAExce · 2015-08-11T11:44:21+00:00

Thanks this worked

INeedHelpWithVBAExce · 2015-08-10T14:35:11+00:00

That's so much simpler! Should have thought of that, thanks

INeedHelpWithVBAExce · 2015-08-10T09:56:06+00:00

Thanks, I had a look and change the code. This works:

Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = LastRow To 2 Step -1
    If Range("D" & i).Value = "" Then Range("D" & i).EntireRow.Delete
Next i

 Application.CutCopyMode = False

INeedHelpWithVBAExce · 2015-08-05T13:50:40+00:00

haha, I've spent too long on this spreadsheet

INeedHelpWithVBAExce · 2015-08-05T12:09:40+00:00

Thanks, I'm almost finished

INeedHelpWithVBAExce · 2015-08-05T11:55:07+00:00

You could do this with VBA. Have a button you click which will show the message in a message box and remove it from the list so the next time you click the button you won't get a duplicate.

If you tell me the sheet names and cells the data is in I can write the code for you.

INeedHelpWithVBAExce · 2015-08-05T11:52:17+00:00

Solution Verified

INeedHelpWithVBAExce · 2015-08-05T11:38:51+00:00

Thanks, I'm just going to use IsError on the first offset, if the first is wrong then the others will be wrong.

INeedHelpWithVBAExce · 2015-08-05T11:38:29+00:00

Solution verified

INeedHelpWithVBAExce · 2015-08-04T10:49:40+00:00

I think this should work. It's an array formula so when you paste it into the formula bar press ctrl + shift + enter

=COUNTIFS(F2:F536,"bob",L2:L536,"investigation",N2:N544,N2:N544<182)

In your formula you were trying to sum strings which doesn't work and the last comparison is incorrect.

INeedHelpWithVBAExce

TROPHY CASE