Help with simple VBA coding

**DBruner84** · 03-08-2024, 01:51 PM

I am a NOVICE with VBA and coding. I am running into an error with code for a button I am trying to program. The button should check for the selected cell within Column A (A12 and below), then take a cell value from a specified range (from the selected cell within column A to 60 rows below) and display that value in cell B6. Any help would be great!

Sub Check3sec()

Dim rownumber As Integer
rownumber = ActiveCell.Row
If ActiveCell.Value <> "" Then
Function MinValue()
Range("B6") = WorksheetFunction.Min(Range("rownumber:rownumber+60"))
End If

End Function
End Sub

**jolivanes** · 03-08-2024, 02:46 PM

As per explanation.

Sub Maybe()
With Selection
    If .Column = 1 And .Row > 11 Then Cells(6, 2).Value = .Offset(60).Value
End With
End Sub

**DBruner84** · 03-08-2024, 04:09 PM

I tried that, but I am getting a debug issue with "If .Column = 1 And .Row > 11 Then"

Any thoughts as to why?

**protonLeah** · 03-08-2024, 04:31 PM

You can't have a function/sub nested within another. Notice that your End If belongs outside of the function.

Sub Check3sec()

Dim rownumber As Integer
rownumber = ActiveCell.Row
If ActiveCell.Value <> "" Then
Function MinValue()
Range("B6") = WorksheetFunction.Min(Range("rownumber:rownumber+60"))
End If

End Function
End Sub

Option Explicit
Sub Check3sec()
    Dim rownumber As Long
    Dim myMin
    rownumber = ActiveCell.Row
    If ActiveCell.Value <> "" Then
        myMin = MinValue(rownumber)     '   <<<<--call a function/sub from within another passing the value to process
        Range("B6").Value = myMin
    End If
End Sub
Function MinValue(ByVal RNum As Double) As Double
 MinValue = WorksheetFunction.Min(Range(RNum & ":" & RNum + 60))    '    <<----- Return the MIN to the calling sub
End Function

**kirana2014** · 03-08-2024, 04:40 PM

Sub Check3sec()
    Dim selectedRow As Long
    Dim rng As Range
    
    
    selectedRow = ActiveCell.Row
    
  
    If Not Intersect(ActiveCell, Range("A12:A" & Rows.Count)) Is Nothing Then
       
        Set rng = Range("A" & selectedRow & ":A" & selectedRow + 60)
        
     
        If Application.WorksheetFunction.CountA(rng) > 0 Then
         
            Range("B6").Value = Application.WorksheetFunction.Min(rng)
        Else
            MsgBox "There are no values in the specified range.", vbExclamation
        End If
    Else
        MsgBox "Please select a cell within Column A starting from A12 and below.", vbExclamation
    End If
End Sub

Help with simple VBA coding

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Help with simple VBA coding

Re: Help with simple VBA coding

Re: Help with simple VBA coding

Re: Help with simple VBA coding

Re: Help with simple VBA coding

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Help with coding of this simple calculator

Need help with fairly simple VBA coding

[SOLVED] Simple If Then Else Coding

Simple Moving Averages & VB Coding

some simple coding help needed

Simple subtraction and color coding ?

[SOLVED] Simple coding in Excel

Bookmarks

Bookmarks

Posting Permissions