• Skip to main content
  • Skip to header right navigation
  • Skip to site footer

My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

  • Courses
  • Pricing
    • Free Courses
    • Power BI Course
    • Excel Power Query Course
    • Power Pivot and DAX Course
    • Excel Dashboard Course
    • Excel PivotTable Course – Quick Start
    • Advanced Excel Formulas Course
    • Excel Expert Advanced Excel Training
    • Excel Tables Course
    • Excel, Word, Outlook
    • Financial Modelling Course
    • Excel PivotTable Course
    • Excel for Customer Service Professionals
    • Excel for Operations Management Course
    • Excel for Decision Making Under Uncertainty Course
    • Excel for Finance Course
    • Excel Analysis ToolPak Course
    • Multi-User Pricing
  • Resources
    • Free Downloads
    • Excel Functions Explained
    • Excel Formulas
    • Excel Add-ins
    • IF Function
      • Excel IF Statement Explained
      • Excel IF AND OR Functions
      • IF Formula Builder
    • Time & Dates in Excel
      • Excel Date & Time
      • Calculating Time in Excel
      • Excel Time Calculation Tricks
      • Excel Date and Time Formatting
    • Excel Keyboard Shortcuts
    • Excel Custom Number Format Guide
    • Pivot Tables Guide
    • VLOOKUP Guide
    • ALT Codes
    • Excel VBA & Macros
    • Excel User Forms
    • VBA String Functions
  • Members
    • Login
    • Password Reset
  • Blog
  • Excel Webinars
  • Excel Forum
    • Register as Forum Member

Help with macro locating row number and using in cell location|VBA & Macros|Excel Forum|My Online Training Hub

You are here: Home / Help with macro locating row number and using in cell location|VBA & Macros|Excel Forum|My Online Training Hub
Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search
Search
Forum Scope




Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_CrumbsHome HomeExcel ForumVBA & MacrosHelp with macro locating row number…
sp_PrintTopic sp_TopicIcon
Help with macro locating row number and using in cell location
Avatar
Michael Jasperson

New Member
Members
Level 0
Forum Posts: 1
Member Since:
March 25, 2022
sp_UserOfflineSmall Offline
1
March 25, 2022 - 5:08 am
sp_Permalink sp_Print

Hello,

 

I’m new to excel VBA and I’m trying to write a macro that uses a user supplied input to locate values in a middle table, then use the values located to sift the other two tables shown on the data sheet. The issue I seem to have is locating the middle table row number using the supplied input, and I’ve been stuck on making my next steps.

 

If there’s more information you need, let me know.

Avatar
Velouria
London or thereabouts
Moderator
Members


Trusted Members

Moderators
Level 4
Forum Posts: 617
Member Since:
November 1, 2018
sp_UserOfflineSmall Offline
2
March 25, 2022 - 8:11 pm
sp_Permalink sp_Print

You could use something like this:

 

Sub Searchable_List()
'Execute search for nestable products

Dim CalculatorDraft As Worksheet
Dim PreviousProduct As ListObject
Dim CompareTo As ListObject
Dim NextProduct As ListObject
Dim RowNum As Range

'Assign sheet and tables
Set CalculatorDraft = Sheets("CalculatorDraft")
Set PreviousProduct = CalculatorDraft.ListObjects("PreviousProduct")
Set CompareTo = CalculatorDraft.ListObjects("CompareTo")
Set NextProduct = CalculatorDraft.ListObjects("NextProduct")

'Assign input
nestinput = CalculatorDraft.Range("J4").Value

'Check if there is any user input.
If nestinput <> "" Then
'User input a value, so proceed

'Clear any filters
PreviousProduct.AutoFilter.ShowAllData
CompareTo.AutoFilter.ShowAllData
NextProduct.AutoFilter.ShowAllData

'Apply new filters, filter CompareTo table to find product
Dim RowPos
RowPos = Application.Match(nestinput, CompareTo.DataBodyRange.Columns(1), 0)
If Not IsError(RowPos) Then

'Assign value for filtering
With CompareTo
Technology = .ListColumns("Technology").DataBodyRange.Cells(RowPos).Value
Colors = .ListColumns("Color").DataBodyRange.Cells(RowPos).Value
Filler = .ListColumns("Filler").DataBodyRange.Cells(RowPos).Value
Thixotropy = .ListColumns("Thixotropy").DataBodyRange.Cells(RowPos).Value
Compliance = .ListColumns("Compliance").DataBodyRange.Cells(RowPos).Value
End With

'Filtering sequence for previous product
'Filter for Technology Type
With PreviousProduct.Range
.AutoFilter Field:=2, Criteria1:=Technology

'Filter for Color
.AutoFilter Field:=3, Criteria1:="<" & Colors

'Filter for Filler
.AutoFilter Field:=4, Criteria1:="<" & Filler

'Filter for Thixotropy
.AutoFilter Field:=5, Criteria1:="<" & Thixotropy

'Filter for Compliance
.AutoFilter Field:=6, Criteria1:="<" & Compliance
End With

'Filtering sequence for NextProduct Table
'Filter for Technology
With NextProduct.Range
.AutoFilter Field:=2, Criteria1:=Technology

'Added end if to stop sequence

'Filter for Color
.AutoFilter Field:=3, Criteria1:=">" & Colors

'Filter for Filler
.AutoFilter Field:=4, Criteria1:=">" & Filler

'Filter for Thixotropy
.AutoFilter Field:=5, Criteria1:=">" & Thixotropy

'Filter for Compliance
.AutoFilter Field:=6, Criteria1:=">" & Compliance
End With

Else

'Nothing exists in table
MsgBox "Product not in matrix, verify correct or have product added"

End If

Else

MsgBox " Enter product name "

End If

End Sub

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Aislinn Mellamphy, Lynnette Altomari, Roy Lutke, Dieneba NDIAYE, Tucker Oakley, Natasha Smith
Guest(s) 12
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 870
Purfleet: 412
Frans Visser: 346
David_Ng: 306
lea cohen: 219
Jessica Stewart: 202
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Sopi Yuniarti
sandra parker
LAFONSO HERNANDEZ
Hayden Hao
Angela chen
Sean Moore
John Chisholm
vexokeb sdfg
John Jack
Malcolm Toy
Forum Stats:
Groups: 3
Forums: 24
Topics: 6215
Posts: 27244

 

Member Stats:
Guest Posters: 49
Members: 31894
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —sp_Information

Sidebar

Blog Categories

  • Excel
  • Excel Charts
  • Excel Dashboard
  • Excel Formulas
  • Excel PivotTables
  • Excel Shortcuts
  • Excel VBA
  • General Tips
  • Online Training
  • Outlook
  • Power Apps
  • Power Automate
  • Power BI
  • Power Pivot
  • Power Query
microsoft mvp logo
trustpilot excellent rating
Secured by Sucuri Badge
MyOnlineTrainingHub on YouTube Mynda Treacy on Linked In Mynda Treacy on Instagram Mynda Treacy on Twitter Mynda Treacy on Pinterest MyOnlineTrainingHub on Facebook
 

Company

  • About My Online Training Hub
  • Disclosure Statement
  • Frequently Asked Questions
  • Guarantee
  • Privacy Policy
  • Terms & Conditions
  • Testimonials
  • Become an Affiliate

Support

  • Contact
  • Forum
  • Helpdesk - For Technical Issues

Copyright © 2023 · My Online Training Hub · All Rights Reserved. Microsoft and the Microsoft Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries. Product names, logos, brands, and other trademarks featured or referred to within this website are the property of their respective trademark holders.