Posts by VBA Noob

Re: Picture Embedding

See if one of these links help

http://www.andypope.info/fun/picviewer.htm

http://www.mcgimpsey.com/excel/lookuppics.html

Insert Pictures from Folder

VBA Noob

Re: Select Data In Last Two Rows

Please remember to wrap your code as per forum rules.

Usually you don't have to select cells to work with them.

If you have to select them you could try

Dim LastRow As Long
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("B" & LastRow - 2, "C" & LastRow).Select

VBA Noob

Re: Calculating Weekly Attendance Percentage

luckyros,

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=635010

PM Dave Hawley if you agree to the rules

VBA Noob

Re: Get Value From Cell Name

Try

MsgBox Range("Hello").Value ' Cell value
MsgBox Range("Hello").Address(0, 0) ' Cell address

VBA Noob

Re: Automatically Copy Formulas To New Rows As New Rows Of Raw Data Are Added

maxedison,

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=1882616&posted=1#post1882616

PM Dave Hawley if you agree to the rules

VBA Noob

Re: Macro To Search, Copy/paste Onto New Sheet

Thanks StephenR,

JADownie,

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: Referring To Cells In Another Sheet

Thread opened.

nazitf agreed to wrap he's code .

VBA Noob

Re: Referring To Cells In Another Sheet

nazitf,

Please wrap your code

VBA Noob

Re: Deleting All Worksheets With Only One Row

Maybe

Sub DeleteSht()
Dim Wsht As Worksheet
Application.DisplayAlerts = False


For Each Wsht In Worksheets
    If Wsht.UsedRange.Rows.Count <= 1 Then
        Wsht.Delete
    End If
Next Wsht


Application.DisplayAlerts = True
End Sub

VBA Noob

Re: Deleting Raw Data Affect Pivot Tables?

TalTalK,

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://"http://www.excelforum.com/showthread.php?t=632820"

PM Dave Hawley if you agree to the rules

VBA Noob

Re: Check If Sheet Is Active

You don't need to activate sheets to run code

Post the code you got and someone will take a look at it for you

VBA Noob

Re: Find Heading To Match CheckBox & Hide / Unhide Column

Designer_6,

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.vbaexpress.com/forum/showthread.php?t=17640

PM Dave Hawley if you agree to the rules

Re: Count Values In A Column

Link should help

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

VBA Noob

Re: Macro Across A Spreadsheet

daveyboy123,

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=631935

Please PM Dave Hawley if you agree to the rules

VBA Noob

Re: Type And Calculate In A Single Cell

Right click sheet tab > select view code > paste in the below

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      Static dAccumulator As Double
      With Target
         If .Address(0, 0) = "B1" Then
            If Not IsEmpty(.Value) And IsNumeric(.Value) Then
               dAccumulator = dAccumulator + .Value
            Else
               dAccumulator = 0
            End If
            Application.EnableEvents = False
            .Value = dAccumulator
            Application.EnableEvents = True
         End If
      End With
End Sub

HTH

VBA Noob

Re: Change Cells Texts

Try

Sub AddPv2()
Dim Rng As Range
Dim c As Range
Set Rng = Columns("A:A").SpecialCells(xlCellTypeConstants, 3)
For Each c In Rng
    If Not IsNumeric(c) Then
        c.Value = c.Value & ".pv"
    End If
Next c


End Sub

or select the cells and use

Sub addPv()
Dim c As Range
For Each c In Selection
    If Not IsNumeric(c) Then
        c.Value = c.Value & ".pv"
    End If
Next c
End Sub

VBA Noob

Re: Expanding Code To Allow More Sets

Ratiocination,

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=631055

VBA Noob

Re: Macro For Column Formatting

Maybe

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


    For i = 1 To Lr
       With Cells(i, "C").Font
            .Name = Cells(i, "A").Value
            .Size = Cells(i, "B").Value
       End With
    Next i
End Sub

VBA Noob

Re: Change Button Name From On To Off When Clicked

Your welcome.

PS. Yes I am that VBA Noob

VBA Noob

Re: Change Button Name From On To Off When Clicked

Maybe

Sub ToggleButtonText()
    Dim Crt As Boolean
    Dim strCptn As String
    Dim SrtBut As String
    Dim Rng As Range
    
    Set Rng = Range("A1")
    SrtBut = Application.Caller
    Crt = Rng.Value = "X"
    
     
    If Crt = True Then
        strCptn = "off"
        Rng.Value = ""
     Else
        strCptn = "on"
        Rng.Value = "X"
        
    End If


 
    ActiveSheet.Shapes(SrtBut).TextFrame.Characters.Text = strCptn
End Sub

VBA Noob