Posts by VBA Noob

Re: Change Formula Based On Cell Value In A1

JohnDrew,

Please read forum rules. Cross posts are not permitted

http://www.excelforum.com/showthread.php?t=597276

VBA Noob

Re: Count Set Ups

SteveKirk,

I notice that this is a cross post which are not permitted

http://www.excelforum.com/showthread.php?t=597154

VBA Noob

Re: Vba To Run Query Designer

agosal,

Please read forum rules. Code should be wrapped and cross posting on other forums is not allowed unless you include the link

http://www.excelforum.com/showthread.php?t=596355

VBA Noob

Re: Whole Row Of Active Cell Should Be Bold

GI30065,

Please don't cross post your questions

http://www.excelforum.com/showthread.php?t=596235

VBA Noob

Re: Vba Variable To Replace Cell Address In A Formula

This is a cross post. Please read forum rules.

http://www.excelforum.com/showthread.php?t=595698

VBA Noob

Re: A Value Is Lower Than At Least One Value In A Range

This is a cross post. Please read forum rules.

http://www.excelforum.com/showthread.php?t=595778

VBA Noob

Re: Range Selection

Hi,

The code just adds the colour index from 1 to 56. Just seeing what the best to split it into two columns would be.

VBA Noob

Re: Range Selection

Thx guys.

So if I want to do it from activecell location. Would this be the best way

Sub colortable2()
    Dim i      As Long
    Dim cl     As Range
    Dim z      As Integer
    Dim x      As Integer
    Cells.Clear
    
    z = ActiveCell.Row
    x = ActiveCell.Column
    
    For i = 1 To 28
        Set cl = Cells(i + z - 1, x)
        cl.Interior.ColorIndex = i
        cl.Offset(0, 1).Value = i
        cl.Offset(0, 2).Interior.ColorIndex = i + 28
        cl.Offset(0, 3).Value = i + 28
    Next i
     
    Set cl = Nothing
End Sub

VBA Noob

Hi,

I'm trying to learn VBA. I've playing with the below code which works. However it seems OTT for something which seem like a simple problem. So looking for pointers on how it should of be done

Sub colortable()
Dim Rng, Rng1 As Range


Set Rng = Range("A1:A28")
Set Rng1 = Range("C1:C28")
Cells.ClearContents


For i = 1 To 28
Rng.Cells(i).Interior.ColorIndex = i
Rng.Cells(i, 2).Value = i
Next i


For x = 29 To 56
Rng1.Cells(x - 28).Interior.ColorIndex = x
Rng.Cells(x - 28, 4).Value = x
Next x


Set Rng as nothing
Set Rng1 s nothing


End Sub

VBA Noob

Re: link to macro from text in VBA Code

Jonn,

Please read forum rules. Cross posting is not allowed

http://www.excelforum.com/showthread.php?t=595298

VBA Noob

Re: Worksheet_change Executing Selectively

ifrench,

Please read forum rules.

Cross posting without attaching is not permitted

http://www.excelforum.com/showthread.php?t=595156

VBA Noob

Re: Sumproduct Till Last Used Cell

Please read forum Rules. Cross posting is not permitted

http://www.excelforum.com/showthread.php?t=594819

VBA Noob

Re: Error Extracting Pivottable Data with VBA

Please read forum rules. Cross posting is not allowed

http://www.excelforum.com/showthread.php?t=594558

VBA Noob

Re: Maintain History Of Exam Results

And please don't cross post

http://www.excelforum.com/showthread.php?t=594498

VBA Noob

Re: Rolling Year Calculation

I believe this is now a triple cross post

http://www.excelforum.com/showthread.php?t=594115&highlight=rolling+year

VBA Noob

Re: Row Deletion Code, Error Message, Validation

If you read the link you would have spotted that the below is the number validation. Don't think a input box allows a spinner

Type:=1

VBA Noob

Re: Row Deletion Code, Error Message, Validation

Hi,

This link should help

http://www.ozgrid.com/VBA/inputbox.htm

VBA Noob

Re: User Form That Creates Ordered List

Please read Forum Rules. Cross posting is not allowed

http://www.excelforum.com/showthread.php?t=593264

VBA Noob

Re: Copying Data From One Sheet To Another

Ben103,

Please read the Forum Rules. Cross posting is not allowed.

http://www.excelforum.com/showthread.php?t=593235

VBA Noob

Re: Name Worksheet According To Cell Value

Hi,

Try

Sub AddNewWorksheet()
    Dim Val As String
    Val = Sheets(3).Range("A1").Value
    Sheets.Add
    ActiveSheet.Name = Val
    ActiveSheet.Move after:=Sheets(4)
End Sub

VBA Noob