Posts by VBA Noob

Re: Change Button Name From On To Off When Clicked

Using a button from the forms toolbar try

Sub ToggleOnOff()
    Dim Crt As Boolean
    Dim strCptn As String
    Dim SrtBut As String
     
    SrtBut = Application.Caller
    Crt = UCase(Range("A1").Value) = "X"
    
     
    If Crt = True Then
        strCptn = "on"
    Else
        strCptn = "off"
    End If
     
    ActiveSheet.Shapes(SrtBut).TextFrame.Characters.Text = strCptn
End Sub

Code from here
http://www.ozgrid.com/forum/showthread.php?t=60224

VBA Noob

Re: Change The Value Of Numbers In A Column By A Costant Value

If the column is formatted as % try this

Enter 50% in a blank cell > copy the cell > select the Column > Right click > paste special > multiply

If not formatted as % enter 2 in a blank cell and select the divide option

VBA Noob

Re: Run Macro Based On The Value Of A Cell Changing

Minn,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

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

Please PM Dave Hawley if you agree to rules

VBA Noob

Re: Lookup All Occurrences Across Multiple Sheets & Report

yusufz,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

[/QUOTE]

http://www.excelforum.com/showthread.php?p=1870943&posted=1#post1870943

Please PM Dave Hawley if you agree to the rules

VBA Noob

Re: Delete Row If Blank Cell In Column

Change delete to select to see if it's selecting the columns you want to delete

Worksheets("Sheet1").Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Select

VBA Noob

Re: Copy A Range And Paste It X Times

See if this helps

Righ click sheet tab > Select view code > paste in the below.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Address = "$G$8" Then
    If IsNumeric(Target) And Not IsEmpty(Target) Then
        Application.EnableEvents = False
            i = Range("G8").Value
            Range("B11:G11").AutoFill Destination:=Range("B11:G" & 11 + i), _
            Type:=xlFillDefault
        Application.EnableEvents = True
    End If
End If
End Sub

VBA Noob

Re: Alternate Row Color

There are links below to show you how to do it with conditional formatting but if you must use VBA then see if the below link helps

http://www.ozgrid.com/forum/showthread.php?t=60928

VBA Noob

Re: Find Occurance Of Text In Column

Type isna and then if in excel help for more

The countif is checking how many times the value in cell B1 is found in A1 to A5. The if Statement says if the countif equals zero (true statement) then return "not found" otherwise return "found"

HTH

VBA Noob

Re: Find Occurance Of Text In Column

Couple of formula's you can try

Quote

=IF(COUNTIF($A$1:$A$5,B1)=0,"Not found","Found")

Quote

=IF(ISNA(VLOOKUP(B1,$A$1:$A$5,1,FALSE)),"Not Found","Found")

HTH

VBA Noob

Re: Deleting A Row In Vba Based On A Variable

Something like

Dim i As Long
i = 6 ' Your row number here


    Rows(i).EntireRow.Delete

VBA Noob

Re: Bypassing Clipboard

Thanks mikerickson

philfer,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

Please PM Dave Hawley when you agree to the rules

Re: Get Specified Data From One Sheet To Other Sheet

Thanks unmarkedhelicoper

ayazgreat,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

VBA Noob

Re: Enable Macros When No Macro Present

Don't bother. I've deleted the cross post

VBA Noob

Re: Macro To Copy Defined Ranges Into Word

atlas_85,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

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

VBA Noob

Re: Slowness

Closed for cross posting here

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

Please PM Dave Hawley if you agree to the forum rules

VBA Noob

Re: Update Multiple Files Without Opening

B.Lee,

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

http://www.excelforum.com/showthread.php?p=1853287&posted=1#post1853287

VBA Noob

Re: Lookup Across Multiple Sheets In Different Book

Peinecone,

This is a cross post

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

Please read THIS PAGE IN FULL

VBA Noob

Re: Extract Duplicate Email Addresses In Same Cell

Closed for cross posting without adding the link

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

Please read link in full Forum Rules
VBA Noob

Re: Identification Cell Type

This link may be of interest

http://www.j-walk.com/ss/excel/tips/tip62.htm

I've amended to check for formula.

Function CellType(c)
'   Returns the cell type of the upper left
'   cell in a range
    Application.Volatile
    Set c = c.Range("A1")
    Select Case True
        Case IsEmpty(c): CellType = "Blank"
        Case Application.IsText(c): CellType = "Text"
        Case Application.IsLogical(c): CellType = "Logical"
        Case Application.IsError(c): CellType = "Error"
        Case IsDate(c): CellType = "Date"
        Case InStr(1, c.Text, ":") <> 0: CellType = "Time"
        Case c.HasFormula: CellType = "Formula"
        Case IsNumeric(c): CellType = "Value"
    End Select
End Function

VBA Noob

Re: Rows Function - Variables

Whenever possible you should avoid select the rows.

Dim myvariable As Integer
myvariable = 6
Rows(myvariable & ":30").Select

HTH

VBA Noob