using a variable to store a range

[rinneii]

This is the section of code I'm working on:

Set rep_v = Rows(ActiveCell.Row)
With rep_v
rep = rep_v.Value
lib = rep_v.Offset(rep, 2, 0).Value
ust = rep_v.Offset(lib, 3, 0).Value
If lib + ust >= hurdle * rep Then
county = county & "; "
End If
End With

obviously the bolded part is wrong
I need to have the .Value there, but I can't figure out how to get the rep_v value in it.

 

[DanteAmor]

Try this

    Set rep_v = ActiveCell
    With rep_v
        rep = .Value
        lib = .Offset(0, 2).Value
        ust = .Offset(0, 3).Value
        If lib + ust >= hurdle * rep Then
            county = county & "; "
        End If
    End With

When you use With it is no longer necessary to put the object, you just start with .

Offset(row, column)

If it is not what you need, then you could explain what you need, what data you have and what you expect from the result. Please use sample data to explain.

 

[rinneii]

I got a type mismatch error, the debugging highlighted the lib. I am trying to get a list of counties where the sum of the libertarian and US taxpayer bote was at least as great as a given percentage (user inputed) of the republican vote. This is my full code:

Dim inp1 As String, inp2 As String, inp3 As String
Dim county As String, c_list As String, mbox As String
Dim target As Double, hurdle As Double
Dim endLoop As Long, i As Long, rep As Long
Dim lib As Long, ust As Long


Sub CountyInfo()


county = ""
inp1 = "Enter percentage comparison for republican votes:"
inp2 = "compared to the sum of libertarians and US taxpayers."
inp3 = inp1 & inp2


target = InputBox("Enter a number.", "Data", 1)
hurdle = target / 100






For i = 2 To endLoop
endLoop = ActiveSheet.Range.End - 5
Next i


Set rep_v = ActiveCell
With rep_v
rep = .Value
lib = .Offset(0, 2).Value
ust = .Offset(0, 3).Value
If lib + ust >= hurdle * rep Then
county = county & "; "
End If
End With






If Len(county) > 1 Then
MsgBox ("Countries with lib and ust " & hurdle & "; " & c_list)
Else: MsgBox ("No counties found.")
Exit Sub
End If



c_list = Mid(county, 2, Len(county) - 2)


End Sub


I will include some data from my workbook.

 

[rinneii]

ElectionDate	CountyName	CountyClean	PartyName	PartyDescription	CandidateLastName	CandidateFirstName	CandidateVotes
11/6/2018	ALCONA	Alcona	REP	Republican	Schuette	Bill	3409
11/6/2018	ALCONA	Alcona	DEM	Democratic	Whitmer	Gretchen	1982
11/6/2018	ALCONA	Alcona	LIB	Libertarian	Gelineau	Bill	40
11/6/2018	ALCONA	Alcona	UST	US Taxpayers	Schleiger	Todd	42
11/6/2018	ALCONA	Alcona	GRN	Green	Kurland	Jennifer	41
11/6/2018	ALCONA	Alcona	NLP	Natural Law	Butkovich	Keith	21
11/6/2018	ALGER	Alger	REP	Republican	Schuette	Bill	1997
11/6/2018	ALGER	Alger	DEM	Democratic	Whitmer	Gretchen	1855
11/6/2018	ALGER	Alger	LIB	Libertarian	Gelineau	Bill	41
11/6/2018	ALGER	Alger	UST	US Taxpayers	Schleiger	Todd	28
11/6/2018	ALGER	Alger	GRN	Green	Kurland	Jennifer	31
11/6/2018	ALGER	Alger	NLP	Natural Law	Butkovich	Keith	8
11/6/2018	ALLEGAN	Allegan	REP	Republican	Schuette	Bill	28648
11/6/2018	ALLEGAN	Allegan	DEM	Democratic	Whitmer	Gretchen	19497
11/6/2018	ALLEGAN	Allegan	LIB	Libertarian	Gelineau	Bill	839
11/6/2018	ALLEGAN	Allegan	UST	US Taxpayers	Schleiger	Todd	366
11/6/2018	ALLEGAN	Allegan	GRN	Green	Kurland	Jennifer	367
11/6/2018	ALLEGAN	Allegan	NLP	Natural Law	Butkovich	Keith	136
11/6/2018	ALPENA	Alpena	REP	Republican	Schuette	Bill	7031
11/6/2018	ALPENA	Alpena	DEM	Democratic	Whitmer	Gretchen	5595
11/6/2018	ALPENA	Alpena	LIB	Libertarian	Gelineau	Bill	161

<colgroup><col><col span="2"><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[DanteAmor]

Forget the code a bit, explain with your words what you need to do and what you expect from it. Use the base you put to exemplify your explanation.