The key piece that I seem to be struggling with is using a cell location as 
a reference to cut / paste.

 

The idea is if there is a value in a cell on a row within a range, do 
something.

What it does depends on the attributes of that cell. I will build a loop to 
go through different options later.

 

Doesn’t seem that complicated but referencing the cell location is 
important as where the info gets pasted in the doc is an offset of that 
referenced cell.

Here is where I have gotten so far but it's not working. Just generating 
errors. Would appreciate some suggestion on what direction to start looking 
for a solution.

___________________________________________________________________________________________________________________________________________

Dim market
Dim Tags
Dim Time
Dim CellAddress


    market = Sheets("Summary").Range("CY4:CY2000").Value
    Tags = Sheets("Summary").Range("HC4:KT2000").Value
    Time = Sheets("Summary").Range("CZ4:CZ2000").Value
    
     'if there is a value in the row, identify the cell address, also 
identify if the value is of a certain type. 
     'if there is a value and it of the matching type, paste another value 
in a cell, referencing the location of the cell on the row in the original 
query.
 
        Dim volume
        Set volume = 
Sheets("Summary").Range("HC4:KT2000").Find(What:=check.Value, 
Lookat:=xlWhole, LookIn:=xlValues, Searchorder:=xlByRows)
        If volume Is Nothing Then
        
        End

'I will build in a loop here to go to the next row to look for a value 
within the row.
        
        ElseIf volume >= 1 And market = "Local" And Time = ("AM") Then 
volume.Address
      
'I will build in a loop here to check against other criteria.      
            

    Sheets("Profile").Select
    Range("AZ22:BL22").Select
    Range("BL22").Activate
    Selection.Copy
    Sheets("Summary").Select
         volume.Address.Offset(0, 136).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
                :=False, Transpose:=False
   End If

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Reply via email to